Application.ActivePrinter (Word)

Muestra o establece el nombre de la impresora activa.

Configuración de la impresora mediante la propiedad ActivePrinter, cambia la impresora predeterminada.

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