Galbūt „Outlook“ turite kelis kalendorius ir kiekviename iš jų yra daug elementų. Jei norite spausdinti visus šiuos kalendorius tame pačiame puslapyje, galite perskaityti šį straipsnį, kad sužinotumėte 2 paprastus būdus.
„Outlook“ leidžia peržiūrėti kelis kalendorius perdangos režimu, kad galėtumėte matyti visus kelių kalendorių elementus tame pačiame puslapyje. Tačiau šiame rodinyje negalite spausdinti kelių kalendorių. Žvelgdami į šią problemą, pristatysime jums 2 būdus, kurie leidžia spausdinti kelis kalendorius tame pačiame puslapyje.
1 būdas: išspausdinkite perdengtų kalendorių ekrano kopiją
- Norėdami pradėti, atidarykite kalendoriaus langą paspausdami „Ctrl + 2“.
- Tada naršymo srityje pažymėkite norimus spausdinti kalendorius.
- Tada spustelėkite kalendorių antraštės rodykles į kairę, kad juos perdengtumėte.
- Dabar galite matyti, kad visi kalendorių elementai buvo rodomi tame pačiame rodinyje, kaip ir toliau pateiktame paveikslėlyje.
- Tada skirtuke „Pagrindinis“ spustelėkite „Nauji elementai“ > „El. pašto žinutė“.
- Naujame pranešimų lange užveskite žymeklį ant kūno.
- Tada pereikite prie skirtuko „Įterpti“ ir spustelėkite „Ekrano kopija“.
- Tada pasirinkite pirmąją parinktį „Galimi langai“.
- Po to perdengti kalendoriai buvo įdėti į korpusą.
- Galiausiai spustelėkite „Failas“ > „Spausdinti“ > „Spausdinti“, kad išspausdintumėte šį el. laišką.
2 būdas: spausdinkite sujungtus kalendorius tame pačiame puslapyje naudodami VBA
- Iš pradžių paspauskite „Alt + F11“ klavišus, kad pasiektumėte „Outlook VBA“ redaktorių.
- Tada į modulį įdėkite šį kodą.
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
- Tada paleiskite makrokomandą paspausdami „F5“ klavišą „CombineMultipleCalendars“ paprogramėje.
- Po to įveskite kalendorių, kuriuos norite spausdinti vienu metu, skaičių.
- Vėliau, atsižvelgiant į ką tik įvestą skaičių, iššokančiajame dialogo lange turėsite pasirinkti tam tikrą kalendorių skaičių.
- Kai makrokomanda bus baigta, galite grįžti į Kalendoriaus naršymo sritį.
- Dabar ten pamatysite naują „Temp“ kalendorių, kuriame yra visi pasirinktų kalendorių elementai.
- Galiausiai galite atsispausdinti šį kalendorių kaip įprasta.
Greitai ištaisykite „Outlook“ problemas
Ar kada nors susidūrėte su „Outlook“ problemomis? Ką tokiu atveju darytumėte? Paprastai dauguma vartotojų pirmiausia griebtųsi integruoto taisymo įrankio – „Scanpst“. Tačiau iš tikrųjų jis negali išspręsti rimtų problemų, tokių kaip PST pažeidimai. Paprastai tokiu atveju reikia kreiptis pagalbos į patyrusį išorinį įrankį, tarkime, DataNumen Outlook Repair. Tai gali pataisyti Outlook bėdos akimirksniu.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com