2 在同一页面中合并和打印多个 Outlook 日历的快速方法

也许您的 Outlook 中有多个日历，每个日历都包含很多项目。 如果您想在同一页上打印所有这些日历，您可以阅读本文以学习 2 个简单的方法。

Outlook 允许您以叠加模式查看多个日历，这样您就可以在同一页面中看到多个日历中的所有项目。 但是，您无法在此视图中打印多个日历。 针对这个问题，在这里我们将向您介绍两种方法，让您可以在同一页面上打印多个日历。

方法一：打印叠加日历截图

1. 首先，通过“Ctrl + 2”访问日历窗格。
2. 然后，在导航窗格中，选中要打印的日历。
3. 接下来，单击日历标题上的向左箭头以覆盖它们。
4. 现在，您可以看到日历的所有项目都显示在同一个视图中，如下图所示。
5. 随后，单击“主页”选项卡下的“新项目”>“电子邮件”。
6. 在新的消息窗口中，将光标置于正文中。
7. 然后，切换到“插入”选项卡并单击“屏幕截图”。
8. 接下来，在“可用窗口”中选择第一个选项。
9. 之后，叠加的日历已放入正文中。
10. 最后，点击“文件”>“打印”>“打印”打印出这封邮件。

方法 2：通过 VBA 在同一页中打印合并的日历

1. 首先，按“Alt + F11”键访问 Outlook VBA 编辑器。
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. 接下来，在“CombineMultipleCalendars”子例程中按“F5”键运行宏。
4. 之后，输入要同时打印的日历数量。
5. 稍后，您需要根据您刚才输入的数量，在弹出的对话框中选择一定数量的日历。
6. 宏完成后，您可以返回到日历导航窗格。
7. 现在，您会在那里看到一个新的“临时”日历，其中包含所选日历的所有项目。
8. 最终，您可以像往常一样打印出这个日历。

快速修复 Outlook 问题

您是否遇到过 Outlook 问题？如果遇到，您会怎么做？通常，大多数用户首先会使用内置的修复工具——Scanpst。然而，事实上，它无法修复严重的问题，例如 PST 文件损坏。通常情况下，这时您需要借助更专业的外部工具，例如…… DataNumen Outlook Repair。 它可以 修复Outlook 麻烦在一瞬间。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com