La propiedad ActivePrinter en Word establece la impresora predeterminada del sistema

Resumen

Cuando utilice la propiedad ActivePrinter en Word de Microsoft Office para establecer la impresora actual, también se establece la impresora seleccionada sea la impresora predeterminada del sistema. Si no desea cambiar la configuración de la impresora predeterminada del sistema, no utilice la propiedad ActivePrinter.

Más información

Para seleccionar una impresora nueva sin tener que Word cambie la impresora predeterminada del sistema, utilice el método de WordBasic FilePrintSetup con el indicador DoNotSetAsSysDefault establecido en True. Por ejemplo, en lugar de utilizar el código siguiente:
   Set oWord = CreateObject("Word.Application")
   oWord.ActivePrinter = "HP LaserJet 4 on LPT2"
Utilice el código siguiente.
   Set oWord = CreateObject("Word.Application")
   oWord.WordBasic.FilePrintSetup Printer:="HP LaserJet 4 on LPT2", _
      DoNotSetAsSysDefault:=1

Referencias

Para obtener más información acerca de la propiedad ActivePrinter, haga clic en los números de artículo siguientes para verlos en Microsoft Knowledge Base:

162239 código de ejemplo para recuperar el nombre de la impresora activa

177275 cómo crear una macro para cambiar de impresora o controlador de fax