Cambiar impresora predeterminada de sistema

Necesito su ayuda para poder cambiar la impresora donde se imprimirá un archivo. Tengo dos situaciones, una donde necesito imprimir una hoja del libro y puedo seleccionar y cambiar la impresora activa mediante el cuadro de dialogo

Application.Dialogs(xlDialogPrinterSetup).Show

Esta parte funciona sin problemas, ya que el código modifica la impresora activa de excel, pero la otra situación es la que no consigo imprimir en otra impresora.

Estoy generando contratos mediante plantillas de word (dotx) y poniendo el código para imprimir solo consigo que imprima en la impresora predeterminada, no hace el cambio a la impresora seleccionada. ¿Alguna sugerencia?