1

私はvbaにかなり慣れていません。これが簡単な質問である場合はお詫びしますが、Googleで3日後、私はばかげていると感じ始めました.

バーで在庫を取るための非常に単純な POS プログラムを作成しています。プログラムの一部にチルポイント機能があります。エクセルVBAで書いています。一般的なキャッシュ ドロアーに一般的な pos プリンターを接続しています。プリンターはUSB経由でPCに接続されています。

私の質問: レシートが印刷されたときに、キャッシュ ドロワーが開きません。レシートは正常に印刷されていますが、ascii - esc/pos コマンドをプリンターに送信する方法がわかりません。

"chr(27), chr(112)" を使用する必要があることはわかっていますが、どうすれば?!

最後の手段として、これらの文字をセルに貼り付けて、cells("A1").printout関数を使用しようとしましたが、コマンドではなく、印刷するテキストとしてプリンターに送信するだけです。

どんな助けでも大歓迎です。

行商人

4

1 に答える 1

1

このリンクは次のことを示唆しています。

Option Explicit
Sub testme01()
Open "LPT1:" For Output As #1
Print #1, chr(27)+chr(112)
Close #1
End Sub
于 2013-02-01T16:34:42.480 に答える