複数の範囲をタイトルをつけ印刷する : Excel(エクセル)

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

Excel Tipsメニューに戻る

スポンサーリンク






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 Tipsメニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved