在 Access VBA 中将十进制值打印到打印机

Question

我是 Access VBA 新手，但不是编程新手。我创建了一个模仿收银机的简单 Microsoft Access 应用程序。一切似乎都运作良好。我的最后一个障碍是将十进制字符发送到将打开现金抽屉的热敏打印机。

我尝试过 VBA 打印机对象，但似乎不起作用。

找不到好的 win32api 示例。虽然 win32api 可能是最终的解决方案。

我需要发送十进制代码27, 112, 0, 127, 127。打印机名称是“EOM-200 V1.2”

提前致谢。

杰德

Dim hexCode As String
  
Set Application.Printer = Application.Printers("EOM-200 V1.2")
  
Open Application.Printer.Port For Output As #1
  
hexCode = Chr(27) & Chr(112) & Chr(0) & Chr(127) & Chr(127)
      
Print #1, hexCode
  
Close #1
    
Set Application.Printer = Nothing

上面的代码什么也没做

Answer 1

可能是 Unicode 搞砸了

hexCode

。尝试：

Print #1, StrConv(hexcode, vbFromUnicode)

' or:

Print #1, ChrB(29) & ChrB(107) & ChrB(72) & ChrB(12)