印刷タイトルを設定する
Excel VBA で印刷タイトルを設定するには、以下の2つの方法があります。
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列が印刷タイトルとして設定されます。
印刷タイトルは、各ページの先頭に印刷されます。
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 を削除しました]
上記以外にも、様々な方法で印刷タイトルを設定することができます。ご自身の目的に合った方法を選択してください。
この記事が気に入ったらサポートをしてみませんか?