最終的に印刷されるワークシートを作成するときは、ドキュメントの最初のページで、後続のページとは異なるフッターを使用することをお勧めします。これをExcelで直接行う方法はありませんが、マクロを使用してタスクを実行できます。

次のマクロは、印刷内容に応じてワークシートのフッターを設定します。実際には、最初のページのフッターを設定してから、そのページを印刷します。次に、他のページのフッターを設定し、それらを印刷します。

Sub PrintSheet()

Dim sP1Left As String     Dim sP1Center As String     Dim sP1Right As String     Dim sP2Left As String     Dim sP2Center As String     Dim sP2Right As String

' Define first-page footers     sP1Left = "First page left"

sP1Center = "First page center"

sP1Right = "First page right"



' Define second-page footers     sP2Left = "Second page left"

sP2Center = "Second page center"

sP2Right = "Second page right"



' Set up and print first page     With ActiveSheet.PageSetup         .LeftFooter = sP1Left         .CenterFooter = sP1Center         .RightFooter = sP1Right     End With     ActiveSheet.PrintOut 1, 1

' Set up and print other pages     With ActiveSheet.PageSetup         .LeftFooter = sP2Left         .CenterFooter = sP2Center         .RightFooter = sP2Right     End With     ActiveSheet.PrintOut 2 End Sub

マクロを使用するには、フッターの定義を変更するだけです。

必要な出力だけを取得するには、[最初のページのフッターを定義する]領域と[2番目のページのフッターを定義する]領域の変数値を変更します。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

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

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

このヒント（11287）は、Microsoft Excel 2007、2010、2013、および2016に適用されます。

Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります：

linkセカンダリページで別のフッターを使用する。