Aholkua: beste hizkuntza Google-k itzulitako dira. Bisitatu dezakezu English estekaren bertsioa.
Saioa hasi
x
or
x
x
Eman izena
x

or

Nola Outlook-eko kategorian oinarritutako zereginak inprimatzea?

Esate baterako, hainbat kolore kategoria daude Outlooken zereginetan, eta orain, orrialde ezberdinetan kategoriatan oinarritutako zereginen zerrenda inprimatu nahi dituzu. Nola konpondu liteke lan hori Outlook-en?

Inprimatu lanak orri desberdinetan, eskuz banan-banan

Inprimatu lanak kategoria desberdinetan oinarrituta, VBA kode batekin


Inprimatu lanak orri desberdinetan, eskuz banan-banan

Outlook-en, orrialde ezberdinetan orri desberdinetan oinarritutako zereginak eskuz inprimatu ditzakezu honela:

1. Outlook abiarazi eta joan Task panela eta hautatu inprimatu nahi duzun ataza-karpeta, eta sakatu Ctrl + E aktibatzeko Search koadroa, eta ondoren azpian Search fitxa, egin klik Categorized ikonoa eta inprimatu behar duzun koloreen kategoria bat aukeratu, ikusi pantaila-argazkia:

doc inprimatu lanak 1 kategorien arabera

2. Ondoren, kolorearen kategoria espezifikoarekin zeregin guztiak zerrendatzen dira aldi berean, ikusi pantaila-argazkia:

doc inprimatu lanak 2 kategorien arabera

3. Gero, egin klik File > Inprimatu Ataza-zerrenda hau inprimatu hurrengo irudian erakusten den bezala:

doc inprimatu lanak 3 kategorien arabera

4. Errepikatu aurreko pausoak beste koloreen kategoria batekin lan zerrendak eskuz banan-banan inprimatzeko.


Inprimatu lanak kategoria desberdinetan oinarrituta, VBA kode batekin

Hona hemen VBA kode bat, kategorian oinarritutako zereginak inprimatzeko orrialde ezberdinetan aldi berean inprimatu ahal izateko, jarraitu urrats hauei:

1. Zoaz Task panela eta hautatu inprimatu nahi duzun atazen karpeta.

2. Ondoren, eduki sakatuta ALT + F11 teklak irekitzeko Microsoft Visual Basic aplikazioak leihoa.

3. Eta gero, egin klik Txertatu > Moduluak, kopiatu eta itsatsi beheko kodea hutsik dagoen moduluan:

VBA kodea: Orrialde ezberdinetako kategorietan oinarritutako lanak inprimatu:

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. Gero egin klik tresnak > Erreferentziak in the Microsoft Visual Basic aplikazioak leihoa, piztuta Erreferentziak-Project1 elkarrizketa-koadroa, egiaztatu Microsoft Excel Object Library eta Microsoft Scripting Runtime aukerak from Erreferentzia eskuragarriak zerrenda koadroa, ikusi pantaila-argazkia:

doc inprimatu lanak 4 kategorien arabera

5. Eta gero, egin klik OK botoia, orain, sakatu F5 kode hau exekutatzeko gakoa, kodea amaitzean, kategoria ezberdinetako zereginen zerrenda orrialde ezberdinetan inprimatuko da.



Kutools Outlook-era

Outlook 100, 2010, 2013, 2016 eta 2019 Outlook 365 funtzio aurreratuak baino gehiago

pantailako kutools pantailako xNUMX banner txikiari begira

Ezaugarri gehiago | Free Download | $ 39.00 bakarrik ehunka funtzioentzat

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.