2 brza sredstva za spajanje i štampanje 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 kako biste naučili 2 jednostavna načina.

Outlook vam dozvoljava da vidite 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 odštampati nekoliko kalendara. Gledajući ovo pitanje, ovdje ćemo vam predstaviti 2 pristupa, koji vam omogućavaju da odštampate više kalendara na istoj stranici.

Metoda 1: Odštampajte snimak ekrana prekrivenih kalendara

1. Za početak, pristupite oknu Kalendar putem "Ctrl + 2".
2. Zatim, u oknu za navigaciju, označite kalendare koje želite da odštampate.
3. Zatim kliknite na lijevu strelicu na zaglavlju kalendara da biste ih preklopili.
4. Sada možete vidjeti da su sve stavke kalendara prikazane u istom prikazu, kao na sljedećoj slici.
5. Zatim kliknite na “Nove stavke” > “Poruku e-poštom” na kartici “Početna”.
6. U novom prozoru poruke stavite kursor u tijelo.
7. Zatim pređite na karticu „Umetanje“ i kliknite na „Snimak ekrana“.
8. Zatim odaberite prvu opciju u "Dostupni Windows".
9. Nakon toga, obloženi kalendari su stavljeni u tijelo.
10. Na kraju, kliknite na “File” > “Print” > “Print” da odštampate ovu e-poštu.

Metod 2: Štampajte spojene kalendare na istoj stranici putem VBA

1. Prvo pritisnite tipke “Alt + F11” da biste pristupili Outlook VBA editoru.
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 makro pritiskom na tipku “F5” u potprogramu “CombineMultipleCalendars”.
4. Nakon toga unesite broj kalendara koje želite da štampate istovremeno.
5. Kasnije, prema broju koji ste upravo uneli, moraćete da izaberete određeni broj kalendara u iskačućem dijaloškom okviru.
6. Kada se makro završi, možete se vratiti u okno za navigaciju kalendara.
7. Sada ćete tamo vidjeti novi “Temp” kalendar koji sadrži sve stavke odabranih kalendara.
8. Na kraju, možete odštampati ovaj kalendar kao i obično.

Brzo popravite probleme sa Outlookom

Jeste li ikada imali problema s Outlookom? U tom slučaju, šta biste onda uradili? Općenito, većina korisnika bi se prvo okrenula ugrađenom alatu za popravak – Scanpst. Međutim, zapravo, on ne može riješiti ozbiljne probleme, poput oštećenja PST datoteke. Obično u tom trenutku morate potražiti pomoć iskusnijeg vanjskog alata, recimo DataNumen Outlook Repair. Može popravi Outlook nevolje za tren.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com