Hello ,
Making the conversion from a big FWH aplication from FWH1303 to FWH1402 , i have problems withy the command :
PRINT oPrn NAME cTitle TO aPrinters[nPrint] // Checked : PDFCREATOR , printer is defined in windows
DBG oPrn
oPrn Shows as expected cModel (PDFCreator) and a value for hDc
BUT THE OUTPUT : DEFAULT WINDOWS PRINTER
What has changed ?
Frank
PRINTER oPrn TO "PDFCreator"//FROM USER // PREVIEW
PAGE
oPrn:Say( 10, 1, "ok" )
ENDPAGE
ENDPRINTER PRINTER oPrn TO "PDFCreator"//FROM USER // PREVIEW
[b]oPrn:SetPage(9) //A4 !!!!!!!!!!!!!!!!!!!!!!!!!!!![/b]
PAGE
oPrn:Say( 10, 1, "ok" )
ENDPAGE
ENDPRINTERMETHOD Rebuild() CLASS TPrinter
# ifdef FRANKDEMONT
local cModel := ::cModel
# endif
.......
......
/* following modifications after fw1308 are commented out subject to further review 2014-02-15
// eg. SetLandScape(), etc. stopped working with this modification
if ::hDC == 0
::hDC = GetPrintDefault( GetActiveWindow() )
::lStarted = .F.
::lModified = .T.
endif
*/
// Following 5 lines upto "endif" are restored from FW1308 2014-02-15
if ::hDC != 0
DeleteDC( ::hDC )
# ifdef FRANKDEMONT
::hDC = PrinterDcFromName( , cModel, )
# else
::hDC := GetPrintDefault( GetActiveWindow() )
# endif
//::hDC := GetPrintDefault( GetActiveWindow() ) // <== ???????????????????????????????????????????????????????
::lStarted := .F.
::lModified := .T.
endif
if ::hDC != 0
if ! ::lMeta
::hDcOut = ::hDC
endif
endif
return nilI confirm the problem.
Because of this I didn't switch to 1402. Still I am using 1309.
