Impresion automatica en word
Hola a todos. Tengo una hoja de excel que abre automáticamente un archivo de word, pero no consigo que lo imprima automáticamente una vez abierto y tampoco consigo que cierre word. Quisiera que alguien me pudiera ayudar. Gracias
1 Respuesta
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
Gracias por la respuesta. He hecho un cambio que espero que haya alguien más que le sirva:
wordapp.printout background:=false (para que espere a cerrar hasta que imprima)
wordapp.quit (0) (para que no pregunte)
wordapp.printout background:=false (para que espere a cerrar hasta que imprima)
wordapp.quit (0) (para que no pregunte)
