Application.ActivePrinter Property (Excel)
Returns or sets the name of the active printer. Read/write String.
Syntax
expression .ActivePrinter
expression A variable that represents an Application object.
Example
This example displays the name of the active printer.
MsgBox "The name of the active printer is " & _
Application.ActivePrinter