2 бързи средства за обединяване и отпечатване на множество календари на Outlook на една и съща страница

Може би имате няколко календара във вашия Outlook и всеки от тях съдържа много елементи. Ако искате да отпечатате всички тези календари на една и съща страница, можете да прочетете тази статия, за да научите 2 лесни метода.

Outlook ви позволява да преглеждате няколко календара в режим на наслагване, така че можете да видите всички елементи в няколко календара на една и съща страница. В този изглед обаче не можете да отпечатате няколко календара. Разглеждайки този проблем, тук ще ви представим 2 подхода, които ви позволяват да отпечатвате множество календари на една и съща страница.

Метод 1: Отпечатайте екранната снимка на насложени календари

1. За начало, отворете панела „Календар“ чрез „Ctrl + 2“.
2. След това в навигационния екран проверете календарите, които искате да отпечатате.
3. След това щракнете върху стрелките наляво в заглавката на календарите, за да ги наслагвате.
4. Сега можете да видите, че всички елементи от календарите са показани в един и същ изглед, като следващото изображение.
5. След това щракнете върху „Нови елементи“> „Имейл съобщение“ в раздела „Начало“.
6. В новия прозорец на съобщението поставете курсора в тялото.
7. След това преминете към раздела „Вмъкване“ и щракнете върху „Снимка на екрана“.
8. След това изберете първата опция в „Наличен Windows“.
9. След това насложените календари са вкарани в тялото.
10. Накрая щракнете върху „Файл“> „Печат“> „Печат“, за да отпечатате този имейл.

Метод 2: Отпечатайте обединени календари на една и съща страница чрез VBA

1. Отначало натиснете клавишите „Alt + F11“ за достъп до редактора на Outlook VBA.
2. След това поставете следния код в модул.

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

3. След това стартирайте макроса, като натиснете клавиша „F5“ в подпрограмата „CombineMultipleCalendars“.
4. След това въведете броя на календарите, които искате да отпечатате едновременно.
5. По-късно според номера, който въведете точно сега, ще трябва да изберете определен брой календари в изскачащия диалогов прозорец.
6. Когато макросът завърши, можете да се върнете в навигационния екран на Календар.
7. Сега там ще видите нов „Temp“ календар, който съдържа всички елементи от избраните календари.
8. В крайна сметка можете да разпечатате този календар както обикновено.

Ремонтирайте проблемите на Outlook бързо

Случвало ли ви се е да имате проблеми с Outlook? В такъв случай какво бихте направили? Като цяло, на първо място, повечето потребители биха прибягнали до вградения инструмент за поправка – Scanpst. Всъщност обаче той не може да отстрани сериозни проблеми, като например повреда на PST. Обикновено в този момент трябва да потърсите помощ от по-опитен външен инструмент, например... DataNumen Outlook Repair, То може поправете Outlook проблеми за миг.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com