Note: The other languages of the website are Google-translated. Back to English

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:

doc imprimir tarefas por categoria 1

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:

doc imprimir tarefas por categoria 2

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

doc imprimir tarefas por categoria 3

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:

doc imprimir tarefas por categoria 4

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.


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL