Hallo Leute,
habe wieder einmal eine Frage zum direkten Drucken:
Mit dem Beispiel das ich hier gefunden habe, funktioniert es ganz gut. Ich müsste nur den Drucker direkt zuweisen ohne den Druckerdialog aufzurufen.
Wer weiss wie ich den Druckernamen übergebe ?
Grüsse
Rudolf
function printtest()
******************************************************************
LOCAL oPrinter
oDlg := XbpPrintDialog():new()
oDlg:create()
oPrinter := oDlg:display()
oDlg:destroy()
IF oPrinter <> NIL
set printer to OBJECT oPrinter
set printer on
set device to printer
set console off
? "Text 1 " + drz("GROSS") + " Text 2 " + drz("FETT") + " Text 3 " + drz("BREIT")
set printer off
set printer to
set device to screen
set console on
oPrinter:destroy()
ENDIF
return .t.
function drz(cZ)
*** ***********************************************************
do case
case cZ == "CUTTER"
return (chr(27)+"m")
case cZ == "GROSS"
return (chr(27)+"!"+chr(48))
case cZ == "NORMAL"
return (chr(27)+"!"+chr(0))
case cZ == "FETT"
return (chr(27)+"!"+chr(8))
case cZ == "BREIT"
return (chr(27)+"!"+chr(32))
endcase
return ""
Direkt Druck Zuweisung
Moderator: Moderatoren
- brandelh
- Foren-Moderator
- Beiträge: 15695
- Registriert: Mo, 23. Jan 2006 20:54
- Wohnort: Germersheim
- Hat sich bedankt: 65 Mal
- Danksagung erhalten: 33 Mal
- Kontaktdaten:
Hallo Rudolf,
schau mal bei XbpPrinter():create(cPrinterName) nach ...
wenn du den Rechner kennst, kannst du einfach den Windowsnamen des Druckers benutzen. Oder du legst mit
natürlich kannst du in deinem Programm auch die Liste der installierten Drucker anzeigen und einen als Vorauswahl auswählen lassen, den du dann z.B. aus einer INI ließt. Bei INI muß man auf Leerzeichen aufpassen.
schau mal bei XbpPrinter():create(cPrinterName) nach ...
wenn du den Rechner kennst, kannst du einfach den Windowsnamen des Druckers benutzen. Oder du legst mit
Code: Alles auswählen
cPrinterName := NIL
oP := XbpPrinter():new()
aPrinter := oP:list()
if len(aPrinter)>0
for x := 1 to len(aPrinter)
if "CANON" $ upper(aPrinter(x)) // oder wie heist er sonst ?
cPrinterName := aPrinter(x)
endif
next
endif
oP:create(cPrinterName) // wurde ein gewünschter gefunden oder einfach standard ...
Gruß
Hubert
Hubert
- Rudolf
- Programmier-Gott
- Beiträge: 1418
- Registriert: Mo, 02. Jan 2006 23:03
- Wohnort: Salzburg/Österreich
- Kontaktdaten:
Hallo Hubert,
vielen Dank, funktioniert jetzt einwandfrei.
Grüsse
Rudolf
vielen Dank, funktioniert jetzt einwandfrei.
Grüsse
Rudolf
Rudolf Reinthaler
http://www.formcommander.net
http://www.formcommander.net