印刷設定（偶数ページのヘッダー・フッターを設定）OddAndEvenPagesHeaderFooter, EvenPage

2015/10/20

偶数ページに別のヘッダーおよびフッターを設定

偶数ページのヘッダーおよびフッターの内容を設定するには、PageSetup.EvenPage プロパティを使用します。PageSetup.OddAndEvenPagesHeaderFooter プロパティ に、True を指定することで、PageSetup.EvenPage プロパティ に設定した内容が有効になります。（※ Excel 2007 以降のバージョンでのみ使用できます。）

PageSetup.OddAndEvenPagesHeaderFooter プロパティ

True に設定すると、偶数ページでは他のページと異なるヘッダーとフッターが使用されます。値の取得および設定が可能です。ブール型（Boolean）の値を使用します。

【書式】

＜取得＞
object.PageSetup.OddAndEvenPagesHeaderFooter

＜設定＞
object.PageSetup.OddAndEvenPagesHeaderFooter = boolean

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
boolean ・・・ True または、False を指定します。

PageSetup.EvenPage プロパティ

印刷対象の偶数ページのヘッダーおよびフッターを設定する際に使用する Page オブジェクト を取得します。
Page オブジェクト は、LeftHeader プロパティ、CenterHeader プロパティ などを使用して、各ヘッダー、フッター等を表す HeaderFooter オブジェクト を取得することができます。
HeaderFooter オブジェクト の Text プロパティ を使用して、各ヘッダー・フッターの文字列等の設定を行い、Picture プロパティ を使用して、画像の設定を行います。（印刷設定（ページごとに異なるヘッダー・フッターを設定）Page オブジェクト・HeaderFooter オブジェクトを参照）

【書式】

object.PageSetup.EvenPage

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。

偶数ページに他のページと異なるヘッダーを設定した例

サンプルVBAソース

　
Sub Sample_HeaderFooter07()
    
    Dim w As Worksheet
    Dim pict1 As String, pict2 As String
    
    Set w = ActiveSheet
    pict1 = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "/sample01.jpg"
    pict2 = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "/sample02.jpg"
        
    'プリンタとの通信を遮断（印刷設定を高速化）
    Application.PrintCommunication = False
    
    With w.PageSetup
    
        '先頭ページのみ他ページと異なるヘッダーおよびフッターを設定する
        .DifferentFirstPageHeaderFooter = True
        
        '偶数ページに別のヘッダーおよびフッターを設定する
        .OddAndEvenPagesHeaderFooter = True

        
        '【先頭ページのヘッダー・フッターの設定】
        With .FirstPage
        
            'ヘッダー中央に、文字列「[シート名] 先頭のページ」
            '文字サイズ 24、色 青、太字、二重下線
            .CenterHeader.Text = "&24&K0000FF&B&E&A 先頭のページ"
        
            'フッター中央に、ページ数と総ページ数を表示
            .CenterFooter.Text = "&P / &N ページ"
        
        End With

        
        '【偶数ページのヘッダー・フッターの設定】
        With .EvenPage

            '表示する画像のパス＆名前
            .CenterHeader.Picture.Filename = pict2
            
            '画像の縦横サイズの比率を維持
            .CenterHeader.Picture.LockAspectRatio = msoTrue
        
            '元画像のサイズ 500
            .CenterHeader.Picture.Width = 250
        
            '元画像のサイズ 250
            .CenterHeader.Picture.Height = 125
                                                        
            '画像の色（自動）
            .CenterHeader.Picture.ColorType = msoPictureAutomatic
        
            '画像の明度（ 50% ）
            .CenterHeader.Picture.Brightness = 0.5
        
            '画像のコントラスト（ 50% ）
            .CenterHeader.Picture.Contrast = 0.5
        
            'ヘッダー中央に画像を表示
            .CenterHeader.Text = "&G"
            
            'フッター中央に、ページ数と総ページ数を表示
            .CenterFooter.Text = "&P / &N ページ"
        
        End With

        
        '【上記以外のページのヘッダー・フッターの設定】
        
        '表示する画像のパス＆名前
        .CenterHeaderPicture.Filename = pict1
        
        '画像の比率を維持
        '※元画像との比率が異なる場合は Height の値が基準となる
        .CenterHeaderPicture.LockAspectRatio = msoTrue

        '元画像のサイズ 500
        .CenterHeaderPicture.Width = 500
        
        '元画像のサイズ 300
        .CenterHeaderPicture.Height = 150
        
        '画像の色（自動）
        .CenterHeaderPicture.ColorType = msoPictureAutomatic
        
        '画像の明度（ 50% ）
        .CenterHeaderPicture.Brightness = 0.5
        
        '画像のコントラスト（ 50% ）
        .CenterHeaderPicture.Contrast = 0.5

        'トリミングの範囲を設定
        .CenterHeaderPicture.CropTop = 0
        .CenterHeaderPicture.CropBottom = 250
        .CenterHeaderPicture.CropLeft = 0
        .CenterHeaderPicture.CropRight = 210
        
        'ヘッダー中央に画像を表示
        .CenterHeader = "&G"
        
        'フッター中央に、ページ数と総ページ数を表示
        .CenterFooter = "&P / &N ページ"
    
    
    End With

    'プリンタとの通信を再開
    Application.PrintCommunication = True
    
    'プレビュー表示
    w.PrintPreview
    
