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

它应该是打印一条线然后切纸，但它开始从顶部切纸

任何人都可以帮我这个吗？

更新：基本上我想要的是制作小标签，其上写有日期和发票，标签最长1厘米。

Answer 1

在打印的每一行之后，您正在循环内部执行部分剪切（ESC m）。我想你可能想要删除那一行：

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

循环之后，然后在循环完成后执行feed-and-cut（部分剪切）操作（GS V 66 0）。我认为您可能希望在打印后保留该行以执行剪切。

POS打印机切割机在错误的位置切割

1 个答案: