南希（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培训的来源。

本技巧（3389）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

重复除最后一页上的打印输出上的行。