Forzar salida por otra impresora

Fígaro, teniendo en cuenta que comentas que es un documento basado en una plantilla, te
paso el siguiente código para que pruebes. Este lo pegas en un módulo de tu plantilla.

Sub CambiaImpresora()
Dim Impre As String
Impre = ActivePrinter ' se guarda cual es tu impresora activa
ActivePrinter = "\\Fangorn\Lexmark Z12 Color Jetprinter" 'aqui va la ruta y el nombre
de tu otra impresora, con lo cual la cambia
ActiveDocument.PrintOut False, , , , , , , 1 'imprime una copia del documento
ActivePrinter = Impre 'vuelve a asignar la impresora original
End Sub

Recuerda cambiar en ActivePrinter la impresora que corresponde.
La macro la puedes ejecutar desde el menú Herramientas - Macro o puedes asignarla un botón
o tecla rápida.

Suerte
Nilda Beatriz Díaz
MS - MVP
Desde el tercer planeta a partir del Sol
"Figaro" escribió en el mensaje
news:

Hola,
Me guastaría saber si hay alguna forma de forzar a un documento a
imprimirse desde Word 2000 por una impresora determinada, me explico:

Tengo un impresora HP 9000 con duplex incluido con la que imprimo
habitualmente y sin problemas.

He creado en la carpeta de impresoras otra impresora más, pero esta
configurada sin el duplex, para usarla desde otros programas que no
necesitan imprimir por ambas caras

Habitualmente desde Word imprimo por las dos caras, pero de vez en cuando
necesito sacar un tipo de documentos, basados siempre en la misma
plantilla pero sólo por una cara, con lo que tengo que cambiar la
impresora al imprimir y recordar volver a cambiarla otra vez antes de
imprimir a doble cara.

La pregunta en sí es esta: ¿Existe algún modo en Word de "asociar" un
documento o una plantilla a una impresora determinada?

Gracias

"Nilda Beatriz Díaz" wrote in
news:#R$:


Gracias, lo probaré el lunes en la oficina y te comento el resultado.
Un saludo.
FIgaro

Fígaro, teniendo en cuenta que comentas que es un documento basado en
una plantilla, te paso el siguiente código para que pruebes. Este lo
pegas en un módulo de tu plantilla.

Sub CambiaImpresora()
Dim Impre As String
Impre = ActivePrinter ' se guarda cual es tu impresora activa
ActivePrinter = "\\Fangorn\Lexmark Z12 Color Jetprinter" 'aqui va
la ruta y el nombre
de tu otra impresora, con lo cual la cambia
ActiveDocument.PrintOut False, , , , , , , 1 'imprime una copia
del documento ActivePrinter = Impre 'vuelve a asignar la impresora
original
End Sub

Recuerda cambiar en ActivePrinter la impresora que corresponde.
La macro la puedes ejecutar desde el menú Herramientas - Macro o
puedes asignarla un botón o tecla rápida.

"Nilda Beatriz Díaz" wrote in
news:#R$:

Funciona perfectamente, gracias por tu ayuda.
Un saludo
figaro

Dim Impre As String
Impre = ActivePrinter ' se guarda cual es tu impresora activa
ActivePrinter = "\\Fangorn\Lexmark Z12 Color Jetprinter" 'aqui va
la ruta y el nombre
de tu otra impresora, con lo cual la cambia
ActiveDocument.PrintOut False, , , , , , , 1 'imprime una copia
del documento ActivePrinter = Impre 'vuelve a asignar la impresora
original

;-DD

Suerte
Nilda Beatriz Díaz
MS - MVP
Desde el tercer planeta a partir del Sol
"Figaro" escribió en el mensaje
news:

"Nilda Beatriz Díaz" wrote in
news:#R$:

Funciona perfectamente, gracias por tu ayuda.
Un saludo
figaro

> Dim Impre As String
> Impre = ActivePrinter ' se guarda cual es tu impresora activa
> ActivePrinter = "\\Fangorn\Lexmark Z12 Color Jetprinter" 'aqui va
> la ruta y el nombre
> de tu otra impresora, con lo cual la cambia
> ActiveDocument.PrintOut False, , , , , , , 1 'imprime una copia
> del documento ActivePrinter = Impre 'vuelve a asignar la impresora
> original
>