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 Pesquisar caixa, e então sob a Pesquisar 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.
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.