我有一个很长的 VBA,将单元格从一页复制到另一页,并尝试将 3 页打印到不同的打印机上。
下面的代码似乎没有改变默认打印机,因此所有页面都被发送到同一台打印机。
For i = 0 To 15
curNePrint = Format(i, "00")
On Error Resume Next
Application.ActivePrinter = "\\AtanaWin7PC3\DYMO LableWriter 450 on ne" & curNePrint & ":"
Next i
Worksheets(le).PrintPreview
我已经使用 printPreview 来节省打印机上浪费的纸张。
有人能帮我为每一页设置一台打印机吗?
谢谢
答案1
刚刚尝试了您的代码,我能够成功更改打印机。
我认为您的打印机名称很可能存在拼写错误。
也许 LableWriter 应该是 LabelWriter?
要确定打印机名称应该是什么,我建议手动更改活动打印机,然后执行类似操作Debug.Print Application.ActivePrinter
并仔细将字符串结果与您指定的结果进行比较。