HBRINT -> Function GetPrinterName( cWindowsDruckerObjekt )
Verfasst: Di, 27. Sep 2022 11:55
Hallo,
mir ist in der Function -> GetPrinterName( cWindowsDruckerObjekt ) von Huberts Printerklasse nicht klar, warum die " if cPrinterName = NIL" verwendet wird. Aufgrund der Definition ist doch "cPrinterName" immer NIL??
mir ist in der Function -> GetPrinterName( cWindowsDruckerObjekt ) von Huberts Printerklasse nicht klar, warum die " if cPrinterName = NIL" verwendet wird. Aufgrund der Definition ist doch "cPrinterName" immer NIL??
Code: Alles auswählen
function GetPrinterName( cWindowsDruckerObjekt )
static cPrinterName := NIL
local oP, aL, i := 0
if cPrinterName = NIL
oP := XbpPrinter():new()
if oP = NIL
MsgBox("Druckerobjekt konnte nicht erzeugt werden","GetPrinterName()")
USER_LOG("SYS", "Druckerobjekt konnte nicht erzeugt werden", "VWIN_HBDRUCK", "","GetPrinterName()", "" )
quit
else
aL := oP:list()
i := AScan( aL, {|x| lower(x) == lower(cWindowsDruckerObjekt) } ) // genau
if i = 0
i := AScan( aL, {|x| lower(cWindowsDruckerObjekt) $ lower(x) } ) // einigermassen, z.B. bei Netzwerkdrucker
endif
endif
if i > 0
cPrinterName := aL[i]
else
MsgBox("Drucker -> "+cDrucker+" konnte nicht gefunden werden ", "GetPrinterName()")
USER_LOG("SYS", "Drucker -> "+cDrucker+" konnte nicht gefunden werden", "VWIN_HBDRUCK", "","GetPrinterName()", "" )
endif
endif
return cPrinterName
.