印刷設定（偶数ページのヘッダー・フッターを設定）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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

: WorksheetView オブジェクト

WorkSheetView オブジェクト行列番号や枠線の表示・非表示の設定など …

: 並べて比較（CompareSideBySideWith,SyncScrollingSideBySide,BreakSideBySide）

並べて比較（CompareSideBySideWith メソッド） Compar …

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

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

: 表示されているセル範囲を取得（VisibleRange プロパティ）

VisibleRange プロパティ現在表示されているセル範囲（Range オ …

: スクロール（LargeScroll メソッド、Smallscroll メソッド）

ワークシートをスクロールするワークシートをスクロールするには、LargeScr …

: ワークブックを保護・保護を解除（Protect メソッド・Unprotect メソッド）

Protect メソッド・Unprotect メソッド Protect メソッド …

: ワークシートをファイルに保存する（SaveAs メソッド）

SaveAs メソッドワークシートを名前を付けてファイルに保存します。Work …

: ワークシートにクリップボードの内容を貼り付ける（Paste メソッド）

Paste メソッド指定したワークシート上にクリップボードのデータを貼り付けま …

: 印刷設定（先頭ページのヘッダー・フッターを設定）DifferentFirstPageHeaderFooter, FirstPage

先頭ページに別のヘッダーおよびフッターを設定先頭ページのヘッダーおよびフッター …

: 新しいウィンドウを開く（NewWindow メソッド）

NewWindow メソッド NewWindow メソッドで、任意のブックのコピ …

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

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

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

PageSetup.OddAndEvenPagesHeaderFooter プロパティ

引数・戻り値

PageSetup.EvenPage プロパティ

引数・戻り値

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

サンプルVBAソース

実行結果

Message コメントをキャンセル

関連記事

WorksheetView オブジェクト

並べて比較（CompareSideBySideWith,SyncScrollingSideBySide,BreakSideBySide）

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

表示されているセル範囲を取得（VisibleRange プロパティ）

スクロール（LargeScroll メソッド、Smallscroll メソッド）

ワークブックを保護・保護を解除（Protect メソッド・Unprotect メソッド）

ワークシートをファイルに保存する（SaveAs メソッド）

ワークシートにクリップボードの内容を貼り付ける（Paste メソッド）

印刷設定（先頭ページのヘッダー・フッターを設定）DifferentFirstPageHeaderFooter, FirstPage

新しいウィンドウを開く（NewWindow メソッド）

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

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

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

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

別のブックのマクロを実行（Run メソッド）

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

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

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

印刷時の改ページ設定（Add,ResetAllPageBreaks）

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