Returns or sets the name of the active printer. Read/write String.
Example
This example displays the name of the active printer.
MsgBox "The name of the active printer is " & ActivePrinter
This example makes a network HP LaserJet IIISi printer the active printer.
Application.ActivePrinter = "HP LaserJet IIISi on \\printers\laser"
This example makes a local HP LaserJet 4 printer on LPT1 the active printer.
Application.ActivePrinter = "HP LaserJet 4 local on LPT1:"