南希（Nancy）知道如何格式化工作表，以便在打印输出每一页的顶部重复行。但是，她想做的是在除最后一页以外的每个打印页面的顶部重复行。

没有直接的方法可以执行此操作，但是您可以通过使用宏执行此任务来模拟这种打印。您需要做的就是让宏打印最后一页以外的所有内容，然后更改页面设置，以免重复行，最后打印出打印输出的最后一页。下面的宏提供了此方法的示例。

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

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（11000）适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本：

链接：/ excel-Repeating_Rows_on_a_Printout_Except_On_the_Last_Page [重复打印输出，但最后一页除外。