Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Error Printing Paradox 8 Reports from NT

Status
Not open for further replies.

SercoSteve

Programmer
Sep 25, 2002
44
GB
Whenever we attempt to print a Paradox 8 report from WindowsNT or Windows2000 we get a popup dialog box titled "Report Printer Changed", containing the text "Printer fonts changed. Please Run Report again & Print". The same dialog comes up if the report is run again and an attempt to print is made.

We successfully print the same report using Windows95 and Windows98 machines.

Any suggestions would be greatly appreciated?
 
I used to get this error on W2000 and I can't remember clearly how I solved it. I think the error used to occurr because the Paradox printer was not the default Windows printer. I think, I did the following which cured the problem:
1. Set the Windows default printer to the one used by Paradox before opening Paradox.
2. Loaded the report in design mode and re-saved it.
3. Reset the Windows default printer to it's original value.
 
Doesn't seem to make any difference, shame.

Thanks for your time

Steve
 
Having the same problem with Paradox 10 using windows 2000. When I figure it out I'll post a response.

adelson007
 
We've just encountered this same problem when we upgraded to Windows 2000 (using Pdox 8). Has anyone got a solution?
 
We had an earlier question regarding printing reports, and we came up with the following solution. We added a routine to the library (the code follows), and a small form with a Print button and a Close Button. The code is given below.

To overcome the dialog error box problem, we added the following function to lib1.

Library Routine:
method OpenReport(orient String,rptName String)
var
repinfo ReportPrintInfo
prnOptions PrinterOptionInfo
tc tCursor
strReportName String ;// tmp handle to report name
rHandle Report ;// tmp handle to report being opened
f Form
endVar
if NOT rHandle.open(rptName) then
msgStop("Error opening " + strReportName, "Please make sure the report exists and try again.")
else
rHandle.menuAction(MenuPropertiesZoomfitWidth)
rHandle.MAXIMIZE()
showspeedbar()
endIf
rHandle.setTitle(rptName)
f.open("rpt_print")
f.rpt_name=rptName
f.orient=orient
;
endMethod

The form referenced in the library method consists of two buttons, Print Report and Close. The code behind the two buttons follows.

Print Report Button:

method pushButton(var eventInfo Event)
var
PrintInfo dynarray[] anytype
r report
endvar

Printinfo"PanelOptions"=PrintClipToWidth
PrintInfo"Name"=rpt_name.value
;PrintInfo"Orient"=prnLandscape
PrintInfo"ShowDialog"=true

r.print(PrintInfo)
endMethod

Close button:

method pushButton(var eventInfo Event)
var
r report
rname String
endVar

;// Validation or confirmation code, if any, should go here
;//
;// Close the form
;//
rname= rpt_name.value
if r.attach(rname) then
r.close()
endif
close()
endMethod

Finally, the following code was added to the buttons calling the reports where name.rsl is the report name.

mylib.OpenReport("prnLandscape","name.rsl")

There may be more elegant methods, but this works for us.
 
Hello

I have the same problem with paradox 8. "Printer fonts changed...etc..."

Anyone have a solution. PLease explained it clearly as I am not familiar with programming.

Thanks
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top