如何根据类别在Outlook中打印任务？

Author: Xiaoyang Last Modified: 2025-05-07

假设您的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 窗口中点击工具 > 引用，在弹出的“引用 - Project1”对话框中，从可用引用列表框中勾选 Microsoft Excel 对象库和 Microsoft 脚本运行时选项，如下截图所示：

doc print tasks by category 4