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 设置活动打印机
,免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com