Nancy sabe cómo dar formato a una hoja de trabajo para que las filas se repitan en la parte superior de cada página de una impresión. Lo que quiere hacer, sin embargo, es repetir las filas en la parte superior de cada página impresa, excepto en la última.

No hay una forma directa de hacer esto, pero puede simular dicha impresión utilizando una macro para realizar la tarea. Todo lo que necesita hacer es hacer que la macro imprima todo excepto la última página, luego cambie la configuración de la página para que las filas no se repitan y finalmente imprima la página final de la impresión. La siguiente macro proporciona un ejemplo de este enfoque.

Sub PrintWorksheet()

Dim lPages As Long     Dim sTemp As String

lPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

With ActiveSheet.PageSetup         ActiveSheet.PrintOut From:=1, To:=lPages - 1         sTemp = .PrintTitleRows         .PrintTitleRows = ""

ActiveSheet.PrintOut From:=lPages, To:=lPages         .PrintTitleRows = sTemp     End With End Sub

_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 (11000) 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-Repeating_Rows_on_a_Printout_Except_On_the_Last_Page [Repetición de filas en una impresión excepto en la última página].