在vba中发送Ascii命令

Question

我对vba相当新。如果这是一个简单的问题，请注意，但在谷歌3天后我开始觉得愚蠢。

我正在写一个非常简单的POS程序来评估一个酒吧。该程序的一部分是Till point函数。我在excel VBA写作。我有一个连接到通用现金抽屉的通用pos打印机。打印机通过USB连接到电脑。

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

我知道我应该使用“chr（27），chr（112）”，但是怎么样？！

作为最后的手段，我试图在单元格中粘贴这些字符并使用单元格（“A1”）。打印输出功能，但只是将其作为要打印的文本而不是命令发送到打印机。

非常感谢任何帮助。

Marchant的

Answer 1

This link建议：

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