End Sub

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

Sub Sample_HeaderFooter07()

Dim w As Worksheet

Dim pict1 As String, pict2 As String

Set w = ActiveSheet

pict1 = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "/sample01.jpg"

pict2 = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "/sample02.jpg"

'プリンタとの通信を遮断（印刷設定を高速化）

Application.PrintCommunication = False

With w.PageSetup

'先頭ページのみ他ページと異なるヘッダーおよびフッターを設定する

.DifferentFirstPageHeaderFooter = True

'偶数ページに別のヘッダーおよびフッターを設定する

.OddAndEvenPagesHeaderFooter = True

'【先頭ページのヘッダー・フッターの設定】

With .FirstPage

'ヘッダー中央に、文字列「[シート名] 先頭のページ」

'文字サイズ 24、色青、太字、二重下線

.CenterHeader.Text = "&24&K0000FF&B&E&A 先頭のページ"

'フッター中央に、ページ数と総ページ数を表示

.CenterFooter.Text = "&P / &N ページ"

End With

'【偶数ページのヘッダー・フッターの設定】

With .EvenPage

'表示する画像のパス＆名前

.CenterHeader.Picture.Filename = pict2

'画像の縦横サイズの比率を維持

.CenterHeader.Picture.LockAspectRatio = msoTrue

'元画像のサイズ 500

.CenterHeader.Picture.Width = 250

'元画像のサイズ 250

.CenterHeader.Picture.Height = 125

'画像の色（自動）

.CenterHeader.Picture.ColorType = msoPictureAutomatic

'画像の明度（ 50% ）

.CenterHeader.Picture.Brightness = 0.5

'画像のコントラスト（ 50% ）

.CenterHeader.Picture.Contrast = 0.5

'ヘッダー中央に画像を表示

.CenterHeader.Text = "&G"

'フッター中央に、ページ数と総ページ数を表示

.CenterFooter.Text = "&P / &N ページ"

End With

'【上記以外のページのヘッダー・フッターの設定】

'表示する画像のパス＆名前

.CenterHeaderPicture.Filename = pict1

'画像の比率を維持

'※元画像との比率が異なる場合は Height の値が基準となる

.CenterHeaderPicture.LockAspectRatio = msoTrue

'元画像のサイズ 500

.CenterHeaderPicture.Width = 500

'元画像のサイズ 300

.CenterHeaderPicture.Height = 150

'画像の色（自動）

.CenterHeaderPicture.ColorType = msoPictureAutomatic

'画像の明度（ 50% ）

.CenterHeaderPicture.Brightness = 0.5

'画像のコントラスト（ 50% ）

.CenterHeaderPicture.Contrast = 0.5

'トリミングの範囲を設定

.CenterHeaderPicture.CropTop = 0

.CenterHeaderPicture.CropBottom = 250

.CenterHeaderPicture.CropLeft = 0

.CenterHeaderPicture.CropRight = 210

