mit folgendem Testprogramm wollte ich die neuen Möglichkeiten testen:
Code: Alles auswählen
procedure main()
local oP, x, aP
oP := XbpPrinter():New()
oP:create()
? oP:devName, "drucken ..."
?
SET PRINTER TO OBJECT oP
set printer on
? oP:devName,"an",oP:devPort
? "Dies ist ein Test"
? "Ende äöü"
set printer to
oP:destroy()
wait
return
? oP:devName,"an",oP:devPort gibt die erwarteten Werte zurück, also geht es vom Prinzip, aber ...
Der Ausdruck auf meinem Netzwerkdrucker (mit eigenem Port # LPT), der PCL und PS kann geht, aber die Umlaute werden geschluckt, obwohl dort PC8 Zeichensatz eingestellt ist ?
Der Ausdruck auf meinem GDI-Drucker an USB001 geht nicht, nach einiger Zeit meldet der Druckertreiber 'LPT1' wäre nicht bereit. Logisch da hängt ja auch nix !
Also werde ich auch weiterhin grundsätzlich über meine HBPrinterX Klasse (XbpPrinter) drucken.
Habt Ihr andere Erfahrungen ?