Printing

[Otto]

Hello,
for me sample testprev.prg from the Fivewin samples is not working any more.
Also my own code where I use oPrn:ImportWMF( "invoice.emf" ) is not working anymore.
Does someone have an advise.
Thanks in advance
Otto

[Antonio Linares]

Otto,

This change is required in source\classes\rpreview.prg line 528:

Code: Select all  Expand view  RUN

   if lRebar .or. nStyle >= 2007
      #define NULL_BRUSH 5
      FixSays( ::oBar:hWnd, GetStockObject( NULL_BRUSH ) )
   endif
 

This solves the TestPrev.prg example error, thanks!

[Antonio Linares]

In order to properly paint the EMF files these changes are required:

printer.prg line 862 and 886:

Code: Select all  Expand view  RUN

      if Upper( cFileExt( cFile ) ) == "EMF"
 

Code: Select all  Expand view  RUN

      if Upper( cFileExt( cFile ) ) == "EMF"
 

samples\TestPrev.prg seems to be working fine now, thanks!