'ヘッダー中央に画像を表示

.CenterHeader = "&G"

'フッター中央に、ページ数と総ページ数を表示

.CenterFooter = "&P / &N ページ"

End With

'プリンタとの通信を再開

Application.PrintCommunication = True

'プレビュー表示

w.PrintPreview

End Sub

実行結果

- ブック・シートの操作 EvenPage プロパティ, OddAndEvenPagesHeaderFooter プロパティ, PageSetup プロパティ, VBA基本, Worksheet オブジェクト, エクセルVBA, ブック・シートの操作, 印刷

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

: ワークシートの追加・削除（Add メソッド・Delete メソッド）

新しいワークシートを作成 Add メソッドで、新しいワークシートを指定した場所に …

: 保存時にバックアップファイルが作成されるかどうかを確認（CreateBackup プロパティ）

バックアップファイルが作成されるかどうかを確認 CreateBackup プロパ …

: アウトライン記号の表示・非表示（DisplayOutline プロパティ）

アウトライン記号の表示・非表示（DisplayOutline プロパティ） Di …

: 画面の上端・左端を設定（ScrollRow プロパティ、ScrollColumn プロパティ）

画面の上端・左端を設定 ScrollRow プロパティで、指定した行を画面上端に …

: 数式を表示（DisplayFormulas プロパティ）

数式を表示（DisplayFormulas プロパティ）セルに数式が入力されて …

: 印刷実行前に総ページ数を取得（ExecuteExcel4Macro メソッド）

印刷の総ページ数を取得（ExecuteExcel4Macro メソッド） Exc …

: ブックの変更が保存されているかを確認する（Saved プロパティ）

ブックの変更が保存されているかを確認する（Saved プロパティ） Saved …

: 印刷設定を高速化（PrintCommunication プロパティ）

PrintCommunication プロパティ PrintCommunicat …

: ワークシートをアクティブにする・選択する（Activate, Select）

Activate メソッド・Select メソッド Activate メソッドは …

: ブックの表示・非表示（Visible プロパティ）

ブック表示・非表示（Visible プロパティ）ブック（ウィンドウ）が表示され …

PREV: 印刷設定（先頭ページのヘッダー・フッターを設定）DifferentFirstPageHeaderFooter, FirstPage
NEXT: 印刷設定を高速化（PrintCommunication プロパティ）

印刷設定（偶数ページのヘッダー・フッターを設定）OddAndEvenPagesHeaderFooter, EvenPage

偶数ページに別のヘッダーおよびフッターを設定

PageSetup.OddAndEvenPagesHeaderFooter プロパティ

引数・戻り値

PageSetup.EvenPage プロパティ

引数・戻り値

偶数ページに他のページと異なるヘッダーを設定した例

サンプルVBAソース

実行結果

Message コメントをキャンセル

関連記事

ワークシートの追加・削除（Add メソッド・Delete メソッド）

保存時にバックアップファイルが作成されるかどうかを確認（CreateBackup プロパティ）

アウトライン記号の表示・非表示（DisplayOutline プロパティ）

画面の上端・左端を設定（ScrollRow プロパティ、ScrollColumn プロパティ）

数式を表示（DisplayFormulas プロパティ）

印刷実行前に総ページ数を取得（ExecuteExcel4Macro メソッド）

ブックの変更が保存されているかを確認する（Saved プロパティ）

印刷設定を高速化（PrintCommunication プロパティ）

ワークシートをアクティブにする・選択する（Activate, Select）

ブックの表示・非表示（Visible プロパティ）

SQL文を実行する(ADO)Execute メソッド

並べ替え（Sort オブジェクト, SortFields コレクション）

ブックのコピーを保存（SaveCopyAs メソッド）

テキストファイル（UTF-8）を読み込み、書き出し（ADODB.Stream）

データベース（Oracle）に接続する（OLE DB を使用）

フィルタ解除して全データを表示（ShowAllData メソッド）

クエリにパラメータを渡して結果を取得する（ADO）Command オブジェクト・Execute メソッド

四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

データベース（Oracle）に接続する（ODBC を使用）

列名を取得、列番号を取得（Address プロパティ,Column プロパティ）