可以使用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所示。

图 67‑1 设置活动打印机

1.《电脑上打印机名称怎么改？总结很全面速看!Excel VBA 常见技巧20-设置活动打印机的名称》援引自互联网，旨在传递更多网络信息知识，仅代表作者本人观点，与本网站无关，侵删请联系页脚下方联系方式。

2.《电脑上打印机名称怎么改？总结很全面速看!Excel VBA 常见技巧20-设置活动打印机的名称》仅供读者参考，本网站未对该内容进行证实，对其原创性、真实性、完整性、及时性不作任何保证。

3.文章转载时请保留本站内容来源地址，https://www.lu-xu.com/why/3164599.html