Imprimir documento

Yo creo que la manera es cambiar la impresora abrir el documento imprimir y
volver a la impresora por defecto
Sub SwitchPrinter()
Dim strActivePrinter As String
strActivePrinter = Application.ActivePrinter
'Tienes que poner el nombre de la impresora como sale en Impresoras.
Application.ActivePrinter = "HPDeskJet 980"
Documents.Open FileName:="carta.doc"
ActiveDocument.PrintOut
Application.ActivePrinter = strActivePrinter
End Sub


Un saludo

Ana Cuesta
Microsoft España

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no
otorga ningún derecho.
"Raúl Sánchez" wrote in message
news:%

¿Como se puede imprimir un documento determinado en una impresora
especifica?
Ejemplo: quiero imprimir el documento CARTA.DOC en la impresora HPDeskjet
980

Muchas gracias

Gracias por tu respuesta Ana, pero necesito ese procedimiento para que
funcione en Access y al probar el código que enviaste, me da problemas
porque no reconoce la sentencia Application.ActivePrinter. ¿Sabrías como
solucionarlo?
Muchas gracias de todas maneras.


"Ana Cuesta [MS]" escribió en el mensaje
news:

Yo creo que la manera es cambiar la impresora abrir el documento imprimir

y

volver a la impresora por defecto
Sub SwitchPrinter()
Dim strActivePrinter As String
strActivePrinter = Application.ActivePrinter
'Tienes que poner el nombre de la impresora como sale en

Impresoras.

Application.ActivePrinter = "HPDeskJet 980"
Documents.Open FileName:="carta.doc"
ActiveDocument.PrintOut
Application.ActivePrinter = strActivePrinter
End Sub


Un saludo

Ana Cuesta
Microsoft España

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y

no

otorga ningún derecho.
"Raúl Sánchez" wrote in message
news:%
> ¿Como se puede imprimir un documento determinado en una impresora
> especifica?
> Ejemplo: quiero imprimir el documento CARTA.DOC en la impresora

HPDeskjet

> 980
>
> Muchas gracias
>
>

Loq ue puedes hacer es crear primero el objeto aplicación de word, para que
te funcione.
Dim WordObj As Object
Dim strActivePrinter As String
Set WordObj = CreateObject("Word.Application")

> strActivePrinter = WordObj.ActivePrinter
> 'Tienes que poner el nombre de la impresora como sale en
Impresoras.
> WordObj.ActivePrinter = "HPDeskJet 980"
> Documents.Open FileName:="carta.doc"
> ActiveDocument.PrintOut
> WordObj.ActivePrinter = strActivePrinter

Un saludo

Ana Cuesta
Microsoft España

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no
otorga ningún derecho.
"Raúl Sánchez" wrote in message
news:%

Gracias por tu respuesta Ana, pero necesito ese procedimiento para que
funcione en Access y al probar el código que enviaste, me da problemas
porque no reconoce la sentencia Application.ActivePrinter. ¿Sabrías como
solucionarlo?
Muchas gracias de todas maneras.


"Ana Cuesta [MS]" escribió en el mensaje
news:
> Yo creo que la manera es cambiar la impresora abrir el documento

imprimir

y
> volver a la impresora por defecto
> Sub SwitchPrinter()
> Dim strActivePrinter As String
> strActivePrinter = Application.ActivePrinter
> 'Tienes que poner el nombre de la impresora como sale en
Impresoras.
> Application.ActivePrinter = "HPDeskJet 980"
> Documents.Open FileName:="carta.doc"
> ActiveDocument.PrintOut
> Application.ActivePrinter = strActivePrinter
> End Sub
>
>
> Un saludo
>
> Ana Cuesta
> Microsoft España
>
> Este mensaje se proporciona "como está" sin garantías de ninguna clase,

y

no
> otorga ningún derecho.
> "Raúl Sánchez" wrote in message
> news:%
> > ¿Como se puede imprimir un documento determinado en una impresora
> > especifica?
> > Ejemplo: quiero imprimir el documento CARTA.DOC en la impresora
HPDeskjet
> > 980
> >
> > Muchas gracias
> >
> >
>
>