2 brza načina za spajanje i ispis više Outlook kalendara na istoj stranici

Možda imate više kalendara u Outlooku i svaki sadrži mnogo stavki. Ako želite ispisati sve ove kalendare na istoj stranici, možete pročitati ovaj članak da naučite 2 jednostavne metode.

Outlook vam dopušta pregled nekoliko kalendara u načinu preklapanja, tako da možete vidjeti sve stavke u nekoliko kalendara na istoj stranici. Međutim, u ovom prikazu ne možete ispisati nekoliko kalendara. Gledajući ovaj problem, ovdje ćemo vam predstaviti 2 pristupa koji vam omogućuju ispis više kalendara na istoj stranici.

Metoda 1: Ispis snimke zaslona preklopljenih kalendara

1. Za početak, pristupite oknu Kalendar putem "Ctrl + 2".
2. Zatim u navigacijskom oknu označite kalendare koje želite ispisati.
3. Zatim kliknite lijeve strelice na zaglavlju kalendara da biste ih prekrili.
4. Sada možete vidjeti da su sve stavke kalendara prikazane u istom prikazu, kao na sljedećoj slici.
5. Nakon toga kliknite na “Nove stavke” > “Poruka e-pošte” pod karticom “Početna”.
6. U novom prozoru poruke postavite kursor u tijelo.
7. Zatim prijeđite na karticu "Umetni" i kliknite "Snimka zaslona".
8. Zatim odaberite prvu opciju u "Dostupnim Windowsima".
9. Nakon toga, prekriveni kalendari su stavljeni u tijelo.
10. Na kraju kliknite "Datoteka" > "Ispis" > "Ispis" da biste ispisali ovu e-poruku.

Metoda 2: Ispis spojenih kalendara na istoj stranici putem VBA

1. Najprije pritisnite tipke “Alt + F11” za pristup Outlook VBA uređivaču.
2. Zatim stavite sljedeći kod u modul.

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. Zatim pokrenite makronaredbu pritiskom na tipku “F5” u potprogramu “CombineMultipleCalendars”.
4. Nakon toga unesite broj kalendara koje želite ispisati u isto vrijeme.
5. Kasnije, prema broju koji ste upravo unijeli, morat ćete odabrati određeni broj kalendara u skočnom dijaloškom okviru.
6. Kada se makronaredba završi, možete se vratiti u navigacijsko okno kalendara.
7. Sada ćete tamo vidjeti novi "Privremeni" kalendar koji sadrži sve stavke odabranih kalendara.
8. Na kraju možete ispisati ovaj kalendar kao i obično.

Brzo popravite probleme s Outlookom

Jeste li ikada naišli na probleme s Outlookom? U tom slučaju, što biste onda učinili? Općenito, većina korisnika bi se prvo poslužila ugrađenim alatom za popravak – Scanpstom. No, zapravo, on ne može riješiti ozbiljne probleme, poput oštećenja PST-a. Obično u tom trenutku morate potražiti pomoć iskusnijeg vanjskog alata, recimo DataNumen Outlook Repair. To može popraviti Outlook nevolje u tren oka.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql popravak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com