如何打印Outlook中某个定期约会的所有项目列表？

通过导出功能打印Outlook中某个定期约会的所有项目列表

通过VBA打印Outlook中某个定期约会的所有项目列表

实际上，在Outlook中并没有直接的方法可以打印定期约会中的所有事件列表。不过，您可以将日历数据导出到Excel中，筛选出定期约会的所有事件，然后进行打印。请按照以下步骤操作：

1. 在Outlook中，请点击 文件 > 打开和导出（或打开） > 导入/导出 （或导入）。

2. 在“导入和导出向导”中，请点击 导出到文件 选项，并点击 下一步 按钮。

3. 在第一个“导出到文件”对话框中，请点击 逗号分隔值 选项，并点击 下一步 按钮。

4. 在第二个“导出到文件”对话框中，请选择包含要打印的定期约会的日历 ，并点击 下一步 按钮。

5. 在第三个“导出到文件”对话框中，请点击 浏览 按钮。

6. 此时会弹出“浏览”对话框。请 (1) 指定保存导出CSV文件的目标文件夹，(2) 在 文件名称 框中命名CSV文件，并 (3) 点击 确定 按钮。

7. 在第三个和最后一个“导出文件”对话框中，点击 下一步 和 完成 按钮。

8. 请在“设置日期范围”对话框中指定要导出日历的日期范围，并点击 确定 按钮。

9. 至此，Outlook日历已导出为CSV文件。请打开包含CSV文件的文件夹，右键单击该CSV文件并从上下文菜单中选择 打开方式 > Excel。参见截图：

10. 导出的CSV文件已在Excel中打开。请选择“主题”列标题，然后点击 数据 > 筛选。参见截图：

10. 点击“主题”列标题中的筛选图标，仅勾选要打印的定期约会的主题，然后点击 确定 按钮。

11. 只有指定定期约会的事件被筛选出来。请点击 文件 > 打印 来打印它们。

此方法将介绍一种VBA代码，帮助您轻松快速地在Outlook中打印定期约会的事件列表。请按照以下步骤操作：

1. 在 日历 视图中，选择要打印的定期约会的一个事件，然后按 Alt + F11 键打开Microsoft Visual Basic for Applications窗口。

2. 点击 插入 > 模块，然后将以下VBA代码粘贴到新打开的模块脚本中。

VBA：打印Outlook中定期约会的所有事件列表

Sub RecurringList()

Dim CalendarFolder As Outlook.MAPIFolder
Dim CalendarItems As Outlook.Items
Dim RestrictItems As Outlook.Items
Dim sFilter, sSubject, sOccur As String
Dim iNumRestricted As Integer
Dim itm, itmNew As Object
Dim tStart, tEnd As Date

Set CalendarFolder = Application.ActiveExplorer.CurrentFolder
Set CalendarItems = CalendarFolder.Items

   CalendarItems.Sort "[Start]"
CalendarItems.IncludeRecurrences = True

    tEnd = Format(Now + 10, "Short Date")

sSubject = Application.ActiveExplorer.Selection.Item(1).Subject

   sFilter = "[Start] >= '11/1/2016' And [End] < '6/30/2017' And  [IsRecurring]  = True And [Subject] = " & sSubject

   Set RestrictItems = CalendarItems.Restrict(sFilter)

   iNumRestricted = 0

   For Each itm In RestrictItems
iNumRestricted = iNumRestricted + 1
sOccur = sOccur & vbCrLf & itm.Subject & vbTab & " >> " & vbTab & itm.Start & vbTab & " to: " & vbTab & itm.End
Next

Set itmNew = Application.CreateItem(olMailItem)
itmNew.Body = sOccur & vbCrLf & iNumRestricted & " occurrences found."
itmNew.Display

End Sub

注意：请更改代码中要打印定期约会的日期范围：sFilter = "[开始] >= '2016/11/1' And [结束] < '2017/6/30' And [是否定期] = True And [主题] = " & strSubject

3. 按 F5 键或点击 运行 按钮来运行此VBA代码。

4. 现在，所选定期约会的所有事件列表已被复制并粘贴到一封新邮件中，如下图所示。请点击 文件 > 打印 来打印该列表。

在Outlook中打印空白日历（无约会）

在Outlook中每页打印两周/两月的日历

在Outlook中打印每日日历