Excel VBA 印刷時に行や列のタイトルを表示する-PrintTitleRows、PrintTitleColumns

Excelで大量にデータがあるものを印刷しようとすると、項目名などが見られなくなってしまいます。

ExcelVBAタイトル

ExcelVBAタイトル

Excel VBAで印刷時にタイトル行タイトル列印刷できるように設定をする方法を記録します。

タイトル行の設定は「PrintTitleRows」プロパティ、タイトル列の設定は「PrintTitleColumns」プロパティを使います。

< スポンサーリンク >





「PrintTitleRows」「PrintTitleColumns」プロパティ構文

タイトル行

WorkSheetオブジェクト.PageSetup.PrintTitleRows = 行

タイトル列

WorkSheetオブジェクト.PageSetup.PrintTitleColumns = 列

  • 行の一部や列の一部だけを指定しても、行全体、列全体が選択されます。
  • このプロパティをFalseまたは空の文字列("")に設定すると、タイトルは非表示になります。

 

タイトル行を表示

アクティブシートの1~2行目をタイトル行に設定します。

Sub test()
    ActiveSheet.PageSetup.PrintTitleRows = Rows("1:2").Address
End Sub

ExcelVBAタイトル

 

タイトル行が表示されました。

ExcelVBAタイトル

 

タイトル列を表示

アクティブシートの1~2列目をタイトル列に設定します。

Sub test()
    ActiveSheet.PageSetup.PrintTitleColumns = Columns("A:B").Address
End Sub

ExcelVBAタイトル

 

タイトル列が表示されました。

ExcelVBAタイトル

 

タイトル行とタイトル列を同時に表示

アクティブシートのタイトル行とタイトル列を同時に設定します。

Sub test()
    With ActiveSheet.PageSetup
        .PrintTitleRows = Rows("1:2").Address
        .PrintTitleColumns = Columns("A:B").Address
    End With
End Sub

ExcelVBAタイトル

 

直接、行や列を指定することもできます。

Sub test()
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$2"
        .PrintTitleColumns = "$A:$B"
    End With
End Sub

ExcelVBAタイトル

ExcelVBAタイトル

 

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします