複数の範囲をタイトルをつけ印刷する：Excel

複数の範囲をExcel VBAで印刷する方法は前のTipsで掲載しました。
指定した範囲はそれぞれ別のページに印刷できますが、各ページにタイトルや項目名を付けたい場合があります。
このページタイトルをExcel VBAで指定する方法です。
ここでは、PrintTitleRowsプロパティを使います。

Excel実行画面

印刷元のExcelシートです。わかり易いように、市町村名の左に連番を付けています。
全国耕地面積一覧エクセルシート

「複数の範囲を印刷する」でタイトルを指定せずに印刷した結果です。
1ページ目にはタイトル「全国耕地面積一覧」と項目名の「市町村名耕地面積田耕地面積田本地面積畑耕地面積」が表示されています。
設定前の1ページ目

2ページ目です。
データ表のみで、タイトルと項目名は表示されていません。
設定前の2ページ目

タイトルと項目名と指定した1ページ目です。
設定後の1ページ目

タイトルと項目名と指定した2ページ目です。
未指定ページとは異なり、タイトルと項目名が表示され見やすくなりました。
設定後の2ページ目

Excel VBAコード

コマンドボタン1と2の違いは、Showメソッドの引数にです。

Private Sub CommandButton1_Click()
    Worksheets("Sheet1").PageSetup.PrintTitleRows = "$5:$7"

    Worksheets("Sheet1").PageSetup.PrintArea = ("B8:G10,B15:E19")
    Worksheets("Sheet1").PrintOut preview:=True
End Sub

[関連リンク］
複数の範囲を印刷する
離れた列を印刷する

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

複数の範囲をタイトルをつけ印刷する ： Excel

Excel実行画面

Excel VBAコード

複数の範囲をタイトルをつけ印刷する： Excel