Cómo usar VBA para imprimir por lotes todas las hojas de trabajo de "Informe" en todos los libros de trabajo en la misma carpeta y usar VBA para ajustar la impresión de cada hoja de trabajo a una página.
Sub Batch Print()
Atenuar mis archivos
Atenuar la ruta tan larga
Con Application.FileDialog(msoFileDialogFolderPicker)
.Find Carpeta"
Si .Mostrar Entonces
ruta = .SelectedItems(1)
Finalizar si
Terminar con
misarchivos = Dir(ruta & "\*.xlsx")
En caso de error, reanudar a continuación
Application.ScreenUpdating = True