VBAのIE制御

こちらでは、Sheetオブジェクトに含まれるPageSetupオブジェクトのLeftHeaderプロパティなどを利用して、用紙のヘッダー・フッターに情報を印刷する方法について解説しています。

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

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

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

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

目次

• はじめに
• 利用するプロパティについて
  • LeftHeaderプロパティ
  • CenterHeaderプロパティ
  • RightHeaderプロパティ
  • LeftFooterプロパティ
  • CenterFooterプロパティ
  • RightFooterプロパティ
• 用紙のヘッダー・フッターに情報を印刷するサンプルコード
  • 実行結果
  • 解説
• まとめ
• エクセルVBAの印刷設定一覧

はじめに

こちらでは、LeftHeaderプロパティやLeftFooterプロパティを利用して用紙のヘッダー・フッターに情報を印刷する方法について解説します。

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

• LeftHeaderプロパティ
• CenterHeaderプロパティ
• RightHeaderプロパティ
• LeftFooterプロパティ
• CenterFooterプロパティ
• RightFooterプロパティ

LeftHeaderプロパティとは

PageSetupオブジェクトのLeftHeaderプロパティは左側に配置するヘッダーを設定します。

CenterHeaderプロパティとは

PageSetupオブジェクトのCenterHeaderプロパティは中央に配置するヘッダーを設定します。

RightHeaderプロパティとは

PageSetupオブジェクトのRightHeaderプロパティは右側に配置するヘッダーを設定します。

LeftFooterプロパティとは

PageSetupオブジェクトのLeftFooterプロパティは左側に配置するフッターを設定します。

CenterFooterプロパティとは

PageSetupオブジェクトのCenterFooterプロパティは中央に配置するフッターを設定します。

RightFooterプロパティとは

PageSetupオブジェクトのRightFooterプロパティは右側に配置するフッターを設定します。

用紙のヘッダー・フッターに情報を印刷するサンプルコード

今回のVBAコードは用紙のヘッダー・フッターに情報を印刷するマクロになります。

Sub sample()

    With Sheets("Sheet1").PageSetup
    
        .LeftHeader = "&F"
        .CenterHeader = "&A"
        .RightHeader = "&D"
        
        .LeftFooter = "&T"
        .CenterFooter = "&P"
        .RightFooter = "&N"
    
    End With

End Sub

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

実行結果

解説

sampleプロシージャのSubステートメントに引数は設定されていません。まず、Withステートメントのオブジェクト名に「Sheets("Sheet1").PageSetup」を設定しました。これによりオブジェクト名を省略して記述できるようになりました。また、「Sheet1」シートオブジェクトに含まれるPageSetupオブジェクトをを設定することで、ページ設定属性(左余白、下余白、用紙サイズなど)のプロパティを利用できます。今回は用紙のヘッダー・フッターに情報を印刷するLeftHeaderプロパティやLeftFooterプロパティなどに「書式コード」が設定されていますので、処理を実行すると「Sheet1」シートの印刷する用紙のヘッダー・フッターに書式コードで設定した情報が印刷されます。最後はEndステートメントを利用してsampleプロシージャを終了させます。

尚、PaperSizeプロパティの書式コードは以下になります。

それぞれのプロパティの設定値は「"(ダブルクォーテーション)」の文字列で設定しますが、書式コードを複数組み合わせて設定することもできます。

以下の事例ではCenterFooterプロパティに「&P / &N」を設定しています。こちらは「ページ番号 / すべてのページ数」になりますので、総ページ数5ページの2ページを印刷する場合は、「2 / 5」が印刷されます。

Sub sample()

    Sheets("Sheet1").PageSetup.CenterFooter = "&P / &N"

End Sub

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

まとめ

今回は、Sheetオブジェクトに含まれるPageSetupオブジェクトのPaperSizeプロパティを利用して、用紙のヘッダー・フッターに情報を印刷する方法について解説しました。次回は、エクセルVBAでExcelの印刷範囲を設定する方法について解説します。

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

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