excel中vba打印纸张（ExcelVBA常见技巧20-设置活动打印机的名称）

使用Application 对象的ActivePrinter属性可以设置活动打印机的名称，如下面的代码所示。

#001 Sub myPrinter()

#002 Dim myPrinter As String

#003 myPrinter = "HP LaserJet P1008 在 Ne04:"

#004 Application.ActivePrinter = myPrinter

#005 MsgBox "活动打印机为：" & Left(myPrinter, InStr(myPrinter, "在") - 1)

#006 End Sub

代码解析：

myPrinter过程将活动打印机设置为“HP LaserJet P1008”。

第3行代码指定需要设置为活动打印机的名称，第4行代码通过设置Application 对象的ActivePrinter属性将活动打印机设置为“HP LaserJet P1008”。

第5行代码使用消息框显示活动打印机的名称及型号。

运行myPrinter过程结果如图 67‑1所示。

图 67‑1 设置活动打印机