Error in FWH 18.01

[ORibeiro]

I changed line 438 of Printer.prg because PrinterSetup () and GetPrintDC () were not modifying the system printer.

Code: Select all  Expand view  RUN

METHOD End() CLASS TPrinter

   if ::hDC != 0
      if ! ::lMeta
         if ::lStarted
            EndDoc(::hDC)
         endif
      else
         Aeval(::aMeta,{|val| ferase(val) })
         ::aMeta  := {}
         ::hDCOut := 0
      endif
      if ::nOrient != nil
         if ::nOrient == DMORIENT_PORTRAIT
            ::SetPortrait()
         else
            ::SetLandscape()
         endif
      endif
//    PrinterEnd() -> 01/03/2018 (OASYS) Tirei essa linha para que ele mantenha a impressora selecionada no GetPrintDC() sem precisar mudar a impressora Default do Windows.
      DeleteDC( ::hDC )
      ::hDC := 0
   endif

   if ::oFont != nil
      ::oFont:End()
   endif

   oPrinter := nil

return nil

 

[Antonio Linares]

Oscar,

> PrinterSetup () and GetPrintDC () were not modifying the system printer

Should they modify the system printer ?

why ?

We appreciate a more detailed explanation, thanks

[ORibeiro]

Thanks Linares,

Sorry but when I wrote “system” I was saying “My application”.

Just in Windows Terminal Server, the FWH18.01 stopped to accept the printer selected by user using printersetup() or getprintdc(). It was necessary to change printer.prg for it to function as before.

[Antonio Linares]

Oscar,

What FWH version were you using before ?

what were you able to do before but not now ?

thanks

[ORibeiro]

Hi Linhares,

I was using the FWH 13.12 version.

I noticed that the printer.prg in that version was with this line (PrinterEnd) disabled.

Thanks.