在 vba 中发送 Ascii 命令

Question

我对vba相当陌生。抱歉，如果这是一个简单的问题，但是在谷歌上 3 天后，我开始感到愚蠢。

我正在编写一个非常简单的POS程序来盘点酒吧。该程序的一部分是耕点功能。我正在用 excel VBA 编写。我有一台通用 pos 打印机连接到通用现金抽屉。打印机通过USB连接到PC。

我

的问题：打印收据时，我无法打开现金抽屉。它打印食谱很好，但我不知道如何将 ascii - esc/pos 命令发送到打印机。

我知道我应该使用"chr（27），chr（112）"，但是怎么做？！

作为最后的手段，我尝试将这些字符粘贴到单元格中并使用 cells（"A1"）.printout 函数，但这只是将其作为要打印的文本而不是命令发送到打印机。

任何帮助将不胜感激。

马尔尚特

Answer 1

此链接建议：

Option Explicit
Sub testme01()
Open "LPT1:" For Output As #1
Print #1, chr(27)+chr(112)
Close #1
End Sub