2 snelle manieren om meerdere Outlook-agenda's samen te voegen en af ​​te drukken op dezelfde pagina

Misschien heeft u meerdere agenda's in uw Outlook en elke agenda bevat veel items. Als u al deze kalenders op dezelfde pagina wilt afdrukken, kunt u dit artikel lezen om 2 eenvoudige methoden te leren.

Met Outlook kunt u meerdere agenda's in overlay-modus bekijken, zodat u alle items in verschillende agenda's op dezelfde pagina kunt zien. U kunt in deze weergave echter niet meerdere agenda's afdrukken. Als we naar dit probleem kijken, zullen we u hier 2 benaderingen voorstellen, waarmee u meerdere kalenders op dezelfde pagina kunt afdrukken.

Methode 1: Druk de schermafbeelding van overlappende agenda's af

1. Om te beginnen, open het kalenderpaneel via "Ctrl + 2".
2. Controleer vervolgens in het navigatievenster de agenda's die u wilt afdrukken.
3. Klik vervolgens op de linkerpijlen in de kop van de agenda's om ze over elkaar te leggen.
4. Nu kunt u zien dat alle items van de kalenders in dezelfde weergave zijn weergegeven, zoals in de volgende afbeelding.
5. Klik vervolgens op “Nieuwe items”> “E-mailbericht” onder tabblad 'Home'.
6. Plaats de cursor in het nieuwe berichtvenster in de hoofdtekst.
7. Ga vervolgens naar het tabblad "Invoegen" en klik op "Screenshot".
8. Kies vervolgens de eerste optie in de “Beschikbare vensters”.
9. Daarna zijn de over elkaar liggende kalenders in het lichaam geplaatst.
10. Klik ten slotte op "Bestand"> "Afdrukken"> "Afdrukken" om deze e-mail af te drukken.

Methode 2: samengevoegde agenda's op dezelfde pagina afdrukken via VBA

1. Druk eerst op "Alt + F11" -toetsen om toegang te krijgen tot de Outlook VBA-editor.
2. Plaats vervolgens de volgende code in een module.

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. Voer vervolgens de macro uit door op de toets "F5" te drukken in de subroutine "CombineMultipleCalendars".
4. Voer daarna het aantal kalenders in dat u tegelijkertijd wilt afdrukken.
5. Later, volgens het nummer dat u zojuist hebt ingevoerd, moet u het bepaalde aantal agenda's in het pop-upvenster selecteren.
6. Wanneer de macro is voltooid, kunt u teruggaan naar het agendanavigatievenster.
7. Nu zul je daar een nieuwe "Temp" -kalender zien, die alle items van de geselecteerde kalenders bevat.
8. Uiteindelijk kunt u deze kalender zoals gewoonlijk afdrukken.

Herstel Outlook-problemen snel

Heb je ooit problemen met Outlook ondervonden? Wat zou je dan doen? Over het algemeen zouden de meeste gebruikers in eerste instantie de ingebouwde reparatietool Scanpst gebruiken. Deze tool kan echter geen ernstige problemen oplossen, zoals beschadigde PST-bestanden. Meestal moet je dan een meer geavanceerde externe tool inschakelen, zoals bijvoorbeeld een ander programma. DataNumen Outlook Repair. Het kan Outlook repareren problemen in een handomdraai.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql-oplossing en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com