Application.FilePageSetupFooter 方法 (Project)
为打印设置页脚。
语法
expression。 FilePageSetupFooter( _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
说明
若使用 FilePageSetupFooter 方法时没有指定任何参数，将显示选中“页脚”选项卡的“页面设置”对话框。
示例
以下示例将为打印设置页脚。
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 支持和反馈，获取有关如何接收支持和提供反馈的指南。