2 snabba medel för att slå samman och skriva ut flera Outlook-kalendrar på samma sida

Kanske har du flera kalendrar i Outlook och var och en innehåller många saker. Om du vill skriva ut alla dessa kalendrar på samma sida kan du läsa den här artikeln för att lära dig två enkla metoder.

Outlook tillåter dig att visa flera kalendrar i överlagringsläge, så att du kan se alla objekt i flera kalendrar på samma sida. Du kan dock inte skriva ut flera kalendrar i den här vyn. Om vi ​​tittar på denna fråga presenterar vi dig två metoder, som låter dig skriva ut flera kalendrar på samma sida.

Metod 1: Skriv ut skärmdumpen av överlagrade kalendrar

1. Till att börja med, öppna Kalender-fönstret via "Ctrl + 2".
2. Kontrollera sedan i navigeringsfönstret de kalendrar du vill skriva ut.
3. Klicka sedan på vänsterpilarna på rubriken i kalendrarna för att lägga dem.
4. Nu kan du se att alla objekt i kalendrarna har visats i samma vy, som följande bild.
5. Klicka sedan på "Nya objekt"> "E-postmeddelande" under "Hem" -fliken.
6. I det nya meddelandefönstret placerar du markören i kroppen.
7. Gå sedan till fliken "Infoga" och klicka på "Skärmdump".
8. Välj sedan det första alternativet i "Tillgängliga Windows".
9. Därefter har de överlagrade kalendrarna förts in i kroppen.
10. Slutligen klickar du på "Arkiv"> "Skriv ut"> "Skriv ut" för att skriva ut detta e-postmeddelande.

Metod 2: Skriv ut sammanslagna kalendrar på samma sida via VBA

1. Först trycker du på “Alt + F11” -tangenterna för att komma åt Outlook VBA-redigeraren.
2. Lägg sedan in följande kod i en 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. Kör sedan makrot genom att trycka på "F5" -tangenten i underrutinen "CombineMultipleCalendars".
4. Därefter anger du antalet kalendrar som du vill skriva ut samtidigt.
5. Senare, enligt numret du anger just nu, måste du välja ett visst antal kalendrar i popup-dialogrutan.
6. När makrot är klart kan du gå tillbaka till kalenderns navigeringsfönster.
7. Nu ser du en ny "Temp" -kalender där, som innehåller alla objekt i de valda kalendrarna.
8. Så småningom kan du skriva ut den här kalendern som vanligt.

Reparera Outlook-problem snabbt

Har du någonsin stött på problem med Outlook? Vad skulle du göra i så fall? Generellt sett skulle de flesta användare först och främst tillgripa det inbyggda reparationsverktyget Scanpst. Men faktum är att det inte kan åtgärda allvarliga problem, som PST-skador. Normalt sett måste du då ta hjälp av ett mer erfaret externt verktyg, till exempel DataNumen Outlook Repair. Det kan fixa Outlook problem i ett ögonblick.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive sql fix och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com