如何列印 Outlook 週期性約會的清單？

透過匯出列印一份 Outlook 週期性約會的清單

透過 VBA 列印一份 Outlook 週期性約會的清單

事實上，Outlook 無法直接列印週期性約會的所有發生次數清單。不過，您可以將行事曆資料匯出至 Excel，篩選出該週期性約會的每一筆發生記錄，再進行列印。請依照下列步驟操作：

1. 在 Outlook 中，請按一下檔案＞ 開啟與匯出（或）開啟）＞ 匯入/匯出（或）匯入）。

2. 在「匯入與匯出精靈」中，請點選匯出至檔案選項，再點擊下一步按鈕。

3. 在第一個「匯出至檔案」對話方塊中，請點選逗號分隔值選項，再點擊下一步按鈕。

4. 在第二個「匯出至檔案」對話方塊中，請選擇包含您要列印之週期性約會的行事曆，然後點選下一步按鈕。

5. 在第三個「匯出至檔案」對話方塊中，請點選瀏覽按鈕。

6. 此時會出現「瀏覽」對話方塊。請（1）指定儲存匯出之 CSV 檔案的目的資料夾，（2）在檔案名稱方塊中為 CSV 檔命名，並（3）按一下確定按鈕。

7. 在第三個也是最後一個「匯出檔案」對話方塊中，請點選下一步按鈕，再點選完成按鈕。

8. 請在「設定日期範圍」對話方塊中指定您要匯出行事曆的日期範圍，然後點擊確定按鈕。

9. 至此，行事曆已成功匯出為 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 = “【Start】 >= ‘11/1/2016' And [End] < '6/30/2017'And  [IsRecurring]  = True And [Subject] = " & strSubject

3. 按下 F5 鍵，或點擊執行按鈕，立即執行此 VBA！

4. 目前已將所選週期性約會的所有發生次數清單複製並貼上至新建郵件中，如下方截圖所示。請點擊檔案＞ 列印，立即列印該清單！

在 Outlook 中列印空白行事曆（不含約會）

在 Outlook 中每頁列印兩週／兩個月的行事曆

在 Outlook 中列印每日行事曆