Impresión no funciona en vba
Tengo esta macro, y me ejecuta la impresora en el pc pero luego no aparece el documento en cola y no imprime...
Sub FORMULA
Dim ruta As String
Dim WordApp As Object
ruta= "C:\Users\Laura\Dropbox\FORMULA.docx"
'
Set WordApp = CreateObject("word.Application")
'Abre archivo en la ruta
WordApp. Documents. Open ruta
WordApp.Visible = True
'Titulo fecha
Sheets("FORMULA"). Range("B6:H19"). Copy
'Se pegara en el documento lo copiado en la hoja de calculo
WordApp. Selection. PasteAndFormat 13
WordApp.ActiveDocument.PrintOut Range:=2 ' wdPrintCurrentPage
'Cerrar word
WordApp.Quit False
Set WordApp = Nothing
Application.ScreenUpdating = True
End Sub
1 Respuesta
Respuesta de Dante Amor
1
¿Ya con un macro anterior sí pudiste imprimir?
¿O siempre has tenido el problema?
A manera de prueba, intenta imprimir la hoja sin pegar datos.
Sub FORMULA
Dim ruta As String
Dim WordApp As Object
ruta= "C:\Users\Laura\Dropbox\FORMULA.docx"
'
Set WordApp = CreateObject("word.Application")
'Abre archivo en la ruta
WordApp. Documents. Open ruta
WordApp.Visible = True
WordApp.ActiveDocument.PrintOut Range:=2 ' wdPrintCurrentPage
'Cerrar word
WordApp.Quit False
Set WordApp = Nothing
Application.ScreenUpdating = True
End Sub
