控制面板怎么改打印机名字看这里!Excel VBA 常见技巧20-设置活动打印机的名称

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

#001 Sub myPrinter()

#002 Dim myPrinter As String

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

#004 A = 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所示。