大きなワークシートがある場合は、「パーツ」で印刷することをお勧めします

各パーツのヘッダーまたはフッターに含まれる情報を自動的に変更します。 Excelでこれを行う本質的な方法はありません。最善のアプローチは、次のことを行うマクロです。

。名前付き範囲に基づいて印刷領域を設定します。

。別の名前付き範囲に基づいてヘッダーまたはフッターを設定します。

。印刷領域を印刷します。

。必要な印刷領域ごとに、手順1〜3を繰り返します。

これらの手順では、名前付き範囲を使用する必要があることに注意してください。印刷するワークシートの各部分に名前付き範囲を設定し、各印刷領域に必要なヘッダーまたはフッター情報を表す名前付き範囲（単一のセル）を設定できます。次のマクロは、上記の手順を実装します。

Sub PrintRegions()

Dim x As Integer

'Change the dimension of the arrays to equal the number '   of printing areas you have     Dim Region(4) As String     Dim Head(4) As String

'Fill this array with the names of the ranges to be printed     Region(1) = "North"

Region(2) = "South"

Region(3) = "East"

Region(4) = "West"



'Fill this array with the names of the ranges to be in the header     Head(1) = "NorthHead"

Head(2) = "SouthHead"

Head(3) = "EastHead"

Head(4) = "WestHead"



For x = 1 To UBound(Region)

ActiveSheet.PageSetup.PrintArea = Range(Region(x)).Address          ActiveSheet.PageSetup.LeftHeader = Range(Head(x)).Value          ActiveWindow.SelectedSheets.PrintOut Copies:=1     Next End Sub

この例では、ワークシートの4つの領域のみを印刷します。これらの領域には、北、南、東、西の名前が付けられています。同様に、ヘッダーの左側の部分に使用される名前付き範囲（実際には単一のセル）は、NorthHead、SouthHead、EastHead、およびWestHeadです。

注：

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

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

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

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

link動的ヘッダーとフッター。