POS-Drucker Cutter Schneiden auf falscher Stelle

Question

ich versuche, nach jeder Zeile zu schneiden Papier in VB6 hier sind der Code

Open "LPT1" For Output As #1 
Print #1, Chr$(&H1B); "@"; 'Initializes the printer (ESC @) 
Print #1, Chr$(&H1B); "d"; Chr$(0); 'Prints and line feeding (ESC d) 
Print #1, Chr$(&H1B); "!"; Chr$(17); 'Selects double-height mode 
For a = 1 To 5 
Print #1, "14-January Invoice 01000"; Chr$(&HA); 'Prints and line feed 
Print #1, Chr$(&H1B); "m"; Chr$(&HA); 'Cut Paper 
Next 
Print #1, Chr$(&H1D); "V"; Chr$(66); Chr$(0); 
Close #1 

es einen Zeilendruck nach dann das Papier geschnitten werden sollte, sondern es beginnt Papier von der Schneid top

kann mir irgendjemand dabei helfen?

update: im Grunde, was ich will, ist kleine Tags zu machen, wo Datum und Rechnung darauf geschrieben und maximal 1 cm lang.

Answer 1

Sie führen einen Teilschnitt (ESC m) innerhalb Ihrer Schleife nach jeder zu druckenden Zeile durch. Ich glaube, Sie wahrscheinlich diese Zeile entfernen möchten:

Print #1, Chr$(&H1B); "m"; Chr$(&HA); 'Cut Paper 

Nach der Schleife Sie dann einen Feed-and-Cut (teilweise geschnitten) Betrieb (GS V 66 0) durchführen, nachdem die Schleife abgeschlossen ist. Ich denke, dass Sie diese Linie wahrscheinlich beibehalten möchten, um den Schnitt auszuführen, nachdem Sie gedruckt haben.