本示例显示活动打印机名称。

MsgBox "当前活动的打印机的名称是:" & ActivePrinter

 

本示例将网络 HP LaserJet IIISi 打印机设置为活动打印机。

Application.ActivePrinter = "HP LaserJet IIISi on \\host\laser"