Mungkin Anda memiliki beberapa kalender di Outlook Anda dan masing-masing berisi banyak item. Jika Anda ingin mencetak semua kalender ini dalam satu halaman yang sama, Anda dapat membaca artikel ini untuk mempelajari 2 metode mudah.
Outlook mengizinkan Anda untuk melihat beberapa kalender dalam mode overlay, sehingga Anda dapat melihat semua item dalam beberapa kalender di halaman yang sama. Namun, Anda tidak dapat mencetak beberapa kalender dalam tampilan ini. Melihat masalah ini, di sini kami akan memperkenalkan Anda 2 pendekatan, yang memungkinkan Anda mencetak beberapa kalender di halaman yang sama.
Metode 1: Cetak Tangkapan Layar dari Kalender yang Dilapisi
- Sebagai permulaan, akses panel Kalender melalui “Ctrl + 2”.
- Kemudian, di panel navigasi, centang kalender yang ingin Anda cetak.
- Selanjutnya, klik panah kiri pada tajuk kalender untuk melapisinya.
- Sekarang, Anda dapat melihat bahwa semua item kalender telah ditampilkan dalam tampilan yang sama, seperti gambar berikut.
- Selanjutnya, klik “Item Baru” > “Pesan Email” di bawah tab 'Beranda'.
- Di jendela Pesan baru, letakkan kursor di badan.
- Kemudian, geser ke tab "Sisipkan" dan klik "Tangkapan Layar".
- Selanjutnya, pilih opsi pertama di “Available Windows”.
- Setelah itu, kalender overlay telah dimasukkan ke dalam tubuh.
- Terakhir, klik “File” > “Print” > “Print” untuk mencetak email ini.
Metode 2: Cetak Kalender Gabungan di Halaman yang Sama melalui VBA
- Pada awalnya, tekan tombol "Alt + F11" untuk mengakses editor Outlook VBA.
- Kemudian, masukkan kode berikut ke dalam 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
- Selanjutnya, jalankan makro dengan menekan tombol “F5” di subrutin “CombineMultipleCalendars”.
- Setelah itu, masukkan jumlah kalender yang ingin Anda cetak secara bersamaan.
- Kemudian, sesuai nomor yang Anda masukkan barusan, Anda harus memilih jumlah kalender tertentu di kotak dialog popup.
- Saat makro selesai, Anda bisa kembali ke panel navigasi Kalender.
- Sekarang, Anda akan melihat kalender "Temp" baru di sana, yang berisi semua item dari kalender yang dipilih.
- Akhirnya, Anda dapat mencetak kalender ini seperti biasa.
Perbaiki Masalah Outlook dengan Cepat
Pernahkah Anda mengalami masalah di Outlook? Jika ya, apa yang akan Anda lakukan? Secara umum, langkah pertama yang akan dilakukan sebagian besar pengguna adalah menggunakan alat perbaikan bawaan – Scanpst. Namun, kenyataannya, alat ini tidak dapat memperbaiki masalah serius, seperti kerusakan file PST. Biasanya, pada titik itu, Anda harus menggunakan bantuan alat eksternal yang lebih berpengalaman, misalnya... DataNumen Outlook Repair. Hal ini dapat perbaiki Outlook masalah dalam sekejap.
Pengantar Penulis:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com