Mungkin anda mempunyai beberapa kalendar dalam Outlook anda dan masing-masing mengandungi banyak item. Sekiranya anda ingin mencetak semua kalendar ini dalam halaman yang sama, anda boleh membaca artikel ini untuk mempelajari 2 kaedah mudah.
Outlook membolehkan anda melihat beberapa kalendar dalam mod hamparan, sehingga anda dapat melihat semua item dalam beberapa kalendar di halaman yang sama. Walau bagaimanapun, anda tidak dapat mencetak beberapa kalendar dalam paparan ini. Melihat masalah ini, di sini kami akan memperkenalkan kepada anda 2 pendekatan, yang membolehkan anda mencetak beberapa kalendar dalam halaman yang sama.
Kaedah 1: Cetak Tangkapan Skrin Kalendar Bertindih
- Sebagai permulaan, akses anak tetingkap Kalendar melalui “Ctrl + 2”.
- Kemudian, di panel navigasi, periksa kalendar yang ingin dicetak.
- Seterusnya, klik anak panah kiri pada tajuk kalendar untuk melampirkannya.
- Sekarang, anda dapat melihat bahawa semua item kalendar telah ditunjukkan dalam paparan yang sama, seperti gambar berikut.
- Selanjutnya, klik "Item Baru"> "Mesej E-mel" di bawah tab "Laman Utama".
- Di tetingkap Mesej baru, masukkan kursor ke badan.
- Kemudian, beralih ke tab "Masukkan" dan klik "Tangkapan Skrin".
- Seterusnya, pilih pilihan pertama dalam "Windows Tersedia".
- Selepas itu, kalendar yang dilapisi telah dimasukkan ke dalam badan.
- Akhirnya, klik "Fail"> "Cetak"> "Cetak" untuk mencetak e-mel ini.
Kaedah 2: Cetak Kalendar Gabungan di Halaman yang Sama melalui VBA
- Pada mulanya, tekan kekunci "Alt + F11" untuk mengakses penyunting Outlook VBA.
- Kemudian, masukkan kod 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
- Seterusnya, jalankan makro dengan menekan kekunci "F5" dalam subrutin "CombineMultipleCalendars".
- Selepas itu, masukkan jumlah kalendar yang ingin dicetak pada masa yang sama.
- Kemudian, mengikut nombor yang anda masukkan sebentar tadi, anda perlu memilih jumlah kalendar dalam kotak dialog pop timbul.
- Apabila makro selesai, anda boleh kembali ke panel navigasi Kalendar.
- Sekarang, anda akan melihat kalendar "Temp" baru di sana, yang mengandungi semua item kalendar yang dipilih.
- Akhirnya, anda boleh mencetak kalendar ini seperti biasa.
Baiki Masalah Outlook dengan pantas
Pernahkah anda menghadapi masalah Outlook? Dalam kes itu, apakah yang akan anda lakukan? Secara amnya, pada mulanya, kebanyakan pengguna akan menggunakan alat pembaikan terbina dalam – Scanpst. Namun, sebenarnya, ia tidak dapat menyelesaikan masalah yang teruk, seperti kerosakan PST. Biasanya, pada ketika itu, anda perlu menggunakan alat luaran yang lebih berpengalaman, katakan DataNumen Outlook Repair. Ia boleh betulkan Outlook masalah dalam sekelip mata.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com