Cetak daftar satu janji temu berulang Outlook dengan mengekspor

Cetak daftar satu janji temu berulang Outlook dengan VBA

Sebenarnya, tidak ada cara langsung untuk mencetak daftar semua kejadian dalam janji temu berulang di Outlook. Namun, Anda bisa mengekspor data kalender ke Excel, memfilter semua kemunculan janji temu berulang, lalu mencetak. Harap lakukan sebagai berikut:

1. Di Outlook, silakan klik File > Buka & Ekspor (Atau Open)> Impor / Ekspor (Atau impor).

2. Dalam Panduan Impor dan Ekspor, klik Ekspor ke file pilihan, dan klik Selanjutnya .

3. Dalam Ekspor pertama ke kotak dialog File, klik Comma Separated Values pilihan, dan klik Selanjutnya .

4. Di kotak dialog Ekspor ke File kedua, pilih kalender yang berisi janji temu berulang yang akan Anda cetak, dan klik Selanjutnya .

5. Di kotak dialog Ekspor ke File ketiga, klik Browse .

6. Sekarang kotak dialog Browse keluar. Silahkan (1) tentukan folder tujuan tempat Anda menyimpan file CSV yang diekspor, (2) beri nama file CSV di File Name kotak, dan (3) klik OK .

7. Klik Selanjutnya tombol dan Finish di kedua kotak dialog Ekspor File ketiga dan terakhir.

8. Tentukan rentang tanggal Anda akan mengekspor kalender dalam kotak dialog Set Rentang Tanggal, dan klik OK .

9. Sejauh ini kalender Outlook telah diekspor sebagai file CSV. Silahkan buka folder yang berisi file CSV tersebut, klik kanan file CSV tersebut dan pilih terbuka dengan > Excel dari menu konteks. Lihat tangkapan layar:

10. File CSV yang diekspor dibuka di Excel. Pilih tajuk kolom Subjek, dan klik Data > Filter. Lihat tangkapan layar:

10. Klik ikon Filter di tajuk kolom Subjek, hanya periksa subjek janji temu berulang yang akan Anda cetak dari daftar drop-down, dan klik OK .

11. Hanya kemunculan janji berulang yang ditentukan yang disaring. Silakan klik File > Mencetak untuk mencetaknya.

Metode ini akan memperkenalkan VBA untuk dengan cepat mencetak daftar janji temu berulang di Outlook dengan mudah. Harap lakukan sebagai berikut:

1. Pada tampilan Kalender, pilih salah satu kemunculan janji berulang yang akan Anda cetak, dan tekan lain + F11 kunci untuk membuka jendela Microsoft Visual Basic for Applications.

2. klik Menyisipkan > Modul, lalu tempelkan kode VBA di bawah ini ke dalam skrip Modul pembuka yang baru.

VBA: Cetak daftar semua kejadian di janji temu berulang di Outlook

Sub RecurringList()

Dim CalendarFolder As Outlook.MAPIFolder
Dim CalendarItems As Outlook.Items
Dim RestrictItems As Outlook.Items
Dim sFilter, sSubject, sOccur As String
Dim iNumRestricted As Integer
Dim itm, itmNew As Object
Dim tStart, tEnd As Date

Set CalendarFolder = Application.ActiveExplorer.CurrentFolder
Set CalendarItems = CalendarFolder.Items

   CalendarItems.Sort "[Start]"
CalendarItems.IncludeRecurrences = True

    tEnd = Format(Now + 10, "Short Date")

sSubject = Application.ActiveExplorer.Selection.Item(1).Subject

   sFilter = "[Start] >= '11/1/2016' And [End] < '6/30/2017' And  [IsRecurring]  = True And [Subject] = " & sSubject

   Set RestrictItems = CalendarItems.Restrict(sFilter)

   iNumRestricted = 0

   For Each itm In RestrictItems
iNumRestricted = iNumRestricted + 1
sOccur = sOccur & vbCrLf & itm.Subject & vbTab & " >> " & vbTab & itm.Start & vbTab & " to: " & vbTab & itm.End
Next

Set itmNew = Application.CreateItem(olMailItem)
itmNew.Body = sOccur & vbCrLf & iNumRestricted & " occurrences found."
itmNew.Display

End Sub

Note: Silakan ubah rentang tanggal Anda akan mencetak janji temu berulang di dalam kode: sFilter = "[Mulai]> = '11/1/2016'Dan [End] <'6/30/2017 ' Dan [IsRecurring] = Benar Dan [Subjek] = "& strSubject

3. tekan F5 atau klik Run tombol untuk menjalankan VBA ini.

4. Sekarang daftar semua kejadian dalam janji temu berulang yang dipilih disalin dan ditempelkan ke email baru seperti gambar di bawah ini. Silakan klik File > Mencetak untuk mencetak daftar.

Cetak kalender kosong (tanpa janji temu) di Outlook

Cetak dua minggu / bulan Kalender per halaman di Outlook

Cetak kalender harian di Outlook