MsgBox "当前活动的打印机的名称是:" & ActivePrinter
本示例将网络 HP LaserJet IIISi 打印机设置为活动打印机。
Application.ActivePrinter = "HP LaserJet IIISi on \\host\laser"