Hvordan udskrives opgaver baseret på kategori i Outlook?

Antag, der er forskellige farvekategorier i dine Outlook-opgaver, og nu vil du udskrive lister over opgaver baseret på kategorierne på forskellige sider. Hvordan kunne du løse dette job i Outlook?

Udskriv opgaver baseret på kategorier på forskellige sider manuelt en efter en

Udskriv opgaver baseret på kategorier på forskellige sider med VBA-kode

Udskriv opgaver baseret på kategorier på forskellige sider manuelt en efter en

I Outlook kan du manuelt udskrive opgaverne baseret på de forskellige kategorier på forskellige sider en efter en, gør som dette:

1. Start Outlook, og gå til Opgaveruden, vælg den opgavemappe, du vil udskrive, og tryk derefter på Ctrl + E for at aktivere Søg og derefter under Søg fanebladet, klik på kategoriseret ikon, og vælg en farvekategori, du skal udskrive, se skærmbillede:

doc udskriv opgaver efter kategori 1

2. Og så vises alle opgaverne med den specifikke farvekategori på én gang, se skærmbillede:

doc udskriv opgaver efter kategori 2

3. Fortsæt derefter med at klikke File (Felt) > Print for at udskrive denne opgaveliste som følgende skærmbillede vist:

doc udskriv opgaver efter kategori 3

4. Gentag ovenstående trin for at udskrive listerne over opgaver med de andre farvekategorier en efter en manuelt.

Udskriv opgaver baseret på kategorier på forskellige sider med VBA-kode

Her er en VBA-kode, der kan hjælpe dig med at udskrive opgaverne baseret på kategorien på forskellige sider på én gang. Gør følgende:

1. Gå til Opgaver rude, og vælg den opgavemappe, du vil udskrive.

2. Hold derefter nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

3. Klik derefter på indsatte > Moduler, kopier og indsæt nedenstående kode i det åbne blanke modul:

VBA-kode: Udskriv opgaver baseret på kategorier på forskellige sider:

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. Klik derefter på Værktøjer > Referencer i Microsoft Visual Basic til applikationer vindue, i poppet ud Referencer-projekt1 dialogboks, tjek Microsoft Excel-objektbibliotek , Microsoft Scripting Runtime indstillinger fra Tilgængelige referencer listefelt, se skærmbillede:

doc udskriv opgaver efter kategori 4

5. Klik derefter på OK knap, tryk nu F5 nøgle til at køre denne kode, efter at koden er færdig, vil listerne over opgaver med forskellige kategorier blive udskrevet på forskellige sider.