VBAのIE制御

こちらでは、Sheetオブジェクトに含まれるPageSetupオブジェクトのPrintAreaプロパティを利用して、Excelの印刷する範囲設定する方法について解説しています。

プロパティとはオブジェクトの属性を指します。属性とは、そのオブジェクトの情報そのものです。プロパティはその値を取得したり、設定することもできます。プロパティを利用するにはオブジェクト名とプロパティ名の間に「.(ピリオド)」で結んで記述します。

オブジェクト名.プロパティ名

また、プロパティを設定する場合は以下のように「=(イコール)」を記述し設定値を代入します。

オブジェクト名.プロパティ名 = 設定値

目次

• はじめに
• 利用するプロパティについて
  • PrintAreaプロパティ
• 印刷する範囲を設定するサンプルコード
  • 実行結果
  • 解説
• 印刷範囲を解除するサンプルコード
  • 実行結果
  • 解説
• まとめ
• エクセルVBAの印刷設定一覧

はじめに

こちらでは、PrintAreaプロパティを利用したExcelの印刷する範囲を設定をする方法について解説します。今回は、PageSetupオブジェクトのPrintAreaプロパティを利用します。

利用するプロパティについて

• PrintAreaプロパティ

PrintAreaプロパティとは

PageSetupオブジェクトのPrintAreaプロパティは印刷するセル範囲をA1形式の文字列で設定します

印刷する範囲を設定するサンプルコード

今回のVBAコードはExcelの印刷する範囲を設定するマクロになります。

Sub sample()

    Sheets("Sheet1").PageSetup.PrintArea = "B2:D7"

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

「B2～D7」セル範囲が印刷の範囲として設定されます。

解説

sampleプロシージャのSubステートメントに引数は設定されていません。Sheetオブジェクトには「Sheet1」シートが設定されています。そして、「Sheet1」シートオブジェクトに含まれるPageSetupオブジェクトをを設定することで、ページ設定属性(左余白、下余白、用紙サイズなど)のプロパティを利用できます。今回は用紙サイズを設定するPrintAreaプロパティに「B2:D7」が設定されていますので、処理を実行すると「B2～D7」セル範囲が印刷の範囲として設定されます。最後はEndステートメントを利用してsampleプロシージャを終了させます。

印刷範囲を解除するサンプルコード

今回のVBAコードはExcelの印刷する範囲を設定するマクロになります。

Sub sample()

    Sheets("Sheet1").PageSetup.PrintArea = False

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

設定していた印刷範囲が解除されます。

解説

設定していた印刷範囲を解除する場合は、PrintAreaプロパティに「Flase」を設定します。これにより印刷範囲が解除されます。

また、以下のように「""(空の文字列)」を設定した場合も印刷範囲が解除されますので、併せて覚えておきましょう。

Sub sample()

    Sheets("Sheet1").PageSetup.PrintArea = ""

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

まとめ

今回は、SheetオブジェクトのPrintAreaプロパティを利用して、Excelの印刷範囲を設定する方法について解説しました。次回は、エクセルVBAで印刷プレビューを表示する方法について解説します。

エクセルVBAの印刷設定一覧

• 印刷する用紙のサイズを設定する
• 印刷するページの余白を設定する
• 印刷する先頭ページの番号を設定する
• 用紙のヘッダー・フッターに情報を設定する
• 印刷範囲を設定する
• 印刷プレビューを表示する
• シートを印刷する