2 Gyors mód több Outlook-naptár egyesítésére és nyomtatására ugyanazon az oldalon

Talán több naptár is van az Outlookban, és mindegyik sok elemet tartalmaz. Ha az összes naptárat ugyanazon az oldalon szeretné kinyomtatni, olvassa el ezt a cikket, hogy megtanuljon 2 egyszerű módszert.

Az Outlook lehetővé teszi több naptár megtekintését átfedő módban, így ugyanazon az oldalon több naptár összes elemét láthatja. Ebben a nézetben azonban nem tud több naptárat kinyomtatni. Ha ezt a kérdést nézzük, itt 2 megközelítést mutatunk be, amelyek lehetővé teszik több naptár nyomtatását ugyanazon az oldalon.

1. módszer: Nyomtassa ki az átfedett naptárak képernyőképét

1. Kezdésként a „Ctrl + 2” billentyűkombinációval nyissa meg a Naptár ablaktáblát.
2. Ezután a navigációs panelen jelölje be a nyomtatni kívánt naptárakat.
3. Ezután kattintson a bal oldali nyilakra a naptárak fejlécén, hogy átfedje őket.
4. Most láthatja, hogy a naptárak összes eleme ugyanabban a nézetben jelenik meg, például a következő képen.
5. Ezt követően kattintson az „Új tételek” > ​​„E-mail üzenet” elemre a „Főoldal” fül alatt.
6. Az új Üzenet ablakban vigye a kurzort a törzsbe.
7. Ezután lépjen a „Beszúrás” fülre, és kattintson a „Képernyőkép” gombra.
8. Ezután válassza ki az első lehetőséget az „Elérhető Windows” listában.
9. Ezt követően az átlapolt naptárak a testbe kerültek.
10. Végül kattintson a „Fájl” > „Nyomtatás” > „Nyomtatás” elemre az e-mail kinyomtatásához.

2. módszer: Nyomtasson egyesített naptárakat ugyanazon az oldalon VBA-n keresztül

1. Először nyomja meg az „Alt + F11” billentyűket az Outlook VBA szerkesztő eléréséhez.
2. Ezután helyezze be a következő kódot egy modulba.

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. Ezután futtassa a makrót az „F5” billentyű megnyomásával a „CombineMultipleCalendars” szubrutinban.
4. Ezt követően adja meg az egyszerre nyomtatni kívánt naptárak számát.
5. Később, az imént beírt számnak megfelelően, ki kell választania a naptárak számát a felugró párbeszédpanelen.
6. Amikor a makró elkészült, visszatérhet a Naptár navigációs ablaktáblájához.
7. Most egy új „Temp” naptár jelenik meg ott, amely a kiválasztott naptárak összes elemét tartalmazza.
8. Végül a szokásos módon kinyomtathatja ezt a naptárat.

Az Outlook-problémák gyors javítása

Találkoztál már Outlook problémákkal? Mit tennél ilyen esetben? Általánosságban elmondható, hogy a legtöbb felhasználó elsősorban a beépített javítóeszközhöz, a Scanpst-hez folyamodik. Azonban valójában ez nem tudja megoldani a súlyos problémákat, például a PST-károkat. Normális esetben ilyenkor egy tapasztaltabb külső eszközhöz kell fordulni, mondjuk... DataNumen Outlook Repair. Az tud javítsa ki az Outlookot bajok egy pillanat alatt.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com