印刷用のヘッダーの設定を行います。
構文
expression。
FilePageSetupHeader( _Name_, _Alignment_, _Text_ )
expressionApplication オブジェクトを 表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| 名前 | 省略可能 | String | 印刷用のヘッダーを設定するビューまたはレポートの名前を指定します。 |
| Alignment | 省略可能 | 長整数型 (Long) | ヘッダー内のテキストの配置です。 PjAlignment 定数は、次のいずれか: pjLeftpjCenter 、 pjRight です。 既定値は、 pjCenter です。 |
| Text | 省略可能 | String | ヘッダーに表示するテキストを指定します。 次の書式コードを使用することもできます。 |
| 書式コード | 説明 |
|---|---|
| &B | 文字列を太字で印刷します。 |
| &I | 文字列を斜体で印刷します。 |
| &U | 下線設定のオン/オフを指定します。 |
| &""fontname"" | 印刷する文字のフォントを指定します。 たとえば、「&""Arial""」のように指定します。 |
| nn を &する | 印刷する文字のフォント サイズを 2 桁の数字で指定します。 nn には、ポイント数を表す 2 桁の数値を指定します。 たとえば、&08 です。 |
| &P""path"" | 指定したイメージを挿入します。 たとえば、&P"" [マイ ドキュメント] \Image.gif"などです。 [My Documents] はユーザーの My Documents フォルダーの完全なパスを示します。 |
| &[日付] | システムの現在の日付を印刷します。 |
| &[時間] | システムの現在の時刻を印刷します。 |
| &[ファイル] | ファイル名を印刷します。 |
| &[ページ] | ページ番号を印刷します。 |
| &[Pages] | ドキュメントの総ページ数を印刷します。 |
| &[プロジェクトのタイトル] | タイトルを印刷します。 |
| &[会社] | 会社名を印刷します。 |
| &[Manager] | 管理者名を印刷します。 |
| &[開始日] | プロジェクトの開始日を印刷します。 |
| &[終了日] | プロジェクトの終了日を印刷します。 |
| &[プロジェクトの現在の日付] | プロジェクトの現在の日付を印刷します。 |
| &[プロジェクトの状況報告日] | プロジェクトの状況報告日を印刷します。 |
| &[表示] | ビュー名を印刷します。 |
| &[レポート] | レポート名を印刷します。 |
| &[フィルター] | フィルター名を印刷します。 |
| &[最終保存日] | 最終保存日を印刷します。 |
| &[件名] | サブタイトルを印刷します。 |
| &[作成者] | 作成者を印刷します。 |
| &[キーワード] | キーワードを印刷します。 |
| &[ Field_Name ] | [フィールド名] で指定されたフィールドの値を印刷します。 複数の言語環境でマクロを実行する場合、この "フィールド名" はマクロの実行環境の言語で指定する必要があります。 たとえば、日本語の場合は、「&[実績コスト] 」のように指定します。 |
戻り値
ブール型 (Boolean)
注釈
Using the FilePageSetupHeader method without specifying any arguments displays the Page Setup dialog box with the Header tab selected.
例
次の使用例は、印刷用のヘッダーの設定を行います。
Sub SetLegend()
Dim strLegend As String
strLegend = GetFontFormatCode("Arial")
strLegend = strLegend & "&BThis text will appear in the legend.&B"
Application.FilePageSetupLegend Text:=strLegend, _
Alignment:=pjCenter, LegendOn:=pjOnEveryPage
End Sub
Public Function GetFontFormatCode(strFontName As String) As String
GetFontFormatCode = "&" & Chr(34) & strFontName & Chr(34)
End Function
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。