在vba中发送Ascii命令

Question

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

我正在写一个非常简单的POS程序，以在酒吧取得股票。该计划的一部分是一个Till点功能。我正在写excel VBA。我有一个通用的pos打印机连接到一个通用的钱箱。打印机通过USB连接到PC。

我的问题：打印收据时，我无法将钱箱打开。这是打印收件罚款，但我不知道如何发送一个ascii - esc/pos命令到打印机。

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

作为最后的手段，Ive尝试将这些字符粘贴到单元格中并使用单元格（“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