南希(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及更高版本)找到本技巧的版本: