expression.ActivePrinter
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example displays the name of the active printer.
MsgBox "The name of the active printer is " & _
Application.ActiveDocument.ActivePrinter
This example makes a network HP LaserJet IIISi printer the active printer.
Application.ActiveDocument.ActivePrinter = _"HP LaserJet IIISi on \\printers\laser"
This example makes a local HP LaserJet 4 printer on LPT1 the active printer.
Application.ActiveDocument.ActivePrinter = _
"HP LaserJet 4 local on LPT1:"