카테고리별로 Outlook에서 작업을 인쇄하는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-08-06

Outlook 작업에 다양한 색상 범주가 있다고 가정해 보겠습니다. 이제 다른 페이지에서 카테고리별로 작업 목록을 인쇄하려고 합니다. 이 작업을 Outlook에서 어떻게 해결할 수 있을까요?

VBA 코드를 사용하여 다른 페이지에서 카테고리별로 작업 인쇄하기

다른 페이지에서 카테고리별로 작업을 하나씩 수동으로 인쇄하기

Outlook에서는 서로 다른 카테고리에 따라 다른 페이지에서 작업을 하나씩 수동으로 인쇄할 수 있습니다. 다음과 같이 진행하세요:

1. Outlook을 실행하고, 작업 패널로 이동하여 인쇄하려는 작업 폴더를 선택한 다음, Ctrl + E를 눌러 검색 상자를 활성화합니다. 그런 다음 검색 탭 아래에서 카테고리 아이콘을 클릭하고 인쇄하려는 색상 범주를 선택합니다. 스크린샷 참조:

doc print tasks by category 1

2. 그런 다음 특정 색상 범주가 있는 모든 작업이 한 번에 나열됩니다. 스크린샷 참조:

doc print tasks by category 2

3. 그런 다음 파일 > 인쇄를 클릭하여 다음 스크린샷에 표시된 대로 작업 목록을 인쇄합니다:

doc print tasks by category 3

4. 위의 단계를 반복하여 다른 색상 범주에 대한 작업 목록을 하나씩 수동으로 인쇄합니다.

VBA 코드를 사용하여 다른 페이지에서 카테고리별로 작업 인쇄하기

여기에 한 번에 다른 페이지에서 카테고리별로 작업을 인쇄하는 데 도움이 되는 VBA 코드가 있습니다. 다음 단계를 따르세요:

1. 작업 패널로 이동하여 인쇄하려는 작업 폴더를 선택합니다.

2. 그런 다음 ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

3. 그리고 삽입 > 모듈을 클릭하고 열린 빈 모듈에 아래 코드를 복사하여 붙여넣습니다:

VBA 코드: 다른 페이지에서 카테고리별로 작업 인쇄하기:

Sub PrintTaskList_SpecificColorCategory()
    Dim xTaskItems As Outlook.Items
    Dim xTask As Outlook.TaskItem
    Dim xDictionary As Scripting.Dictionary
    Dim xCategoryArr As Variant, xCategory As Variant
    Dim xExcelApp As Excel.Application
    Dim xExcelWorkbook As Excel.Workbook
    Dim xExcelWorksheet As Excel.Worksheet
    Dim xSheet As Excel.Worksheet
    Dim xKey As Variant
    Dim xKeyStr As String
    Dim i As Long, xLastRow As Integer
    On Error Resume Next
    If Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olTaskItem Then Exit Sub
    Set xTaskItems = Application.ActiveExplorer.CurrentFolder.Items
    Set xDictionary = New Scripting.Dictionary
    For Each xTask In xTaskItems
        xCategoryArr = Split(xTask.Categories, ",")
        For Each xCategory In xCategoryArr
            If xDictionary.Exists(Trim(xCategory)) = False Then
               xDictionary.Add Trim(xCategory), 0
            End If
        Next
    Next
    If xDictionary.Count = 0 Then
        MsgBox "The current Task doesn’t have any category", vbOKOnly + vbInformation, "Kutools for Outlook"
        Exit Sub
    End If
    Set xExcelApp = New Excel.Application
    Set xExcelWorkbook = xExcelApp.Workbooks.Add
    xExcelApp.Visible = True
    i = 0
    If xDictionary.Count > xExcelWorkbook.Sheets.Count Then
        xExcelWorkbook.Sheets.Add Count:=xDictionary.Count - xExcelWorkbook.Sheets.Count
    End If
    For Each xKey In xDictionary.Keys
        xKeyStr = CStr(xKey)
        i = i + 1
        Set xExcelWorksheet = xExcelWorkbook.Sheets(i)
        xExcelWorksheet.Name = xKeyStr
        With xExcelWorksheet
             .Range("A1") = xKeyStr
             .Range("A1").Font.Bold = True
             .Range("A1").Font.Size = 18
             .Range("A1", "C1").HorizontalAlignment = xlCenter
             .Range("A1", "C1").VerticalAlignment = xlCenter
             .Range("A1", "C1").Merge
             .Range("A2") = "Subject"
             .Range("A2").Font.Bold = True
             .Range("B2") = "Start Date"
             .Range("B2").Font.Bold = True
             .Range("C2") = "Due Date"
             .Range("C2").Font.Bold = True
        End With
        For Each xTask In xTaskItems
            If InStr(xTask.Categories, xKeyStr) > 0 Then
               xLastRow = xExcelWorksheet.UsedRange.Rows.Count + 1
               With xExcelWorksheet
                    .Range("A" & xLastRow) = xTask.Subject
                    .Range("B" & xLastRow) = xTask.StartDate
                    .Range("C" & xLastRow) = xTask.DueDate
               End With
            End If
        Next
        xExcelWorksheet.Columns("A:C").AutoFit
    Next
    For Each xSheet In xExcelWorkbook.Sheets
        xSheet.PrintOut
    Next
    xExcelWorkbook.Close False
    xExcelApp.Quit
End Sub

4. 그런 다음 Microsoft Visual Basic for Applications 창에서 도구 > 참조를 클릭합니다. 나타난 References-Project1 대화 상자에서 사용 가능한 참조 목록 상자에서 Microsoft Excel Object Library 및 Microsoft Scripting Runtime 옵션을 선택합니다. 스크린샷 참조:

doc print tasks by category 4