【VBA研究】打印表单时指定打印机

作者：iamlaosong

我用Excel做做了一个打印拣货单标签的工具，实际上是打印邮件标签兼做拣货单，由于仓库电脑需要连接多台打印机（不同标签用纸不同，换纸还不如换打印机），所以打印标签时，经常要改变默认打印机，一旦忘了修改，就会打印出一堆废纸来。那么，不改变默认打印机，能不能将标签打印到指定的打印机上面呢？

答案是肯定的。

打印时指定打印机只需要提供ActivePrinter参数内容就可以了，下面是打印一张单据的代码，其中变量ptName内容就是打印机名称，从单元格中读取：

    ptName = Cells(4, "M")  

打印代码如下：

'单行打印
Sub SinglePrint()
    Dim rr As Long, ptName As String
    
    stName = "规格"
    SizeNo = Sheets(stName).[A1].End(xlDown).Row
    arrSize = Sheets(stName).Range("A2:D" & SizeNo).Value
    SizeNo = SizeNo - 1