Outlook'ta kategoriye göre görevler nasıl yazdırılır?

Varsayalım, Outlook görevlerinizde çeşitli renk kategorileri var ve şimdi farklı sayfalardaki kategorilere göre görev listelerini yazdırmak istiyorsunuz. Outlook'ta bu işi nasıl çözebilirsiniz?

Farklı sayfalardaki kategorilere göre görevleri manuel olarak tek tek yazdırın

VBA kodu ile farklı sayfalardaki kategorilere göre görevleri yazdırın

Farklı sayfalardaki kategorilere göre görevleri manuel olarak tek tek yazdırın

Outlook'ta, farklı sayfalardaki farklı kategorilere göre görevleri tek tek elle yazdırabilirsiniz, lütfen şu şekilde yapın:

1. Outlook'u başlatın ve Görev bölmesine gidin, yazdırmak istediğiniz görev klasörünü seçin ve ardından düğmesine basın. Ctrl + E etkinleştirmek için Ara kutusunun altına ve ardından Ara sekmesini tıklayın kategorize simgesine tıklayın ve yazdırmanız gereken bir renk kategorisi seçin, ekran görüntüsüne bakın:

kategori 1'e göre doc yazdırma görevleri

2. Ve sonra, belirli renk kategorisine sahip tüm görevler aynı anda listelenir, ekran görüntüsüne bakın:

kategori 2'e göre doc yazdırma görevleri

3. Sonra tıklamaya devam edin fileto > Print bu görev listesini aşağıda gösterilen ekran görüntüsü gibi yazdırmak için:

kategori 3'e göre doc yazdırma görevleri

4. Diğer renk kategorileriyle birlikte görev listelerini tek tek elle yazdırmak için yukarıdaki adımları tekrarlayın.

VBA kodu ile farklı sayfalardaki kategorilere göre görevleri yazdırın

İşte kategoriye göre görevleri aynı anda farklı sayfalarda yazdırmanıza yardımcı olabilecek bir VBA kodu, lütfen aşağıdaki adımları izleyin:

1. Gidin Görev bölmesine gidin ve yazdırmak istediğiniz görev klasörünü seçin.

2. Sonra, basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

3. Ve sonra tıklayın Ekle > modül, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın:

VBA kodu: Farklı sayfalardaki kategorilere göre görevleri yazdırın:

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. Sonra tıklayın Tools > Referanslar içinde Uygulamalar için Microsoft Visual Basic pencere, dışarı çıkmış Referanslar-Proje1 iletişim kutusu, işaretleyin Microsoft Excel Nesne Kitaplığı ve Microsoft Komut Dosyası Çalışma Zamanı Seçeneklerden Mevcut Referanslar liste kutusu, ekran görüntüsüne bakın:

kategori 4'e göre doc yazdırma görevleri

5. Ve sonra tıklayın OK düğmesine şimdi basın F5 Bu kodu çalıştırmak için anahtar, kodu bitirdikten sonra, farklı kategorilerdeki görevlerin listeleri farklı sayfalara yazdırılacaktır.