ich verwende seit einiger Zeit einige Funktionen aus Huberts Klasse HPPrintPDF (Version 10) um vorhandene PDF's auszudrucken.
Es sind dies die folgenden Zeilen:
Code: Alles auswählen
oObjPDF := hbPrintPDF():new():create()
if oObjPDF:IsOK
oObjPDF:loadFromFile( fname )
if cDruckername = NIL
cDruckername := oObjPDF:GetDefaultPrinterName()
endif
if nTray != NIL
if nTray > 0
cDruckername := oObjPDF:NewCustomPrinter( cDruckername )
if !oObjPDF:SetupCustomPrinter( cDruckername, 9 , nTray )
msgbox("Druckschachtauswahl: "+alltrim(str(nTray))+ " für PDF Ausdruck nicht gültig.")
endif
endif
endif
oObjPDF:printDocument( cDruckername ,1 , oObjPDF:PageCount(), oObjPDF:PrintOptions(1,1,"PDF-Out") )
oObjPDF:RemoveDocument( oObjPDF:GetDocumentID() )
endif
oObjPDF:destroy()
Der Ausdruck z.B. mit Adobe-Reader ist aber immer komplett mit Bilder.
Hat jemand eine Ahnung wo hier das Problem liegen könnte?
Cu Carlo