I have an application where several users utilize it every day. The IT Department just upgraded all the workstations from Windows 10 to Windows 11. Now on the reports which print to the PDF995 driver the fonts are reduced to a really small size. If they print directly to the printer the fonts look like they should. I found that if you print to the printer but preview, then in preview press the Acrobat button, that PDF is correct. I looked through the rpreview.prg and found I believe it uses FWSavePreviewToPDF(), is this code around because it seems to work better the PDF995. Or is there a way to save to PDF from the printer commands. Thanks,

Update, I found prv2pdf.prg and will start playing with it. Hopefully I can eliminate PDF995.

Thank you Mr. Rao, modifying my code at this moment. Very complete. Byron ...

I placed "Request FWHARU" at the top of my program, then I get many link errors that start with "HB_FUN_HPDF".

Do I need a newer version of FiveWin?

Do I need a change in my mak file?

define FWVERSION "FWH 23.07"

define FW_VersionNo 23070

Thanks,

Do I need a newer version of FiveWin?

Do I need a change in my mak file?

echo %hdirl%\hbhpdf.lib + >> b32.bc
echo %hdirl%\libhpdf.lib + >> b32.bc

Got it, Thanks,

I have tried a couple of ways, one:

Print oPrn Name cReport File cFile to cPrinter

oPrn:lUseHaruPDF := .t.

Creates a perfectly great PDF, but during the process it pops up the preview screen and immediately takes it down.

Can I eliminate the popup of the screen, it seems it would be distracting to the user.

Thanks,

I have been testing with the following code:

Function TestHaru()

Local oPrn  := nil

Local oFont := nil

Local cFile := Mcs_AppPath() + "TestPdf" + nAllTrim( Seconds()) + ".Pdf"

Print oPrn File cFile

Define Font oFont Name "Arial"  Size 0,-14 of oPrn

oPrn:lUseHaruPDF := TRUE

Page

   oPrn:InchSay( 1,1, "Hello World", oFont,,,,, )

Endpage

EndPrint

Return nil

When I run this the second time I get:

Error description: Error BASE/1005 Message not found: FWPDF:_LUSEHARUPDF

Args:

[ 1] = O FWPDF

If I quit my program and restart I can print it once again. Am I not resetting something that may cause this problem.

Thanks,

I will try your suggestion, but I do have several "Extend Class TPrinter with Data" and "with Message", can this be the problem? I use this everywhere I print, if this is the problem, can I rename the class and solve the problem?

"before executing PRINT command."

"Not inside PRINT/ENDPRINT"

I don't exactly understand how this work. But it does. Does this flag (lUseHaruPDF) stay true until it is set back to false, or do you need to set it everytime. Why does it not get set back to false when you initiate the "Print oPrn..." command?

Byron ...

byron.hopp wrote:"before executing PRINT command."
"Not inside PRINT/ENDPRINT"

I don't exactly understand how this work. But it does. Does this flag (lUseHaruPDF) stay true until it is set back to false, or do you need to set it everytime. Why does it not get set back to false when you initiate the "Print oPrn..." command?

Byron ...