2 moyens rapides pour fusionner et imprimer plusieurs calendriers Outlook sur la même page

Vous avez peut-être plusieurs calendriers dans votre Outlook et chacun contient beaucoup d'éléments. Si vous souhaitez imprimer tous ces calendriers sur une même page, vous pouvez lire cet article pour apprendre 2 méthodes simples.

Outlook vous permet d'afficher plusieurs calendriers en mode superposition, de sorte que vous pouvez voir tous les éléments de plusieurs calendriers sur la même page. Cependant, vous ne pouvez pas imprimer plusieurs calendriers dans cette vue. En regardant ce problème, nous allons ici vous présenter 2 approches, qui vous permettent d'imprimer plusieurs calendriers dans une même page.

Méthode 1 : Imprimer la capture d'écran des calendriers superposés

1. Pour commencer, accédez au volet Calendrier via « Ctrl + 2 ».
2. Ensuite, dans le volet de navigation, cochez les calendriers que vous souhaitez imprimer.
3. Ensuite, cliquez sur les flèches gauche sur l'en-tête des calendriers pour les superposer.
4. Maintenant, vous pouvez voir que tous les éléments des calendriers ont été affichés dans la même vue, comme l'image suivante.
5. Ensuite, cliquez sur "Nouveaux éléments" > "Message e-mail" sous l'onglet "Accueil".
6. Dans la nouvelle fenêtre Message, placez le curseur dans le corps.
7. Ensuite, passez à l'onglet "Insérer" et cliquez sur "Capture d'écran".
8. Ensuite, choisissez la première option dans les "Fenêtres disponibles".
9. Après cela, les calendriers superposés ont été placés dans le corps.
10. Enfin, cliquez sur "Fichier" > "Imprimer" > "Imprimer" pour imprimer cet e-mail.

Méthode 2 : Imprimer les calendriers fusionnés sur la même page via VBA

1. Dans un premier temps, appuyez sur les touches "Alt + F11" pour accéder à l'éditeur Outlook VBA.
2. Ensuite, placez le code suivant dans un module.

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. Ensuite, exécutez la macro en appuyant sur la touche "F5" dans la sous-routine "CombineMultipleCalendars".
4. Après cela, entrez le nombre de calendriers que vous souhaitez imprimer en même temps.
5. Plus tard, selon le nombre que vous avez entré tout à l'heure, vous devrez sélectionner le certain nombre de calendriers dans la boîte de dialogue contextuelle.
6. Une fois la macro terminée, vous pouvez revenir au volet de navigation Calendrier.
7. Maintenant, vous verrez un nouveau calendrier "Temporaire" là-bas, qui contient tous les éléments des calendriers sélectionnés.
8. Finalement, vous pouvez imprimer ce calendrier comme d'habitude.

Réparer rapidement les problèmes d'Outlook

Avez-vous déjà rencontré des problèmes avec Outlook ? Dans ce cas, que feriez-vous ? Généralement, la plupart des utilisateurs se tourneraient d’abord vers l’outil de réparation intégré : Scanpst. Or, celui-ci ne peut pas résoudre les problèmes graves, comme la corruption des fichiers PST. Il est alors généralement nécessaire d’utiliser un outil externe plus performant, par exemple… DataNumen Outlook Repair. Il peut réparer Outlook problèmes en un tour de main.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris correction sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com