ActivePrinter Property Example
This example displays the name of the active printer.
MsgBox "The name of the active printer is " & _ Application.ActivePrinter