2 Hitri načini za spajanje in tiskanje več Outlookovih koledarjev na isti strani

Morda imate v Outlooku več koledarjev in vsak vsebuje veliko elementov. Če želite vse te koledarje natisniti na isto stran, lahko preberete ta članek in se naučite dveh preprostih metod.

Outlook vam omogoča ogled več koledarjev v načinu prekrivanja, tako da lahko vidite vse elemente v več koledarjih na isti strani. Vendar pa v tem pogledu ne morete natisniti več koledarjev. Če pogledamo to težavo, vam bomo tukaj predstavili 2 pristopa, ki vam omogočata tiskanje več koledarjev na isto stran.

1. način: Natisnite posnetek zaslona prekritih koledarjev

1. Za začetek dostopajte do podokna Koledar s pritiskom na »Ctrl + 2«.
2. Nato v podoknu za krmarjenje označite koledarje, ki jih želite natisniti.
3. Nato kliknite puščice levo v glavi koledarjev, da jih prekrijete.
4. Zdaj lahko vidite, da so bili vsi elementi koledarjev prikazani v istem pogledu, kot je naslednja slika.
5. Nato kliknite »Novi predmeti« > »E-poštno sporočilo« pod zavihkom »Domov«.
6. V novem oknu sporočila postavite kazalec v telo.
7. Nato se premaknite na zavihek »Vstavi« in kliknite »Posnetek zaslona«.
8. Nato izberite prvo možnost v razdelku »Razpoložljivi sistemi Windows«.
9. Po tem so bili prekrivni koledarji vstavljeni v telo.
10. Na koncu kliknite »Datoteka« > »Natisni« > »Natisni«, da natisnete to e-pošto.

2. način: Natisnite združene koledarje na isti strani prek VBA

1. Najprej pritisnite tipki “Alt + F11” za dostop do urejevalnika Outlook VBA.
2. Nato v modul vstavite naslednjo kodo.

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. Nato zaženite makro tako, da pritisnete tipko “F5” v podprogramu “CombineMultipleCalendars”.
4. Po tem vnesite število koledarjev, ki jih želite natisniti hkrati.
5. Pozneje, glede na številko, ki ste jo pravkar vnesli, boste morali v pojavnem pogovornem oknu izbrati določeno število koledarjev.
6. Ko je makro končan, se lahko vrnete v navigacijsko podokno koledarja.
7. Zdaj boste tam videli nov »Začasni« koledar, ki vsebuje vse elemente izbranih koledarjev.
8. Sčasoma lahko ta koledar natisnete kot običajno.

Hitro popravite težave z Outlookom

Ste že kdaj naleteli na težave z Outlookom? Kaj bi storili v tem primeru? Na splošno bi se večina uporabnikov najprej zatekla k vgrajenemu orodju za popravilo – Scanpst. Vendar pa v resnici ne more odpraviti resnih težav, kot je poškodba PST. Običajno morate v tem primeru poiskati pomoč izkušenejšega zunanjega orodja, recimo DataNumen Outlook Repair. Lahko popraviti Outlook težave v hipu.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z sql popravek in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com