Excel VBA 将打印机设置为共享打印机

Excel VBA 将打印机设置为共享打印机

我有一个很长的 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并仔细将字符串结果与您指定的结果进行比较。

相关内容