Como imprimir tarefas baseadas em categorias no Outlook?

Suponha que existam várias categorias de cores em suas tarefas do Outlook e, agora, você deseja imprimir as listas de tarefas com base nas categorias em diferentes páginas. Como você resolveria esse trabalho no Outlook?

Imprimir tarefas com base em categorias em páginas diferentes manualmente, uma por uma

Imprimir tarefas com base em categorias em páginas diferentes com código VBA

---

Imprimir tarefas com base em categorias em páginas diferentes manualmente, uma por uma

No Outlook, você pode imprimir manualmente as tarefas com base nas diferentes categorias em diferentes páginas, uma a uma, faça o seguinte:

1. Inicie o Outlook e vá para o painel de tarefas e selecione a pasta de tarefas que deseja imprimir e pressione Ctrl + E para ativar o Procurar caixa, e então sob a Procurar guia, clique em Categorizados ícone e escolha uma categoria de cor que você precisa para imprimir, veja a captura de tela:

2. E então, todas as tarefas com a categoria de cor específica são listadas de uma vez, veja a captura de tela:

3. Então, continue clicando Envie o > Impressão para imprimir esta lista de tarefas conforme a seguinte captura de tela mostrada:

4. Repita as etapas acima para imprimir manualmente as listas de tarefas com as outras categorias de cores, uma a uma.

---

Imprimir tarefas com base em categorias em páginas diferentes com código VBA

Aqui está um código VBA que pode ajudá-lo a imprimir as tarefas com base na categoria em páginas diferentes de uma vez, siga as seguintes etapas:

1. Vou ao tarefa painel e selecione a pasta de tarefas que deseja imprimir.

2. Então, mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

3. E então, clique inserção > Módulo, copie e cole o código abaixo no módulo em branco aberto:

Código VBA: tarefas de impressão com base em categorias em páginas diferentes:

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. Então clique Ferramentas > Referências no Microsoft Visual Basic para Aplicações janela, no estalou para fora Referências-Projeto1 caixa de diálogo, verifique Biblioteca de objetos do Microsoft Excel e Tempo de execução de scripts da Microsoft opções do Referências Disponíveis caixa de lista, veja a captura de tela:

5. E então, clique OK botão, agora, pressione F5 chave para executar este código, após terminar o código, as listas de tarefas com diferentes categorias serão impressas em páginas diferentes.