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

ただし、使用できる回避策がいくつかあります。

まず、Excel用のレポートマネージャーアドインを使用してみてください。このアドインを使用すると、さまざまなビューを定義し、それらのビューを印刷する順序を選択できます。各ビューには固有のヘッダーとフッターを設定することもできます。つまり、必要なフッターを使用して最初のページのビューを設定し、独自のヘッダーとフッターを使用して後続のページのビューを設定できます。次に、レポートマネージャーを使用してレポートを印刷し、目的の出力を作成します。

レポートマネージャーアドインはExcel2002で最後に配布されたことに注意してください。Excel2003を使用している場合でも、レポートマネージャーを使用できます。このナレッジベースの記事では、その使用方法について説明しています。

http://support.microsoft.com/kb/873209

別の回避策は、マクロを使用して印刷を行うことです。次のマクロは、印刷内容に応じてワークシートのフッターを設定します。実際には、最初のページのフッターを設定してから、そのページを印刷します。次に、他のページのフッターを設定し、それらを印刷します。

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

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

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

link:/ excelribbon-Using_a_Different_Footer_on_Secondary_Pages [セカンダリページで別のフッターを使用する]