Application.FilePageSetupCalendar 方法 (Project)
设置用于打印的日历。
语法
expression。 FilePageSetupCalendar( _Name_, _MonthsPerPage_, _WeeksPerPage_, _ScreenWeekHeight_, _OnlyDaysInMonth_, _OnlyWeeksInMonth_, _MonthPreviews_, _MonthTitle_, _AdditionalTasks_, _GroupAdditionalTasks_, _PrintNotes_ )
expression：表示 Application 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Name | 可选 | Variant | 设置用于打印的日历。 |
| MonthsPerPage | 可选 | Integer | 要在每页上打印的月数。 可以是 1 或 2。 如果指定 OnlyDaysInMonth 或 OnlyWeeksInMonth ， MonthsPerPage 参数是必需的。 |
| WeeksPerPage | 可选 | Integer | 要在每页上打印的周数。 |
| ScreenWeekHeight | 可选 | Boolean | 如此 如果屏幕上显示的周高度用于打印输出。 |
| OnlyDaysInMonth | 可选 | Boolean | 真 要是打印月份中的日期。 假 如果除了当月的日期外，还打印上个月末尾，在下个月开始的日期。 除非指定一个值为 MonthsPerPage ， OnlyDaysInMonth 参数将被忽略。 |
| OnlyWeeksInMonth | 可选 | Boolean | 真 要是打印完全包含在一个月中的周。 假 如果打印具有一个或多个月份中的日期的周。 除非指定一个值为 MonthsPerPage ， OnlyWeeksInMonth 参数将被忽略。 |
| MonthPreviews | 可选 | Boolean | 如此 如果打印上一个和下一个月的预览日历。 |
| MonthTitle | 可选 | Boolean | 真 月的标题印。 |
| AdditionalTasks | 可选 | Boolean | 如果打印了不适合日历的任务，则该属性值为 True。 (其他任务显示在打印结果的末尾。 |
| GroupAdditionalTasks | 可选 | Boolean | 如此 如果按天分组的其他任务。 |
| PrintNotes | 可选 | Boolean | 如此 如果打印每个任务相关联的注解。 在结束时，所有其他任务之后打印备注 |
返回值
Boolean
说明
使用未指定任何参数的 FilePageSetupCalendar 方法显示 页面设置 对话框中，选择 视图 选项卡。 当日历是活动视图中， FilePageSetupCalendar 方法才可用。
示例
以下示例设置每页打印 2 个月的日历，以及前一个月和下一个月的预览日历。
Sub File_PageSetupCalendar()
'Activate Calendar view
ViewApply Name:="&Calendar"
FilePageSetupCalendar MonthsPerPage:=2, OnlyDaysInMonth:=False, MonthPreviews:=True
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。