Application.FilePageSetupHeader 方法 (Project)

为打印设置页眉。

语法

expression。 FilePageSetupHeader( _Name_, _Alignment_, _Text_ )

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Name	可选	String	为打印设置页眉的视图或报表的名称。
Alignment	可选	Long	标题中文本的对齐方式。 可以是下列的 PjAlignment 常量之一: pjLeft 、 pjCenter 或 pjRight 。 默认值是 pjCenter 。
Text	可选	String	在页眉中显示的文本。 以下特殊的格式代码可以作为页眉的一部分：

格式代码	说明
&B	打开或关闭打印粗体功能。
&I	打开或关闭打印斜体功能。
&U	打开或关闭打印下划线功能。
&“”fontname“”	以指定字体打印格式代码后的字符。 例如，&""Arial""。
&nn	以指定字号打印格式代码后的字符。 用两位数的数字指定字号，以磅为单位。 例如，&08。
&P“”path“”	插入指定的图像。 例如，&P“” [我的文档] \Image.gif“”。 [My Documents] 代表 My Documents 文件夹的完整路径。
&[日期]	打印当前的系统日期。
&[时间]	打印当前的系统时间。
&[文件]	打印文件名。
&[页面]	打印页码。
&[Pages]	打印文档的总页数。
&[Project Title]	打印标题。
&[公司]	打印公司名。
&[经理]	打印经理姓名。
&[Start Date]	打印项目开始日期。
&[Finish Date]	打印项目完成日期。
&[Current Date]	打印项目当前日期。
&[Status Date]	打印项目状态日期。
&[查看]	打印视图名称。
&[报告]	打印报表名称。
&[筛选器]	打印筛选器名称。
&[Saved Date]	打印上次保存日期。
&[主题]	打印主题。
&[Author]	打印作者。
&[Keyword]	打印关键字。
&[ Field_Name ]	打印由 Field_Name 指定的域值。 如果宏将在多种语言下运行，则由 Field_Name 指定的域必须使用每种语言本地化后的名称。 例如 &[Actual Cost]。

返回值

Boolean

说明

若使用 FilePageSetupHeader 方法时没有指定任何参数，将显示选中“页眉”选项卡的“页面设置”对话框。

示例

以下示例为打印设置页眉。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。