複数のシートでタイトルを繰り返し印刷するにはどうすればよいですか？

各ページの上部にヘッダー行を印刷することは一般的な方法ですが、複数のシートでタイトル行を繰り返し印刷したことはありますか？この記事では、Excelでこの問題を解決するための簡単な2つの方法をご紹介します。

VBAを使用して複数のワークシートでタイトルを繰り返し印刷する

Kutools for Excelを使用して複数のワークシートでタイトルを繰り返し印刷する

VBAを使用して複数のワークシートでタイトルを繰り返し印刷する

複数のシートでタイトルを繰り返し印刷するための組み込み機能はありませんが、マクロを使用して対応できます。

1. ワークブック内の最初のシートをアクティブにし、 ページ設定 グループの右下隅にあるアンカーをクリックします。 ページレイアウト タブをご覧ください：スクリーンショット：

2. ページ設定 ダイアログで、「 シート 」タブをクリックし、繰り返し印刷したいタイトル行を「 先頭行」から選択し、「 OK」をクリックします。スクリーンショットをご覧ください：

3. Alt + F11 キーを押して「 Microsoft Visual Basic for Applications 」ウィンドウを有効にし、「 挿入 > モジュール 」をクリックして新しい モジュール.

を作成します。4. 次に、以下のコードを空白のスクリプトに貼り付け、F5キーを押してコードを実行します。

VBA: 複数のシートでタイトルを繰り返し印刷する

Sub SetAttributes()
'UpdatebyExtendoffice20170810
    Dim xSheet As Worksheet
    Dim xSheetOne As Worksheet
    Dim xSheets As Sheets
    Set xSheets = ActiveWorkbook.Worksheets
    Set xSheetOne = xSheets(1)
    For Each xSheet In xSheets
        xSheet.PageSetup.PrintTitleRows = xSheetOne.PageSetup.PrintTitleRows
    Next xSheet
End 

VBAコードを実行すると、各シートの最上行が印刷時に各ページの上部に繰り返し表示されます。

Kutools for Excelを使用して複数のワークシートでタイトルを繰り返し印刷する

Kutools for Excelをインストールしている場合、そのページ設定のコピー機能を使用して、あるシートから他のすべてまたは特定のページ設定を迅速にコピーすることができます。

Kutools for Excelをインストール後、以下のように操作してください。（今すぐKutools for Excelを無料ダウンロード！）

1. 1つのシートを選択します。例えば、Sheet1を選択し、 ページ設定 グループの右下隅にあるアンカーをクリックします。 ページレイアウト タブをご覧ください：スクリーンショット：

2. ページ設定 ダイアログで、「 シート 」タブをクリックし、繰り返し印刷したいタイトルを「 先頭行」から選択します。スクリーンショットをご覧ください：

3. 「 OK」をクリックし、次に「 Kutools Plus > 印刷 > ページ設定のコピー」をクリックします。スクリーンショット：

4. ページ設定のコピー ダイアログで、同じページ設定を適用したいシート名を「 コピー先 」リストでチェックし、次に「 先頭行 」を「 オプション 」リストでチェックします。スクリーンショットをご覧ください：

5. 「Ok」をクリックします。これで、最上行が複数のシートにわたって繰り返し印刷されます。

デモ： Kutools for Excelを使用して複数のワークシートでタイトルを繰り返し印刷する