Birden Çok Outlook Takvimini Aynı Sayfada Birleştirmenin ve Yazdırmanın 2 Hızlı Yolu

Belki de Outlook'unuzda birden çok takviminiz vardır ve her biri birçok öğe içerir. Tüm bu takvimleri aynı sayfada yazdırmak istiyorsanız 2 kolay yöntemi öğrenmek için bu makaleyi okuyabilirsiniz.

Outlook, birkaç takvimi yer paylaşımlı modda görüntülemenize izin verir; öyle ki, birkaç takvimdeki tüm öğeleri aynı sayfada görebilirsiniz. Ancak, bu görünümde birkaç takvim yazdıramazsınız. Bu konuya baktığımızda, burada size aynı sayfada birden fazla takvim yazdırmanıza olanak tanıyan 2 yaklaşımı tanıtacağız.

Yöntem 1: Yer Paylaşımlı Takvimlerin Ekran Görüntüsünü Yazdırın

1. Öncelikle, "Ctrl + 2" tuş kombinasyonunu kullanarak Takvim paneline erişin.
2. Ardından gezinme bölmesinde yazdırmak istediğiniz takvimleri kontrol edin.
3. Ardından, üst üste bindirmek için takvimlerin başlığındaki sol okları tıklayın.
4. Artık takvimlerin tüm öğelerinin aşağıdaki görseldeki gibi aynı görünümde gösterildiğini görebilirsiniz.
5. Daha sonra, 'Ana Sayfa' sekmesi altındaki “Yeni Öğeler” > “E-posta Mesajı”na tıklayın.
6. Yeni Mesaj penceresinde imleci gövdeye getirin.
7. Ardından, “Ekle” sekmesine geçin ve “Ekran Görüntüsü” nü tıklayın.
8. Ardından, "Mevcut Windows" bölümündeki ilk seçeneği seçin.
9. Bundan sonra, üst üste binen takvimler gövdeye yerleştirildi.
10. Son olarak, bu e-postayı yazdırmak için “Dosya” > “Yazdır” > “Yazdır”a tıklayın.

Yöntem 2: Birleştirilmiş Takvimleri VBA ile Aynı Sayfada Yazdır

1. Outlook VBA düzenleyicisine erişmek için öncelikle “Alt + F11” tuşlarına basın.
2. Ardından, aşağıdaki kodu bir modüle yerleştirin.

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. Ardından, “CombineMultipleCalendars” alt programında “F5” tuşuna basarak makroyu çalıştırın.
4. Ardından, aynı anda yazdırmak istediğiniz takvim sayısını girin.
5. Daha sonra, az önce girdiğiniz sayıya göre, açılır iletişim kutusunda belirli sayıda takvimi seçmeniz gerekecek.
6. Makro tamamlandığında, Takvim gezinti bölmesine geri dönebilirsiniz.
7. Şimdi orada, seçilen takvimlerin tüm öğelerini içeren yeni bir “Geçici” takvim göreceksiniz.
8. Sonunda, bu takvimi her zamanki gibi yazdırabilirsiniz.

Outlook Sorunlarını Hızla Onarın

Outlook'ta hiç sorun yaşadınız mı? Yaşadıysanız ne yapardınız? Genellikle çoğu kullanıcı ilk olarak yerleşik onarım aracı olan Scanpst'ye başvurur. Ancak, aslında bu araç PST hasarı gibi ciddi sorunları çözemez. Bu noktada, daha deneyimli harici bir araçtan yardım almanız gerekir. DataNumen Outlook Repair. Bu olabilir Outlook'u düzelt bir anda dertler.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql düzeltmesi ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com