次のコードを使用して、lpt と com ポートを使用してキャッシュ ドロワーを開きます。
Dim intFileNo As Integer = FreeFile()
FileOpen(1, "c:\escapes.txt", OpenMode.Output)
PrintLine(1, Chr(27) & "p" & Chr(0) & Chr(25) & Chr(250))
FileClose(1)
Shell("print /d:com1 c:\escapes.txt", vbNormalFocus)
上記のコードはうまく機能します。ただし、クライアントの 1 つが USB を使用しています。
USBポートを使用してキャッシュドロワーを開くコードを知っている人はいますか?
ありがとうございました