Impresion automatica en word
Saludos para todos:
Quisiera que alguien me dijera como puedo hacer una macro para que un documento se imprima automáticamente al abrirse y después cierre word. He conseguido con excel que abra word y el archivo pero no lo imprime ni se cierra.
Quisiera que alguien me dijera como puedo hacer una macro para que un documento se imprima automáticamente al abrirse y después cierre word. He conseguido con excel que abra word y el archivo pero no lo imprime ni se cierra.
Respuesta de manucas
1
Prueba esto:
Sub imprime()
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open "C:Mis documentospepe.doc"
WordApp.Visible = True
'Imprimir el archivo
WordApp.PrintOut
WordApp.Quit
Set WordApp = Nothing
End Sub
Sustituye "Mis Documentospepe.doc"
Por tu archivo.
>Mis documentos> empieza y acaba con barras inclinadas
Sub imprime()
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open "C:Mis documentospepe.doc"
WordApp.Visible = True
'Imprimir el archivo
WordApp.PrintOut
WordApp.Quit
Set WordApp = Nothing
End Sub
Sustituye "Mis Documentospepe.doc"
Por tu archivo.
>Mis documentos> empieza y acaba con barras inclinadas
