使用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 設置活動打印機
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!