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