Printing to printer

[Ugo]

Dear friends,
I found a problem with a my storical application, after i update to FWH 8.11 version.
PrimoPDF is a printer installed on my system but if I run the sample, return:
"PrimoPDF is not ready!"
I don't understood why!
How to repair?
Many thanks in advance,

Code: Select all  Expand view  RUN

FUNCTION Main()

   LOCAL cPrinter := "PrimoPDF", oPrn

   PRINT oPrn NAME "Test fivewin" TO cPrinter PREVIEW  // MODAL

   IF Empty( oPrn:hDC )
      MsgStop( cPrinter + " is not ready!!" )
   ELSE
      MsgINfo( "Printing!" )
   ENDIF
   PAGE
   oPrn:CmSay(  10.0 , 15.0, "TEST" )
   ENDPAGE
   ENDPRINT
   RETURN Nil

[hua]

If I'm not mistaken, it's a bug in TPrinter class and it happens when someone use "to <cPrinter>" clause on XP. It's fixed in FWH 9.01. Under method new() of Tprinter class, just make it look like this:

Code: Select all  Expand view  RUN

      cPrinter := GetProfString( "windows", "device" , "" )
      WriteProfString( "windows", "device", cModel )
      SysRefresh()
      PrinterInit()
      ::hDC := GetPrintDefault( GetActiveWindow() )
      SysRefresh()
      WriteProfString( "windows", "device", cPrinter  )
      // PrinterInit()
      // DeleteDC( ::hDC )
      // ::hDC = PrinterDCfromName( cModel )      
 

[Ugo]

If I'm not mistaken, it's a bug in TPrinter class and it happens when someone use "to <cPrinter>" clause on XP. It's fixed in FWH 9.01. Under method new() of Tprinter class, just make it look like this:

Dear Hua,
you are not mistaken, now work well.

The bug is also on Vista.

Many thanks for your help.