打印到POS显示单元

假设您的打印机连接到串行接口1,只要串行接口参数设置正确,并且您希望向该接口发送一系列字符,则可以尝试此操作…

Sub WriteToCOM()
    Open "COM1:" For Output As #1
        Write #1, "ddd"
    Close #1
End Sub

将此代码粘贴到Excel VBA脚本中,并用F8循环使用-它对我有效

您也可以将“com1:”替换为任何现有的“comx:”或“lptx:”(不要忘记分号!)

我用它来控制业余无线电(设置频率),从一个包含广播电台名称及其频率的excel表。当然,我会使用chr()函数向我的设备发送特殊字符。

宏绑定到控件按钮。我的Excel是Office2003(它已在Office97中工作)

祝你好运 迈克