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. 지정된 반복 약정의 항목만 필터링됩니다. 파일 > 인쇄를 클릭하여 인쇄하세요.

이 방법에서는 VBA를 소개하여 Outlook에서 반복되는 약정의 목록을 빠르고 쉽게 인쇄하는 방법을 안내합니다. 다음과 같이 해보세요:

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] >= '2016-11-01' And [End] < '2017-06-30' And  [IsRecurring]  = True And [Subject] = " & strSubject

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

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

Outlook에서 약정 없는 빈 캘린더 인쇄하기

Outlook에서 페이지당 2주/달의 캘린더 인쇄하기

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