2 rýchle prostriedky na zlúčenie a tlač viacerých kalendárov programu Outlook na jednej stránke

Možno máte vo svojom Outlooku viac kalendárov a každý z nich obsahuje veľa položiek. Ak chcete vytlačiť všetky tieto kalendáre na jednej stránke, môžete si v tomto článku prečítať dve jednoduché metódy.

Program Outlook umožňuje zobraziť niekoľko kalendárov v režime prekrytia, takže na jednej stránke môžete vidieť všetky položky vo viacerých kalendároch. V tomto zobrazení však nemôžete vytlačiť niekoľko kalendárov. Pri pohľade na toto vydanie vám tu predstavíme 2 prístupy, ktoré vám umožňujú tlačiť viac kalendárov na jednu stránku.

Metóda 1: Vytlačte snímku obrazovky prekrytých kalendárov

1. Pre začiatok otvorte panel Kalendár pomocou klávesov „Ctrl + 2“.
2. Potom na navigačnej table skontrolujte kalendáre, ktoré chcete tlačiť.
3. Ďalej kliknutím na šípky doľava v hlavičke kalendárov ich prekryjete.
4. Teraz vidíte, že všetky položky kalendárov sa zobrazili v rovnakom zobrazení, napríklad na nasledujúcom obrázku.
5. Následne kliknite na „Nové položky“> „E-mailová správa“ na karte „Domov“.
6. V novom okne správy umiestnite kurzor do tela.
7. Potom sa posuňte na kartu „Vložiť“ a kliknite na „Screenshot“.
8. Ďalej vyberte prvú možnosť v časti „Dostupné Windows“.
9. Potom boli do tela vložené prekryté kalendáre.
10. Nakoniec kliknite na „Súbor“> „Tlačiť“> „Tlačiť“ a vytlačte tento e-mail.

Metóda 2: Tlač zlúčených kalendárov na rovnakú stránku pomocou VBA

1. Najskôr stlačte klávesy „Alt + F11“, aby ste sa dostali do editora Outlook VBA.
2. Potom vložte nasledujúci kód do modulu.

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. Ďalej spustite makro stlačením klávesu „F5“ v podprograme „CombineMultipleCalendars“.
4. Potom zadajte počet kalendárov, ktoré chcete súčasne vytlačiť.
5. Neskôr, podľa počtu, ktoré zadáte práve teraz, budete musieť v rozbaľovacom dialógovom okne zvoliť určitý počet kalendárov.
6. Po dokončení makra sa môžete vrátiť späť na navigačnú tablu Kalendár.
7. Teraz uvidíte nový kalendár „Temp“, ktorý obsahuje všetky položky vybratých kalendárov.
8. Nakoniec si tento kalendár môžete vytlačiť ako obvykle.

Oprava problémov s programom Outlook rýchlo

Stretli ste sa niekedy s problémami v programe Outlook? Čo by ste v takom prípade robili? Vo všeobecnosti by sa väčšina používateľov najprv uchýlila k vstavanému nástroju na opravu – Scanpst. V skutočnosti však nedokáže opraviť závažné problémy, ako je poškodenie súboru PST. V takom prípade si zvyčajne musíte pomôcť so skúsenejším externým nástrojom, napríklad... DataNumen Outlook Repair, Môže opraviť Outlook ťažkosti za okamih.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S