Outlook 에서 반복 약속 항목 하나의 목록을 인쇄하는 방법은 무엇인가요？

내보내기를 사용하여 Outlook 반복 약속 항목 하나의 목록을 인쇄하세요

VBA 를 사용하여 Outlook 반복 약속 항목 하나의 목록을 인쇄하세요

사실 Outlook 에서는 반복 약속에 포함된 모든 발생 항목의 목록을 직접 인쇄할 수 있는 방법이 없습니다. 하지만 캘린더 데이터를 Excel 로 내보낸 후 해당 반복 약속의 모든 발생 항목을 필터링한 다음 인쇄할 수 있습니다。 다음 단계를 따르세요：

1. Outlook 에서파일>열기 및 내보내기(또는)열기) >가져오기/내보내기(또는)가져오기).

2. 가져오기 및 내보내기 마법사에서파일로 내보내기옵션을 클릭한 후다음버튼을 클릭하세요。

3. 첫 번째 '파일로 내보내기‘ 대화 상자에서쉼표로 분리된 값옵션을 클릭하고다음버튼을 클릭하세요。

4. 두 번째 '파일로 내보내기‘ 대화 상자에서캘린더를 선택하여 인쇄할 반복 약속이 포함된 캘린더를 지정한 후다음버튼을 클릭하세요。

5. 세 번째 '파일로 내보내기‘ 대화 상자에서찾아보기버튼을 클릭하세요。

6. 이제 찾아보기 대화 상자가 열립니다。 (1) 내보낸 CSV 파일을 저장할 대상 폴더를 지정하고， (2)파일 이름상자에 CSV 파일 이름을 입력한 후， (3)확인버튼을 클릭하세요。

7. 세 번째 및 마지막 '파일 내보내기‘ 대화 상자에서 모두다음버튼과마침버튼을 클릭하세요。

8. '날짜 범위 설정‘ 대화 상자에서 날짜 범위을 지정하여 내보낼 캘린더의 기간을 설정한 후확인버튼을 클릭하세요。

9. 이제 Outlook 캘린더가 CSV 파일로 내보내졌습니다。 CSV 파일이 포함된 폴더를 열고， CSV 파일을 마우스 오른쪽 버튼으로 클릭한 후 컨텍스트 메뉴에서연결 프로그램>Excel을 선택하세요。 스크린샷 참조：

10. 내보낸 CSV 파일이 Excel 에서 열립니다。 선택하세요 '제목‘ 열 머리글을 클릭하고데이터>필터를 클릭하세요。 스크린샷 참조：

10. '제목‘ 열 머리글의 필터 아이콘을 클릭하고 드롭다운 목록에서 인쇄할 반복 약속의 제목만 선택한 후확인버튼을 클릭하세요。

11. 지정한 반복 약속의 발생 항목만 필터링됩니다。 인쇄하려면파일>인쇄를 클릭하세요。

이 방법은 Outlook 에서 반복 약속의 발생 항목 목록을 손쉽게 인쇄할 수 있도록 VBA 를 소개합니다。 다음 단계를 따르세요：

1. 캘린더 보기에서 인쇄할 반복 약속의 발생 항목 하나를 선택한 후Alt+F11키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다。

2. 삽입>모듈을 클릭한 후 아래 VBA 코드를 새로 열린 모듈 스크립트에 붙여넣으세요。

VBA: 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

참고： 코드에서 인쇄할 반복 약속의 기간을 변경하세요： sFilter = “[Start] >= ‘11/1/2016『 And [End] < 』6/30/2017'And  [IsRecurring]  = True And [Subject] = " & strSubject

3. F5키를 누르거나실행버튼을 클릭하여 이 VBA 를 실행하세요。

4. 이제 선택한 반복 약속의 모든 발생 항목 목록이 아래 스크린샷과 같이 새 이메일에 복사되어 붙여넣어집니다。 목록을 인쇄하려면파일>인쇄를 클릭하세요。

Outlook 에서 빈 캘린더(약속 없음) 인쇄하기

Outlook 에서 한 페이지에 2 주/2 개월 캘린더 인쇄하기

Outlook 에서 일일 캘린더 인쇄하기