Как распечатать список всех экземпляров повторяющегося события в Outlook?

Печать списка одного повторяющегося события Outlook с экспортом

Печать списка одного повторяющегося события Outlook с помощью VBA

На самом деле в Outlook нет прямого способа распечатать список всех экземпляров повторяющегося события. Однако вы можете экспортировать данные календаря в Excel, отфильтровать нужные экземпляры повторяющегося события и затем распечатать их. Выполните следующие действия:

1. В Outlook нажмите Файл > Открыть и экспортировать(или)Открыть) > Импорт/Экспорт(или)Импорт).

2. В мастере импорта и экспорта выберите опцию Экспорт в файл, затем нажмите кнопку Далее.

3. В первом диалоговом окне «Экспорт в файл» выберите опцию Значения, разделенные запятыми (CSV), затем нажмите кнопку Далее.

4. Во втором диалоговом окне «Экспорт в файл» выберите календарь, содержащий повторяющееся событие, которое вы хотите распечатать, и нажмите кнопку Далее.

5. В третьем диалоговом окне «Экспорт в файл» нажмите кнопку Обзор.

6. Откроется диалоговое окно «Обзор». (1) Укажите папку назначения для сохранения экспортируемого CSV-файла, (2) введите имя CSV-файла в поле Имя файла, затем нажмите кнопку OK.

7. Нажмите кнопки Далее и Готово в третьем и последнем диалоговых окнах «Экспорт в файл».

8. В диалоговом окне «Указать диапазон дат» задайте диапазон дат, за который вы хотите экспортировать календарь, и нажмите кнопку OK.

9. Календарь Outlook успешно экспортирован в CSV-файл. Перейдите в папку с этим файлом, щелкните по нему правой кнопкой мыши и в контекстном меню выберите пункт Открыть с помощью > Excel. См. снимок экрана:

10. Экспортированный CSV-файл открыт в Excel. Щёлкните по заголовку столбца «Тема», затем выберите Данные > Фильтр. См. снимок экрана:

10. Нажмите значок фильтра в заголовке столбца «Тема», в выпадающем списке отметьте только тему повторяющегося события, которое хотите распечатать, и нажмите кнопку OK.

11. Отображаются только экземпляры указанного повторяющегося события. Нажмите Файл > Печать, чтобы распечатать их.

Этот метод использует макрос VBA для быстрой и удобной печати списка повторяющихся событий в Outlook. Выполните следующие действия:

1. В представлении Календарь выберите один экземпляр повторяющегося события, который вы хотите распечатать, и нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

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