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

: ブックを参照（Workbooks プロパティ,Windows プロパティ）

アクティブなワークブックを参照現在使用中のワークブック、複数ある場合は一番手前 …

: 印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin

余白を設定する余白を設定する単位は、pt（ポイント：約 0.03528 cm） …

: 選択されているシートを参照する（SelectedSheets プロパティ）

SelectedSheets プロパティ選択されているすべてのシートをあらわす …

: 簡易印刷（PageSetup.Draft プロパティ）

PageSetup.Draft プロパティ PageSetup.Draft プロ …

: 最近使用したファイル（RecentFile オブジェクト,RecentFiles コレクション）

最近使用したファイル（RecentFile オブジェクト,RecentFiles …

: ページ数に合わせて印刷（FitToPagesTall, FitToPagesWide）

PageSetup.FitToPagesTall プロパティ PageSetup …

: 再計算（Calculation, EnableCalculation, Calculate）

ワークブックやシートの再計算通常、Excel では、自動的に再計算が行われる設 …

: ワークシートを参照する（Worksheets プロパティ）

Worksheets プロパティ Worksheets プロパティは、Works …

: ユーザー設定のビュー（CustomViews プロパティ）

ユーザー設定のビュー CustomViews コレクションは、ユーザー設定ビュー …

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

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

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

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

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

PageSetup.OddAndEvenPagesHeaderFooter プロパティ

引数・戻り値

PageSetup.EvenPage プロパティ

引数・戻り値

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

サンプルVBAソース

実行結果

Message コメントをキャンセル

関連記事

ブックを参照（Workbooks プロパティ,Windows プロパティ）

印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin

選択されているシートを参照する（SelectedSheets プロパティ）

簡易印刷（PageSetup.Draft プロパティ）

最近使用したファイル（RecentFile オブジェクト,RecentFiles コレクション）

ページ数に合わせて印刷（FitToPagesTall, FitToPagesWide）

再計算（Calculation, EnableCalculation, Calculate）

ワークシートを参照する（Worksheets プロパティ）

ユーザー設定のビュー（CustomViews プロパティ）

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

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

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

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

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

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

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

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

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

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

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