2 Bitta sahifada bir nechta Outlook kalendarlarini birlashtirish va chop etishning tezkor vositalari

Ehtimol, sizning Outlook-da bir nechta kalendarlaringiz bor va ularning har biri juda ko'p narsalarni o'z ichiga oladi. Agar siz ushbu kalendarlarning barchasini bitta sahifada chop qilmoqchi bo'lsangiz, 2 ta oson usulni o'rganish uchun ushbu maqolani o'qishingiz mumkin.

Outlook sizga bir nechta kalendarlarni bir xil sahifada bir nechta kalendarlardagi barcha elementlarni ko'rishingiz uchun qoplama rejimida ko'rish imkonini beradi. Biroq, bu ko‘rinishda bir nechta kalendarlarni chop eta olmaysiz. Ushbu masalani ko'rib chiqsak, biz sizni bir sahifada bir nechta kalendarlarni chop etish imkonini beruvchi 2 ta yondashuvni taqdim etamiz.

1-usul: Qoplangan kalendarlarning skrinshotini chop eting

1. Boshlash uchun, "Ctrl + 2" tugmalar birikmasi orqali Taqvim paneliga kiring.
2. Keyin, navigatsiya panelida chop qilmoqchi bo'lgan kalendarlarni tekshiring.
3. Keyin taqvimlar sarlavhasidagi chap strelkalar ustiga bosing va ularni ustiga qo'ying.
4. Endi siz kalendarlarning barcha elementlari quyidagi rasmdagi kabi bir xil ko'rinishda ko'rsatilganligini ko'rishingiz mumkin.
5. Keyinchalik, "Uy" yorlig'i ostidagi "Yangi elementlar" > "Elektron pochta xabari" ni bosing.
6. Yangi Xabar oynasida kursorni tanaga qo'ying.
7. Keyin "Qo'shish" yorlig'iga o'ting va "Skrinshot" ni bosing.
8. Keyin, "Mavjud Windows" da birinchi variantni tanlang.
9. Shundan so'ng, ustiga qo'yilgan kalendarlar tanaga qo'yildi.
10. Nihoyat, ushbu xatni chop etish uchun “Fayl” > “Chop etish” > “Chop etish” tugmasini bosing.

2-usul: Birlashtirilgan kalendarlarni bir sahifada VBA orqali chop etish

1. Avval Outlook VBA muharririga kirish uchun “Alt + F11” tugmalarini bosing.
2. Keyin quyidagi kodni modulga qo'ying.

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. Keyin, "CombineMultipleCalendars" kichik dasturidagi "F5" tugmachasini bosib makrosni ishga tushiring.
4. Shundan so'ng, bir vaqtning o'zida chop qilmoqchi bo'lgan kalendarlar sonini kiriting.
5. Keyinchalik, siz hozir kiritgan raqamga ko'ra, qalqib chiquvchi dialog oynasida kalendarlarning ma'lum sonini tanlashingiz kerak bo'ladi.
6. Makros tugagach, siz Taqvim navigatsiya paneliga qaytishingiz mumkin.
7. Endi siz u yerda tanlangan kalendarlarning barcha elementlarini o‘z ichiga olgan yangi “Temp” kalendarini ko‘rasiz.
8. Oxir-oqibat, bu taqvimni odatdagidek chop etishingiz mumkin.

Outlook muammolarini tezda tuzating

Outlook bilan bog'liq muammolarga duch kelganmisiz? Unda nima qilardingiz? Umuman olganda, birinchi navbatda, ko'pchilik foydalanuvchilar o'rnatilgan ta'mirlash vositasi - Scanpst ga murojaat qilishadi. Biroq, aslida u PST shikastlanishi kabi jiddiy muammolarni hal qila olmaydi. Odatda, bu holda siz tajribali tashqi vositadan foydalanishingiz kerak bo'ladi, masalan. DataNumen Outlook Repair. U qila oladi Outlook-ni tuzatish bir zumda muammolar.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com