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

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

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

На самом деле, в 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 = "[Начало] >= '01.11.2016' And [Конец] < '30.06.2017' And  [Повторяющиеся]  = True And [Тема] = " & strSubject

3. Нажмите клавишу F5 или кнопку Выполнить, чтобы запустить этот VBA.

4. Теперь список всех вхождений в выбранном повторяющемся событии скопирован и вставлен в новое письмо, как показано на скриншоте ниже. Пожалуйста, нажмите Файл > Печать , чтобы распечатать список.

Распечатать пустой календарь (без событий) в Outlook

Распечатать два месяца/недели календаря на одной странице в Outlook

Распечатать ежедневный календарь в Outlook