印刷タイトルの設定をする
印刷タイトルの設定をする構文は次のとおりです。
'タイトル行を設定する
ActiveSheet.PageSetup.PrintTitleRows = Rows(行の範囲).Address
'タイトル行を設定する例
ActiveSheet.PageSetup.PrintTitleRows = Rows("1").Address '1行目をタイトル行に
ActiveSheet.PageSetup.PrintTitleRows = Rows("1:5").Address '1行目～5行目をタイトル行に
'タイトル行を解除する
ActiveSheet.PageSetup.PrintTitleRows = ""
