excel bva向usb打印机发送命令的代码

我正在尝试使用我的Epson TM U220，就像我在安装一台带有WIN 7 64位和Excel2010、无并行端口的新电脑之前所做的那样。过去我用这个简单的代码打开现金抽屉：

Sub drawer_opener()
Open "LPT1" For Output As #1
Print #1, Chr(27) + Chr(112) + Chr(0) + Chr(25) + Chr(250)
Close #1

End Sub

现在我正在使用一个适配器并行USB，但在代码中将“LPT1”更改为“USB001”后，对打开现金抽屉命令没有响应。 经过一些网络调查，我发现下面的代码应该可以工作，但由于某种原因，它不断弹出错误消息

我引用我找到的线索，把所有的功劳都归功于“迈克” 引用 正如您所发现的，这种方法在USB打印机上不起作用。尝试 下面的内容将被替换。我假设USB打印机设置为 您的默认打印机（尽管可以添加代码以查找 当然，你还需要检查你的新电脑 打印机遵循与旧打印机相同的控制代码

迈克

取消报价

我恳请你们中的一些专家尝试一下这段代码，看看它是否对Excel2010不起作用，它是否真的是VBA或者是什么问题。此外，如果没有希望通过软件（代码）解决方案向爱普生打印机发送命令，我必须在PC中安装一个并行端口，并像过去一样开始使用并行电缆

---

事先，Gabriel

更简单的方法是：共享您的USB打印机，然后通过

net use将打印机共享映射到
LPT1:
：

net use LPT1: \\.\PrinterShareName

通过这种方式，您可以尝试使旧代码正常工作。
Tks Turbo J，您是否可以更具体一点。我的意思是，我认为在属性窗口中共享打印机很容易，我应该只写LPT1吗？。或者整行：net use LPT1:\\。\PrinterShareName是必需的（在这种情况下，我的打印机的名称是“ticket”，那么行中的正确语法是什么呢？现在，我如何发送命令？…以同样的方式使用我的旧代码，调用LPT1端口打开等等？嘿，Turbo J。我终于从一个系统人员那里得到了帮助，并最终解决了这个问题：在命令提示符下使用LPT1:\\PCName\\PrinterShareName。您的帮助很大。Slim简单。你是我的英雄。非常感谢！！！向你致意，加布里埃尔
net use LPT1: \\.\PrinterShareName