Kanskje du har flere kalendere i Outlook, og hver enkelt inneholder mange elementer. Hvis du vil skrive ut alle disse kalenderne på samme side, kan du lese denne artikkelen for å lære to enkle metoder.
Outlook lar deg se flere kalendere i overleggsmodus, slik at du kan se alle elementene i flere kalendere på samme side. Du kan imidlertid ikke skrive ut flere kalendere i denne visningen. Når vi ser på dette problemet, vil vi her introdusere deg 2 tilnærminger, som lar deg skrive ut flere kalendere på samme side.
Metode 1: Skriv ut skjermbildet av overlagte kalendere
- For en start, få tilgang til Kalender-ruten via "Ctrl + 2".
- Deretter, i navigasjonsruten, merker du av for kalenderne du vil skrive ut.
- Deretter klikker du på venstrepilene på overskriften til kalenderne for å legge dem over.
- Nå kan du se at alle elementene i kalenderne har blitt vist i samme visning, som det følgende bildet.
- Klikk deretter "Nye elementer" > "E-postmelding" under fanen "Hjem".
- I det nye meldingsvinduet setter du markøren inn i brødteksten.
- Skift deretter til "Sett inn"-fanen og klikk på "Skjermbilde".
- Deretter velger du det første alternativet i "Tilgjengelige Windows".
- Etter det har de overlagte kalenderne blitt satt inn i kroppen.
- Til slutt klikker du på «Fil» > «Skriv ut» > «Skriv ut» for å skrive ut denne e-posten.
Metode 2: Skriv ut sammenslåtte kalendere på samme side via VBA
- Først trykker du på "Alt + F11"-tastene for å få tilgang til Outlook VBA-editor.
- Deretter legger du følgende kode inn 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
- Deretter kjører du makroen ved å trykke "F5"-tasten i subrutinen "CombineMultipleCalendars".
- Deretter skriver du inn antall kalendere du vil skrive ut samtidig.
- Senere, i henhold til nummeret du skrev inn akkurat nå, må du velge et bestemt antall kalendere i popup-dialogboksen.
- Når makroen er fullført, kan du gå tilbake til kalendernavigasjonsruten.
- Nå vil du se en ny "Temp"-kalender der borte, som inneholder alle elementene i de valgte kalenderne.
- Etter hvert kan du skrive ut denne kalenderen som vanlig.
Reparer Outlook-problemer raskt
Har du noen gang opplevd problemer med Outlook? Hva ville du i så fall gjort? Generelt sett ville de fleste brukere i utgangspunktet ty til det innebygde reparasjonsverktøyet – Scanpst. Men faktisk kan det ikke fikse alvorlige problemer, som for eksempel PST-skade. Normalt må du da ta hjelp av et mer erfarent eksternt verktøy, for eksempel DataNumen Outlook Repair. Det kan fikse Outlook problemer på et blunk.
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql fikse og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med