Мүмкін сіздің Outlook-те бірнеше күнтізбелер бар және олардың әрқайсысында көптеген элементтер бар. Егер сіз осы күнтізбелердің барлығын бір парақта басып шығарғыңыз келсе, онда сіз осы мақаланы оқып, 2 қарапайым әдісті біле аласыз.
Outlook сізге бірнеше күнтізбені қабаттастырылған режимде көруге мүмкіндік береді, сол арқылы сіз бірнеше парақтағы барлық күнтізбелерді бір беттен көре аласыз. Алайда, сіз осы көріністе бірнеше күнтізбелерді басып шығара алмайсыз. Осы мәселені қарастыра отырып, біз сіздерге бірнеше күнтізбені бір парақта басып шығаруға мүмкіндік беретін 2 тәсілмен таныстырамыз.
1-әдіс: Қапталған күнтізбелердің скриншотын басып шығарыңыз
- Бастау үшін «Ctrl + 2» пернелер тіркесімі арқылы Күнтізбе тақтасына кіріңіз.
- Содан кейін, шарлау аумағында басып шығарғыңыз келетін күнтізбелерді тексеріңіз.
- Одан кейін, күнтізбелердің үстіңгі жағындағы сол жақ көрсеткілерді басып, оларды қабаттаңыз.
- Енді сіз күнтізбелердің барлық элементтері келесі көрініс сияқты бір көріністе көрсетілгенін көре аласыз.
- Содан кейін, «Үй» қойындысының астындағы «Жаңа элементтер»> «Электрондық пошта хабарлары» тармағын басыңыз.
- Хабардың жаңа терезесінде меңзерді денеге салыңыз.
- Содан кейін, «Кірістіру» қойындысына ауысып, «Скриншотты» басыңыз.
- Әрі қарай, «Қол жетімді Windows» ішіндегі бірінші нұсқаны таңдаңыз.
- Осыдан кейін денеге қабатталған күнтізбелер енгізілді.
- Соңында, осы электрондық поштаны басып шығару үшін «Файл»> «Басып шығару»> «Басып шығару» батырмаларын басыңыз.
2-әдіс: Біріккен күнтізбелерді бір параққа VBA арқылы басып шығару
- Алдымен Outlook VBA редакторына кіру үшін «Alt + F11» пернелерін басыңыз.
- Содан кейін келесі кодты модульге салыңыз.
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
- Содан кейін макросты «CombineMultipleCalendars» ішкі бағдарламасында «F5» батырмасын басу арқылы іске қосыңыз.
- Осыдан кейін бір уақытта басып шығарғыңыз келетін күнтізбелер санын енгізіңіз.
- Кейінірек, дәл қазір енгізілген санға сәйкес, сіз қалқымалы терезеде күнтізбелердің белгілі бір санын таңдауыңыз керек.
- Макросты аяқтаған кезде, күнтізбе шарлау аймағына қайта оралуға болады.
- Енді сіз сол жерден күнтізбелердің барлық элементтерін қамтитын жаңа «Темп» күнтізбесін көресіз.
- Ақыр соңында сіз бұл күнтізбені әдеттегідей басып шығара аласыз.
Outlook ақауларын тез қалпына келтіріңіз
Outlook мәселелеріне тап болдыңыз ба? Ондай жағдайда не істер едіңіз? Жалпы, ең алдымен, көптеген пайдаланушылар кіріктірілген жөндеу құралына - Scanpst-ке жүгінеді. Дегенмен, шын мәнінде, ол PST зақымдануы сияқты күрделі мәселелерді шеше алмайды. Әдетте, бұл кезде сізге тәжірибелі сыртқы құралдың көмегі қажет, мысалы. DataNumen Outlook Repair. Ол істей алады Outlook бағдарламасын түзетіңіз қиындықтар.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. sql түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com