Si tiene muchos libros de trabajo acumulados a lo largo de los años, es posible que deba imprimir algunas de las hojas de trabajo de cada uno de ellos. Por ejemplo, es posible que tenga una carpeta que contenga un libro de trabajo para cada una de las divisiones de su empresa durante la década anterior. Si su empresa tiene ocho divisiones, eso significa que tiene 80 libros de trabajo en la carpeta. Ahora, si necesita imprimir las cifras del segundo y tercer trimestre (de las hojas de trabajo segunda y tercera de cada libro de trabajo), comienza a ver el problema. Cargar cada libro de trabajo y luego imprimir las hojas seleccionadas podría llevar una gran cantidad de tiempo.

Una forma más rápida es crear una macro que imprima por usted.

La siguiente macro comienza pidiéndole una ruta de directorio. Siempre que especifique una ruta, la macro comienza a cargar cada archivo de libro de trabajo en el directorio y luego imprime la segunda y tercera hoja de trabajo de cada uno. (A la macro realmente no le importa qué tipo de archivos de libro de trabajo hay en el directorio; podrían ser archivos XLS, XLSX o XLSM. Debería cargarlos todos). Una vez impreso, el libro de trabajo se cierra.

Public Sub PrintWorkbooks()

Dim sCurFile As String     Dim sPath As String

'Get the path     sPath = InputBox("Starting path?", "PrintWorkbooks")

If sPath <> "" Then         On Error Resume Next         Application.ScreenUpdating = False         If Right(sPath, 1) <> "\" Then             sPath = sPath & "\"

End If         sCurFile = Dir(sPath & ".xls", vbNormal)

Do While Len(sCurFile) <> 0             Workbooks.Open sPath & sCurFile, , True             With Workbooks(sCurFile)

.Worksheets(2).PrintOut                 .Worksheets(3).PrintOut                 .Close SaveChanges:=False             End With             sCurFile = Dir             DoEvents         Loop         Application.ScreenUpdating = True         On Error GoTo 0     End If End Sub

Obviamente, si tiene bastantes libros de trabajo en el directorio, la impresión puede llevar bastante tiempo. Es posible que desee encontrar algún momento en el que no tenga nada más que hacer y luego deje que la macro comience a ejecutarse.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (11316) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Printing_Selected_Worksheets [Impresión de hojas de trabajo seleccionadas].