Drucken Sie direkt

Drucken Sie direkt

Drucken Sie direkt : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Wie Sie direkt an den Drucker zu drucken.
Autor: JAVIER CELUCE

Eine vor zwei Monaten Gareet Wilson Antwort auf diese Frage und ich getestet, dass die Arbeit
feine...
Der beste Weg, die, den ich gefunden habe, ist Folgendes zu tun, die die Windows verwendet
Siebdruck-Routinen, sondern sendet Daten direkt an den Drucker (Sie müssen eventuell
zu den Änderungen Sachen herum, aber das ist eine gute Gliederung}. Ich fand heraus, eine
Viele dieser 'drei Druck-Techniken für Windows 95-Konsole
Anwendungen'von David Tamashiro in des C/C++-Benutzers Journal, Januar
1997.
** Zuerst gehören Sie die folgenden:
var
PrinterHandle:THandle; {Das Handle für den Drucker}
WinSpool, Drucker verwendet;
Geben Sie TDocInfo1 = gepackte Record {der Ersatz für DOC_INFO_1}
LpszDocName: PAnsiChar;
LpszOutputFile: PAnsiChar;
LpszDatatype: PAnsiChar;
Ende;
** Öffnen Sie einen Drucker nach seinen Namen:
var
CTitle:array [0..31] char;
CMode:array [0..4] char;
DocInfo:TDocInfo1;
beginnen
StrPLopy (CTitle, 'Mein Title'); {Unsere Titel-Puffer einrichten}
StrPCopy (CMode, 'RAW'); {'RAW' in unserem Puffer Modus setzen}

FillChar (DocInfo, SizeOf(DocInfo), 0); {die DocInfo Struktur füllen
mit NULL}
mit DocInfo do
beginnen
LpszDocName: = CTitle; {Festlegen Sie Titel unseres Dokuments}
LpszOutputFile: = Nil; {Geben Sie keine Ausgabedatei}
LpszDatatype: = CMode; {Legen Sie die Mode, die wir als angegeben haben
'ROHE'}
Ende;
OpenPrinter ('Hier Druckernamen', PrinterHandle, null);
StartDocPrinter (PrinterHandle, 1, @DocInfo);
StartPagePrinter(PrinterHandle);

** Jetzt, Ihren Text zu drucken:
var
Count: DWord; {die Anzahl der geschriebenen Bytes}
beginnen
WritePrinter (PrinterHandle, PChar(printText), Length(printText),
Count);

** Wenn Sie drucken, ordentlich Dinge fertig sind oben:
EndPagePrinter(PrinterHandle); {end der Seite}
EndDocPrinter(PrinterHandle); {end des Dokuments}
Wenn PrinterHandle <> 0 {Wenn haben wir ein Druckerhandle}
beginnen
ClosePrinter(PrinterHandle); {Schließen Sie Drucker}
PrinterHandle: = 0; {zeigen Sie, dass wir den Drucker geschlossen haben}
Ende;

Ich denke, dass über sie abdeckt. Hoffe, das hilft.