2 Kiire viis mitme Outlooki kalendri ühendamiseks ja printimiseks samal lehel

Võib-olla on teie Outlookis mitu kalendrit ja igaüks neist sisaldab palju üksusi. Kui soovite printida kõik need kalendrid samale lehele, lugege seda artiklit, et õppida tundma kahte lihtsat meetodit.

Outlook võimaldab teil vaadata mitut kalendrit ülekatterežiimis, nii et näete samal lehel mitme kalendri kõiki üksusi. Siiski ei saa te selles vaates mitut kalendrit printida. Seda numbrit vaadates tutvustame teile kahte lähenemisviisi, mis võimaldavad printida mitu kalendrit samale lehele.

1. meetod: printige ülekattega kalendrite ekraanipilt

1. Alustamiseks avage kalendripaan klahvikombinatsiooniga „Ctrl + 2”.
2. Seejärel märkige navigeerimispaanil kalendrid, mida soovite printida.
3. Järgmisena klõpsake kalendrite katmiseks vasaknoolt päises.
4. Nüüd näete, et kõik kalendrite üksused on näidatud samas vaates, nagu järgmine pilt.
5. Seejärel klõpsake vahekaardi Avaleht all "Uued üksused" > "E-kiri".
6. Viige uues sõnumiaknas kursor kehasse.
7. Seejärel liikuge vahekaardile "Sisesta" ja klõpsake "Ekraanipilt".
8. Järgmisena valige jaotises "Saadaval Windows" esimene valik.
9. Peale seda on ülekattega kalendrid kere sisse pandud.
10. Lõpuks klõpsake selle meili printimiseks "Fail" > "Prindi" > "Prindi".

2. meetod: printige ühendatud kalendrid VBA kaudu samal lehel

1. Esmalt vajutage Outlooki VBA redaktori avamiseks klahve Alt + F11.
2. Seejärel sisestage järgmine kood moodulisse.

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. Järgmisena käivitage makro, vajutades alamprogrammis CombineMultipleCalendars klahvi F5.
4. Pärast seda sisestage kalendrite arv, mida soovite korraga printida.
5. Hiljem, vastavalt äsja sisestatud numbrile, peate hüpikakende dialoogiboksis valima teatud arvu kalendreid.
6. Kui makro on lõpetatud, saate naasta kalendri navigeerimispaani.
7. Nüüd näete seal uut "Temp" kalendrit, mis sisaldab kõiki valitud kalendrite üksusi.
8. Lõpuks saate selle kalendri tavapäraselt välja printida.

Parandage Outlooki probleemid kiiresti

Kas olete kunagi kokku puutunud Outlooki probleemidega? Mida te sel juhul teeksite? Üldiselt pöörduks enamik kasutajaid esmalt sisseehitatud parandustööriista – Scanpst – poole. Tegelikult ei suuda see aga tõsiseid probleeme, näiteks PST-kahjustusi, lahendada. Tavaliselt peate sel hetkel appi võtma kogenuma välise tööriista, näiteks DataNumen Outlook Repair. See võib parandada Outlook mured hetkega.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom