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

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

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ここをクリックして、新しいブラウザタブでその特別なページを開きます。

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

このヒント（11000）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link最後のページを除くプリントアウトの行の繰り返し。