Excelで大量にデータがあるものを印刷しようとすると、項目名などが見られなくなってしまいます。
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
タイトル行が表示されました。
タイトル列を表示
アクティブシートの1~2列目をタイトル列に設定します。
Sub test()
ActiveSheet.PageSetup.PrintTitleColumns = Columns("A:B").Address
End Sub
タイトル列が表示されました。
タイトル行とタイトル列を同時に表示
アクティブシートのタイトル行とタイトル列を同時に設定します。
Sub test()
With ActiveSheet.PageSetup
.PrintTitleRows = Rows("1:2").Address
.PrintTitleColumns = Columns("A:B").Address
End With
End Sub
直接、行や列を指定することもできます。
Sub test()
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$2"
.PrintTitleColumns = "$A:$B"
End With
End Sub
こんな記事も書いています