2 Γρήγορα μέσα για συγχώνευση και εκτύπωση πολλών ημερολογίων του Outlook στην ίδια σελίδα

Ίσως έχετε πολλά ημερολόγια στο Outlook και το καθένα περιέχει πολλά στοιχεία. Εάν θέλετε να εκτυπώσετε όλα αυτά τα ημερολόγια στην ίδια σελίδα, μπορείτε να διαβάσετε αυτό το άρθρο για να μάθετε 2 εύκολες μεθόδους.

Το Outlook σάς επιτρέπει να προβάλλετε πολλά ημερολόγια σε λειτουργία επικάλυψης, έτσι ώστε να μπορείτε να δείτε όλα τα στοιχεία σε πολλά ημερολόγια στην ίδια σελίδα. Ωστόσο, δεν μπορείτε να εκτυπώσετε πολλά ημερολόγια σε αυτήν την προβολή. Εξετάζοντας αυτό το ζήτημα, εδώ θα σας παρουσιάσουμε 2 προσεγγίσεις, οι οποίες σας επιτρέπουν να εκτυπώνετε πολλά ημερολόγια στην ίδια σελίδα.

Μέθοδος 1: Εκτυπώστε το στιγμιότυπο οθόνης των ημερολογίων με επικάλυψη

1. Για αρχή, αποκτήστε πρόσβαση στο παράθυρο Ημερολογίου μέσω του "Ctrl + 2".
2. Στη συνέχεια, στο παράθυρο πλοήγησης, ελέγξτε τα ημερολόγια που θέλετε να εκτυπώσετε.
3. Στη συνέχεια, κάντε κλικ στα αριστερά βέλη στην κεφαλίδα των ημερολογίων για να τα επικαλύψετε.
4. Τώρα, μπορείτε να δείτε ότι όλα τα στοιχεία των ημερολογίων έχουν εμφανιστεί στην ίδια προβολή, όπως η παρακάτω εικόνα.
5. Στη συνέχεια, κάντε κλικ στα «Νέα αντικείμενα» > «Μήνυμα ηλεκτρονικού ταχυδρομείου» στην καρτέλα «Αρχική σελίδα».
6. Στο νέο παράθυρο μηνύματος, τοποθετήστε τον κέρσορα στο σώμα.
7. Στη συνέχεια, μεταβείτε στην καρτέλα «Εισαγωγή» και κάντε κλικ στο «Στιγμιότυπο οθόνης».
8. Στη συνέχεια, επιλέξτε την πρώτη επιλογή στα "Διαθέσιμα Windows".
9. Μετά από αυτό, τα επικαλυμμένα ημερολόγια έχουν τοποθετηθεί στο σώμα.
10. Τέλος, κάντε κλικ στο «Αρχείο» > «Εκτύπωση» > «Εκτύπωση» για να εκτυπώσετε αυτό το email.

Μέθοδος 2: Εκτύπωση συγχωνευμένων ημερολογίων στην ίδια σελίδα μέσω VBA

1. Αρχικά, πατήστε τα πλήκτρα "Alt + F11" για πρόσβαση στον επεξεργαστή VBA του Outlook.
2. Στη συνέχεια, τοποθετήστε τον ακόλουθο κώδικα σε μια ενότητα.

Dim objTempCalendar As Outlook.Folder

Sub CombineMultipleCalendars()
    Dim lCalendarCount As Long
    Dim i As Long
 
    On Error Resume Next
    Set objTempCalendar = Application.Session.GetDefaultFolder(olFolderCalendar).Folders("Temp")
    If objTempCalendar Is Nothing Then
       Set objTempCalendar = Application.Session.GetDefaultFolder(olFolderCalendar).Folders.Add("Temp")
    End If

    lCalendarCount = InputBox("How many calendars you want to print?", , "3")
 
    i = 1
    While i <= lCalendarCount
          Call CopyCalendarItems
          i = i + 1
    Wend
End Sub

Sub CopyCalendarItems()
    Dim objSourceCalendar As Outlook.Folder
    Dim objCalendarItem As Outlook.AppointmentItem
    Dim objCopiedItem As Outlook.AppointmentItem
    Dim objMoviedItem As Outlook.AppointmentItem
 
    Set objSourceCalendar = Outlook.Application.Session.PickFolder
 
    If Not (objSourceCalendar Is Nothing) Then
       If objSourceCalendar.DefaultItemType = olAppointmentItem Then
          For Each objCalendarItem In objSourceCalendar.Items
              Set objCopiedItem = objCalendarItem.Copy
              Set objMoviedItem = objCopiedItem.Move(objTempCalendar)
              objMoviedItem.Save
          Next
       End If
    End If
End Sub

3. Στη συνέχεια, εκτελέστε τη μακροεντολή πατώντας το πλήκτρο "F5" στην υπορουτίνα "CombineMultipleCalendars".
4. Μετά από αυτό, εισαγάγετε τον αριθμό των ημερολογίων που θέλετε να εκτυπώσετε ταυτόχρονα.
5. Αργότερα, σύμφωνα με τον αριθμό που εισαγάγατε μόλις τώρα, θα πρέπει να επιλέξετε τον συγκεκριμένο αριθμό ημερολογίων στο αναδυόμενο παράθυρο διαλόγου.
6. Όταν ολοκληρωθεί η μακροεντολή, μπορείτε να επιστρέψετε στο παράθυρο πλοήγησης Ημερολόγιο.
7. Τώρα, θα δείτε ένα νέο ημερολόγιο "Temp" εκεί, το οποίο περιέχει όλα τα στοιχεία των επιλεγμένων ημερολογίων.
8. Τελικά, μπορείτε να εκτυπώσετε αυτό το ημερολόγιο ως συνήθως.

Επιδιόρθωση προβλημάτων του Outlook γρήγορα

Έχετε αντιμετωπίσει ποτέ προβλήματα με το Outlook; Σε αυτή την περίπτωση, τι θα κάνατε τότε; Γενικά, οι περισσότεροι χρήστες θα κατέφευγαν στο ενσωματωμένο εργαλείο επιδιόρθωσης - Scanpst. Ωστόσο, στην πραγματικότητα, δεν μπορεί να διορθώσει τα σοβαρά προβλήματα, όπως η ζημιά στο PST. Κανονικά, σε αυτό το σημείο, πρέπει να χρησιμοποιήσετε ένα πιο έμπειρο εξωτερικό εργαλείο, ας πούμε. DataNumen Outlook Repair. Μπορεί να επιδιορθώστε το Outlook προβλήματα σε ένα άγχος.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιόρθωση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com