印刷タイトルを設定する

　Excel VBA で印刷タイトルを設定するには、以下の2つの方法があります。

1. PageSetup.PrintTitleRows と PageSetup.PrintTitleColumns プロパティを使用する

　この方法は、最もシンプルでわかりやすい方法です。

VBA
Sub SetPrintTitles()

' ワークシート1の印刷タイトルを設定します
With Worksheets(1)
    ' 1行目を印刷タイトル行に設定します
    .PageSetup.PrintTitleRows = "$1"
    ' A列を印刷タイトル列に設定します
    .PageSetup.PrintTitleColumns = "$A"
End With

End Sub
コードは注意してご使用ください。

　上記のコードを実行すると、ワークシート1の1行目とA列が印刷タイトルとして設定されます。
　印刷タイトルは、各ページの先頭に印刷されます。

1. ActiveSheet.PrintTitles メソッドを使用する

　この方法は、より詳細な設定を行うことができます。

VBA
Sub SetPrintTitles()

' ワークシート1の印刷タイトルを設定します
With ActiveSheet.PrintTitles

    .Row = 1 ' 1行目を印刷タイトル行に設定します
    .Column = 1 ' A列を印刷タイトル列に設定します
    .IconRow = True ' 印刷タイトル行にアイコンを表示します
    .Font.Bold = True ' 印刷タイトル行のフォントを太字にします
    .Font.Size = 12 ' 印刷タイトル行のフォントサイズを12ポイントにします

End With

End Sub
コードは注意してご使用ください。

　上記のコードを実行すると、ワークシート1の1行目とA列が印刷タイトルとして設定されます。
　また、印刷タイトル行にはアイコンが表示され、フォントは太字でサイズ12ポイントになります。

その他

　印刷タイトルを設定する前に、印刷範囲を設定する必要があります。
　複数のワークシートに印刷タイトルを設定するには、ループ処理を使用する必要があります。

参考情報

PageSetup.PrintTitleRows プロパティ (Excel)
PageSetup.PrintTitleColumns プロパティ (Excel)
ActiveSheet.PrintTitles メソッド (Excel) [無効な URL を削除しました]
　上記以外にも、様々な方法で印刷タイトルを設定することができます。ご自身の目的に合った方法を選択してください。