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

その後、行を印刷してから紙をカットする必要がありますが、上から紙をカットし始めます

これについて私を助けることができる体はありますか？

更新：基本的に私が欲しいのは、日付と請求書が書かれた小さなタグを作り、タグの長さは最大1cmです.

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 に答える