ナンシーは、印刷物の各ページの上部で行が繰り返されるようにワークシートをフォーマットする方法を知っています。しかし、彼女がやりたいのは、最後のページを除いて、印刷された各ページの上部で行を繰り返すことです。

これを直接行う方法はありませんが、マクロを使用してタスクを実行することにより、このような印刷をシミュ​​レートできます。最後のページを除くすべてをマクロで印刷し、行が繰り返されないようにページ設定を変更して、最後に印刷出力の最後のページを印刷するだけです。次のマクロは、このアプローチの例を示しています。

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_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（3389）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link：/ excelribbon-Repeating_Rows_on_a_Printout_Except_On_the_Last_Page [最後のページを除くプリントアウトの行の繰り返し]。