0

我正在尝试在 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 厘米。

4

1 回答 1

0

ESC m在打印的每一行之后,您正在循环内执行部分剪切 ( )。我认为您可能想删除该行:

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

循环结束后,您将在循环完成后执行进给和剪切(部分剪切)操作 ( GS V 66 0)。我认为您可能希望在打印后保留该行以执行剪切。

于 2016-04-18T14:33:30.460 回答