Poate că aveți mai multe calendare în Outlook și fiecare conține o mulțime de elemente. Dacă doriți să imprimați toate aceste calendare pe aceeași pagină, puteți citi acest articol pentru a afla 2 metode simple.
Outlook vă permite să vizualizați mai multe calendare în modul suprapunere, astfel încât să puteți vedea toate elementele din mai multe calendare în aceeași pagină. Cu toate acestea, nu puteți imprima mai multe calendare în această vizualizare. Privind această problemă, aici vă vom prezenta 2 abordări, care vă permit să imprimați mai multe calendare pe aceeași pagină.
Metoda 1: Imprimați captura de ecran a calendarelor suprapuse
- Pentru început, accesați panoul Calendar folosind „Ctrl + 2”.
- Apoi, în panoul de navigare, verificați calendarele pe care doriți să le imprimați.
- Apoi, faceți clic pe săgețile din stânga din antetul calendarelor pentru a le suprapune.
- Acum, puteți vedea că toate elementele calendarelor au fost afișate în aceeași vizualizare, ca în imaginea următoare.
- Ulterior, faceți clic pe „Articole noi” > „Mesaj de e-mail” sub fila „Acasă”.
- În noua fereastră de mesaj, plasați cursorul în corpul.
- Apoi, treceți la fila „Inserare” și faceți clic pe „Captură de ecran”.
- Apoi, alegeți prima opțiune din „Feriemente disponibile”.
- După aceea, calendarele suprapuse au fost introduse în corp.
- În cele din urmă, faceți clic pe „Fișier” > „Imprimare” > „Imprimare” pentru a imprima acest e-mail.
Metoda 2: Imprimați calendarele îmbinate în aceeași pagină prin VBA
- La început, apăsați tastele „Alt + F11” pentru a accesa editorul Outlook VBA.
- Apoi, introduceți următorul cod într-un 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
- Apoi, rulați macrocomandă apăsând tasta „F5” în subrutina „CombineMultipleCalendars”.
- După aceea, introduceți numărul de calendare pe care doriți să le imprimați în același timp.
- Mai târziu, conform numărului pe care l-ați introdus acum, va trebui să selectați un anumit număr de calendare în caseta de dialog pop-up.
- După finalizarea macrocomenzii, puteți reveni la panoul de navigare Calendar.
- Acum, veți vedea un nou calendar „Temp” acolo, care conține toate elementele calendarelor selectate.
- În cele din urmă, puteți tipări acest calendar ca de obicei.
Remediați rapid problemele Outlook
Ați întâmpinat vreodată probleme cu Outlook? În acest caz, ce ați face atunci? În general, majoritatea utilizatorilor ar recurge la instrumentul de reparare încorporat - Scanpst. Cu toate acestea, de fapt, acesta nu poate remedia problemele grave, cum ar fi deteriorarea PST. În mod normal, în acest moment, trebuie să apelați la un instrument extern mai experimentat, de exemplu. DataNumen Outlook Repair. Poate remediați Outlook necazuri într-o clipă.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv remediere sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com