Можливо, у вас є кілька календарів у вашому Outlook, і кожен із них містить багато елементів. Якщо ви хочете надрукувати всі ці календарі на одній сторінці, ви можете прочитати цю статтю, щоб навчитися 2 простим методам.
Outlook дозволяє переглядати кілька календарів у режимі накладання, так що ви можете бачити всі елементи в декількох календарях на одній сторінці. Однак ви не можете надрукувати кілька календарів у цьому поданні. Дивлячись на цю проблему, ми представимо вам 2 підходи, які дозволяють надрукувати кілька календарів на одній сторінці.
Спосіб 1: Надрукуйте знімок екрана накладених календарів
- Для початку відкрийте панель «Календар» за допомогою комбінації клавіш «Ctrl + 2».
- Потім на панелі навігації перевірте календарі, які потрібно надрукувати.
- Далі клацніть лівою стрілкою на заголовку календарів, щоб їх накладати.
- Тепер ви можете бачити, що всі елементи календарів були показані в одному вікні, як показано на малюнку нижче.
- Потім натисніть «Нові елементи»> «Електронне повідомлення» на вкладці «Домашня сторінка».
- У новому вікні Повідомлення помістіть курсор у тіло.
- Потім перейдіть на вкладку «Вставка» та натисніть «Знімок екрана».
- Далі оберіть перший варіант у «Доступній Windows».
- Після цього накладені календарі були введені в тіло.
- Нарешті, натисніть «Файл»> «Друк»> «Друк», щоб роздрукувати цей електронний лист.
Спосіб 2: Друк об’єднаних календарів на одній сторінці за допомогою VBA
- Спочатку натисніть клавіші “Alt + F11”, щоб отримати доступ до редактора Outlook VBA.
- Потім вкладіть наступний код у модуль.
Dim objTempCalendar As Outlook.Folder
Sub CombineMultipleCalendars()
Dim lCalendarCount As Long
Dim i As Long
On Error Resume Next
Set objTempCalendar = Application.Session.GetDefaultFolder(olFolderCalendar).Folders("Temp")
If objTempCalendar Is Nothing Then
Set objTempCalendar = Application.Session.GetDefaultFolder(olFolderCalendar).Folders.Add("Temp")
End If
lCalendarCount = InputBox("How many calendars you want to print?", , "3")
i = 1
While i <= lCalendarCount
Call CopyCalendarItems
i = i + 1
Wend
End Sub
Sub CopyCalendarItems()
Dim objSourceCalendar As Outlook.Folder
Dim objCalendarItem As Outlook.AppointmentItem
Dim objCopiedItem As Outlook.AppointmentItem
Dim objMoviedItem As Outlook.AppointmentItem
Set objSourceCalendar = Outlook.Application.Session.PickFolder
If Not (objSourceCalendar Is Nothing) Then
If objSourceCalendar.DefaultItemType = olAppointmentItem Then
For Each objCalendarItem In objSourceCalendar.Items
Set objCopiedItem = objCalendarItem.Copy
Set objMoviedItem = objCopiedItem.Move(objTempCalendar)
objMoviedItem.Save
Next
End If
End If
End Sub
- Потім запустіть макрос, натиснувши клавішу “F5” у підпрограмі “CombineMultipleCalendars”.
- Після цього введіть кількість календарів, які ви хочете надрукувати одночасно.
- Пізніше, відповідно до числа, яке ви ввели зараз, вам потрібно буде вибрати певну кількість календарів у спливаючому діалоговому вікні.
- Коли макрос завершиться, ви зможете повернутися до навігаційної панелі календаря.
- Тепер ви побачите там новий календар "Temp", який містить усі елементи вибраних календарів.
- Зрештою, ви можете роздрукувати цей календар, як зазвичай.
Швидко вирішуйте проблеми Outlook
Ви коли-небудь стикалися з проблемами Outlook? Що б ви зробили в такому разі? Загалом, спочатку більшість користувачів вдаються до вбудованого інструменту відновлення – Scanpst. Однак, насправді, він не може виправити серйозні проблеми, такі як пошкодження PST. Зазвичай у такому разі вам доводиться звертатися за допомогою до більш досвідченого зовнішнього інструменту, скажімо DataNumen Outlook Repair. Він може виправити Outlook негайно проблеми.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql виправити та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com