印刷設定（ヘッダー／フッター）書式コード・VBAコード

2015/10/14

印刷設定（ヘッダー／フッター）書式コード・VBAコード

ヘッダーおよびフッター（LeftHeader プロパティ、CenterHeader プロパティ、RightHeader プロパティ、LeftFooter プロパティ、CenterFooter プロパティ、RightFooter プロパティ）には、以下のような、書式コード・VBAコードを指定することができます。

ヘッダーとフッターに指定できる書式コード

書式コード	説明
&L	このコードに続く文字列を左詰めに配置
&C	このコードに続く文字列を中央揃えに配置
&R	このコードに続く文字列を右詰めに配置
&E	このコードに続く文字列に二重下線を設定
&X	このコードに続く文字列を上付き文字に設定
&Y	このコードに続く文字列を下付き文字に設定
&B	このコードに続く文字列を太字に設定
&I	このコードに続く文字列を斜体に設定
&U	このコードに続く文字列に下線を設定
&S	このコードに続く文字列に取り消し線を設定
&”フォント名”	このコードに続く文字列に対して指定したフォントを設定フォント名は、必ず半角の二重引用符 (“) で囲みます
&nn	このコードに続く文字列に対して指定したフォントサイズを設定 nn には、ポイント数を表す 2 桁の数値を指定します
&color	このコードに続く文字列に対して指定した色を設定 color には、16進数の色の値を「K」につづけて「K00FF00」のように指定します
&”+”	このコードに続く文字列を、現在のテーマの [見出し] フォントに設定します
&”-“	このコードに続く文字列を、現在のテーマの [本文] フォントに設定します
&Kxx.Syyy	このコードに続く文字列を、現在のテーマの指定した色に設定します xx は、使用するテーマの色を指定する 2 桁の数値 (1 ～ 12) です Syyy は、テーマの色の網掛け（濃淡）を指定します網掛けの濃淡を明るくするには、S を + と指定し、暗くするには S を – と指定します yyy は、3 桁の整数で、パーセンテージを 0 ～ 100 で指定します。テーマの色または網掛けを指定する値がこの制限を超える場合は、最も近い有効な値が使用されます。

ヘッダーとフッターに指定できる VBA コード

VBA コード	説明
&D	現在の日付
&T	現在の時刻
&A	シート見出し名
&F	ファイルの名前
&Z	ファイルのパス
&N	ファイルの総ページ数
&P	ページ番号
&P+<数値>	ページ番号に指定した <数値> を加えた値
&P-<数値>	ページ番号から指定した <数値> を引いた値
&&	アンパサンド (&)
&G	イメージを挿入

書式コード・VBA コードを記述する場合の注意点

書式を設定したい文字列の前に「書式コード」を記述します。
　　（例）“&Uあいうえお”
　　「あいうえお」に、二重線を設定します
書式設定した文字列のあとに書式を解除した文字列を記述する場合、再度「書式コード」を記述します（フォント、フォントサイズ、文字色は除きます）。
　　（例）“&Uあいうえお&Uかきくけこ”
　　「あいうえお」にだけ二重線が設定されます。
数値から始まる文字列に対してフォントサイズを設定する場合、数値の前に半角スペースを入れます。
　　（例）“&12 123456”
　　「123456」の文字サイズを 12 ポイントに設定します
設定は、上記例のように「”（ダブルクォーテーション）」で囲みます。そのため「”」に囲まれた中で、「”」を使用する場合は、「””」のように２つ続けて記述する必要があります。
　　（例）“&””ＭＳＰ明朝””あいうえお”
　　「あいうえお」のフォントを「ＭＳＰ明朝」に設定します
文字列のフォントを途中から変更する場合
　　（例）“&””ＭＳＰ明朝””あいう&””Adobe Fan Heiti Std B””えお”
　　　　　または、
　　（例）“&””ＭＳＰ明朝””あいう” & “&””Adobe Fan Heiti Std B””えお”
　　「あいう」を「ＭＳＰ明朝」に、「えお」を「Adobe Fan Heiti Std B」に設定します
文字列のフォントの指定の後に「,（カンマ）」をつけ「標準」「太字」「斜体」「太字斜体」のいずれかを指定することもできます。
　　（例）“&””ＭＳＰ明朝,太字斜体””&D”
　　「現在の日付」を「ＭＳＰ明朝」「太字」「斜体」に設定します

PageSetup.PrintQuality プロパティ使用例

サンプルVBAソース

　
Sub Sample_HeaderFooter()

    Dim w As Worksheet
    Set w = ActiveSheet
    
    With w.PageSetup
    
        
        '文字列「中間テスト成績表」を 太字、文字サイズ 16pt に設定、ヘッダーに左詰めで配置
        .LeftHeader = "&""-,太字""&16中間テスト成績表"
        
        'シート名を 太字、下線 を設定、ヘッダーの中央に配置
        .CenterHeader = "&B&U&A"
        
        '現在の日付・時刻をフォント「メイリオ」斜体 に設定、ヘッダー右詰めで配置
        .RightHeader = "&""メイリオ,斜体""&D &T"
        
        '「[ページ] / [総ページ] ページ」をフォント赤色に設定、フッター中央に配置
        .CenterFooter = "&KFF0000&P / &N ページ"
    
    
    End With
    
    w.PrintPreview
    

End Sub