2 ātri līdzekļi vairāku Outlook kalendāru sapludināšanai un drukāšanai vienā un tajā pašā lapā

Iespējams, jūsu programmā Outlook ir vairāki kalendāri, un katrā no tiem ir daudz vienumu. Ja vēlaties izdrukāt visus šos kalendārus vienā un tajā pašā lapā, varat izlasīt šo rakstu, lai uzzinātu 2 vienkāršas metodes.

Programma Outlook ļauj apskatīt vairākus kalendārus pārklājuma režīmā, lai vienā un tajā pašā lapā varētu redzēt visus vienumus vairākos kalendāros. Tomēr šajā skatā nevarat izdrukāt vairākus kalendārus. Aplūkojot šo jautājumu, šeit mēs iepazīstināsim ar divām pieejām, kas ļauj vienā un tajā pašā lapā izdrukāt vairākus kalendārus.

1. metode: izdrukājiet pārklāto kalendāru ekrānuzņēmumu

1. Lai sāktu, piekļūstiet kalendāra rūtij, izmantojot taustiņu kombināciju “Ctrl + 2”.
2. Pēc tam navigācijas rūtī pārbaudiet kalendārus, kurus vēlaties drukāt.
3. Pēc tam noklikšķiniet uz kreisās bultiņas kalendāru galvenē, lai tās pārklātu.
4. Tagad jūs varat redzēt, ka visi kalendāru vienumi ir parādīti vienā skatā, piemēram, šajā attēlā.
5. Pēc tam cilnē Sākums noklikšķiniet uz “Jauni vienumi”> “E-pasta ziņojums”.
6. Jaunajā logā Ziņojums ievietojiet kursoru pamattekstā.
7. Pēc tam pārejiet uz cilni “Ievietot” un noklikšķiniet uz “Ekrānuzņēmums”.
8. Pēc tam sadaļā “Pieejamais Windows” izvēlieties pirmo opciju.
9. Pēc tam pārklātie kalendāri ir ievietoti ķermenī.
10. Visbeidzot, noklikšķiniet uz “File”> “Print”> “Print”, lai izdrukātu šo e-pastu.

2. metode: izdrukājiet sapludinātos kalendārus tajā pašā lapā, izmantojot VBA

1. Sākumā nospiediet taustiņus “Alt + F11”, lai piekļūtu Outlook VBA redaktoram.
2. Pēc tam modulī ievietojiet šādu kodu.

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. Pēc tam palaidiet makro, nospiežot taustiņu “F5” apakšprogrammā “CombineMultipleCalendars”.
4. Pēc tam ievadiet tajā pašā laikā drukājamo kalendāru skaitu.
5. Vēlāk, atbilstoši numuram, kuru ievadījāt tieši tagad, uznirstošajā dialoglodziņā būs jāatlasa noteikts kalendāru skaits.
6. Kad makro ir pabeigts, varat atgriezties navigācijas rūtī Kalendārs.
7. Tagad jūs redzēsiet jaunu “Temp” kalendāru, kurā ir visi atlasīto kalendāru vienumi.
8. Galu galā jūs varat izdrukāt šo kalendāru kā parasti.

Ātri labojiet Outlook problēmas

Vai esat kādreiz saskāries ar problēmām programmā Outlook? Ko jūs šādā gadījumā darītu? Kopumā, pirmkārt, vairums lietotāju izmantotu iebūvēto labošanas rīku — Scanpst. Tomēr patiesībā tas nevar novērst nopietnas problēmas, piemēram, PST bojājumus. Parasti šādā gadījumā jums ir jāizmanto pieredzējušāks ārējais rīks, piemēram, DataNumen Outlook Repair. Tā var labot Outlook nepatikšanas vienā mirklī.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar