Как печатать задачи по категориям в Outlook?

Author: Xiaoyang Last Modified: 2025-08-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, в открывшемся диалоговом окне Ссылки-Проект1 установите флажки Библиотека объектов Microsoft Excel и Microsoft Scripting Runtime из списка Доступные ссылки, см. скриншот:

doc print tasks by category 4

5. Затем нажмите кнопку ОК, теперь нажмите клавишу F5, чтобы запустить этот код, после завершения работы кода списки задач с разными категориями будут напечатаны на разных страницах.

AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО

Оптимизируйте свои ежедневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook. Этот мощный инструмент изучает ваши прошлые письма, чтобы предлагать умные и точные ответы, оптимизировать содержание ваших писем и помогать легко создавать и редактировать сообщения.

Эта функция поддерживает:

Умные ответы: Получайте ответы, созданные на основе ваших предыдущих разговоров — персонализированные, точные и готовые к отправке.
Улучшенное содержание: Автоматически улучшайте текст ваших писем для большей ясности и воздействия.
Простое составление: Просто укажите ключевые слова, и пусть ИИ сделает остальную работу, предлагая несколько стилей написания.
Интеллектуальные расширения: Расширяйте свои мысли с помощью контекстно-зависимых предложений.
Суммаризация: Мгновенно получайте краткие обзоры длинных писем.
Глобальный охват: Легко переводите ваши письма на любой язык.

Эта функция поддерживает: