Application.ActivePrinter (Word)

Returns or sets the name of the active printer.

Setting the printer using the ActivePrinter property changes the default printer. For more information, see Setting ActivePrinter Changes System Default Printer .

MsgBox "The name of the active printer is " & ActivePrinter