如何打印 Outlook 中某个重复约会的所有发生项列表？

通过导出打印一个 Outlook 重复约会的列表

使用 VBA 打印一个 Outlook 重复约会的列表

实际上，Outlook 并未提供直接打印所有重复约会发生次数列表的方法。不过，您可以将日历数据导出到 Excel，筛选出该重复约会的所有发生记录后进行打印。请按照以下步骤操作：

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

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

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

4. 在第二个导出到文件对话框中，请选择包含您要打印的重复约会的日历，然后点击下一步按钮。

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

6. 此时会弹出浏览对话框。请（1）选择要保存导出 CSV 文件的目标文件夹，（2）在文件名框中输入 CSV 文件名，并（3）点击确定按钮。

7. 单击下一步按钮，然后在第三个也是最后一个导出文件对话框中，单击完成按钮。

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

9. 至此，日历已成功导出为 CSV 文件。请打开存放 CSV 文件的文件夹，在右键菜单中右键点击该 CSV 文件，选择打开方式>Excel。见下图：

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

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 = “【Start】 >= ‘11/1/2016' And [End] < '6/30/2017'And  [IsRecurring]  = True And [Subject] = " & strSubject

3. 按下 F5 键或单击运行按钮即可运行该 VBA。

4. 现在，所选重复约会的所有发生项列表已被复制并粘贴到新建邮件中，如下图所示。请点击文件 > 打印，即可打印该列表。

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

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

在 Outlook 中打印日历的每日视图