POS Резак Принтер для резки на неправильном месте

Question

я пытаюсь Отрежьте бумагу после каждой строки в VB6 здесь код

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 

следует печатать линию после того, как разрезают бумагу, но она начала резки бумаги из наверх

Любой орган может мне помочь в этом?

обновление: в основном то, что я хочу, состоит в том, чтобы сделать небольшие теги, на которых записана дата и счет, и тег max 1 см длиной.

Answer 1

Выполняется частичный разрез (ESC m) внутри вашей петли после каждой строки, которую вы печатаете. Я думаю, что вы, вероятно, хотите, чтобы удалить эту строку:

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

После цикла, вы затем выполнить операцию подачи, и вырежьте (частичный разрез) (GS V 66 0) после того, как цикл завершается. Я думаю, вы, вероятно, захотите, чтобы эта строка выполняла разрез после того, как вы напечатали.