2 meios rápidos para mesclar e imprimir vários calendários do Outlook na mesma página

Talvez você tenha vários calendários no Outlook e cada um contenha muitos itens. Se você deseja imprimir todos esses calendários em uma mesma página, leia este artigo para aprender 2 métodos fáceis.

O Outlook permite que você exiba vários calendários no modo de sobreposição, de forma que você possa ver todos os itens em vários calendários na mesma página. No entanto, não é possível imprimir vários calendários nesta exibição. Olhando para esta questão, apresentaremos aqui 2 abordagens, que permitem imprimir vários calendários em uma mesma página.

Método 1: imprimir a captura de tela de calendários sobrepostos

1. Para começar, acesse o painel Calendário pressionando “Ctrl + 2”.
2. Em seguida, no painel de navegação, marque os calendários que deseja imprimir.
3. Em seguida, clique nas setas à esquerda no cabeçalho dos calendários para sobrepô-los.
4. Agora, você pode ver que todos os itens dos calendários foram exibidos na mesma visualização, conforme a imagem a seguir.
5. Em seguida, clique em “Novos itens” > “Mensagem de e-mail” na guia 'Página inicial'.
6. Na nova janela de mensagem, coloque o cursor no corpo.
7. Em seguida, mude para a guia “Inserir” e clique em “Captura de tela”.
8. Em seguida, escolha a primeira opção em “Janelas disponíveis”.
9. Depois disso, os calendários sobrepostos foram colocados no corpo.
10. Por fim, clique em “Arquivo” > “Imprimir” > “Imprimir” para imprimir este e-mail.

Método 2: imprimir calendários mesclados na mesma página via VBA

1. Primeiramente, pressione as teclas “Alt + F11” para acessar o editor VBA do Outlook.
2. Em seguida, coloque o código a seguir em um módulo.

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. Em seguida, execute a macro pressionando a tecla “F5” na sub-rotina “CombineMultipleCalendars”.
4. Depois disso, insira o número de calendários que deseja imprimir ao mesmo tempo.
5. Mais tarde, de acordo com o número inserido agora, você precisará selecionar o número certo de calendários na caixa de diálogo pop-up.
6. Quando a macro for concluída, você poderá voltar ao painel de navegação do Calendário.
7. Agora, você verá um novo calendário “Temp” ali, que contém todos os itens dos calendários selecionados.
8. Eventualmente, você pode imprimir este calendário como de costume.

Reparar Problemas do Outlook Rapidamente

Você já enfrentou problemas com o Outlook? Nesse caso, o que você faria? Geralmente, a primeira coisa que a maioria dos usuários faria seria recorrer à ferramenta de reparo integrada – o Scanpst. No entanto, na verdade, ela não consegue corrigir problemas graves, como arquivos PST corrompidos. Normalmente, nesse caso, é preciso usar uma ferramenta externa mais robusta, como o Outlook. DataNumen Outlook Repair. Pode corrigir Outlook problemas em um instante.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo correção de sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com