Hola estoy tratando de imprimir el archivo de Word anexado con una Macro a ambas caras y 2 páginas por hoja, el siguiente codigo lo he sacado con la grabadora de macros.
Si me funciona pero solamente cuando la estoy grabando, posteriormente utilizando solo el codigo ya no funciona.
Alguien que me ayude? Gracias.
Sub Macro1()
'
' Macro1 Macro
'
'
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
Hola estoy tratando de imprimir el archivo de Word anexado con una Macro a ambas caras y 2 páginas por hoja, el siguiente codigo lo he sacado con la grabadora de macros.
Si me funciona pero solamente cuando la estoy grabando, posteriormente utilizando solo el codigo ya no funciona.
Alguien que me ayude? Gracias.
Sub Macro1() ' ' Macro1 Macro ' ' Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _ wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _ PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _ PrintZoomPaperHeight:=0 End Sub
QUÉ ES EL PENSAMIENTO SISTÉMICO.docm