Być może masz wiele kalendarzy w swoim Outlooku i każdy z nich zawiera wiele elementów. Jeśli chcesz wydrukować wszystkie te kalendarze na tej samej stronie, przeczytaj ten artykuł, aby poznać dwie proste metody.
Outlook umożliwia przeglądanie kilku kalendarzy w trybie nakładki, dzięki czemu można zobaczyć wszystkie elementy z kilku kalendarzy na tej samej stronie. Nie możesz jednak wydrukować kilku kalendarzy w tym widoku. Patrząc na ten problem, przedstawimy tutaj 2 podejścia, które pozwalają wydrukować wiele kalendarzy na tej samej stronie.
Metoda 1: Wydrukuj zrzut ekranu nałożonych kalendarzy
- Na początek uzyskaj dostęp do panelu Kalendarz za pomocą skrótu „Ctrl + 2”.
- Następnie w okienku nawigacji sprawdź kalendarze, które chcesz wydrukować.
- Następnie kliknij lewe strzałki w nagłówku kalendarzy, aby je nałożyć.
- Teraz możesz zobaczyć, że wszystkie elementy kalendarzy zostały pokazane w tym samym widoku, jak na poniższym obrazku.
- Następnie kliknij „Nowe pozycje”> „Wiadomość e-mail” w zakładce „Strona główna”.
- W nowym oknie wiadomości umieść kursor w treści.
- Następnie przejdź do zakładki „Wstaw” i kliknij „Zrzut ekranu”.
- Następnie wybierz pierwszą opcję w „Dostępne okna”.
- Następnie nałożone kalendarze zostały włożone do ciała.
- Na koniec kliknij „Plik”> „Drukuj”> „Drukuj”, aby wydrukować tę wiadomość e-mail.
Metoda 2: Wydrukuj scalone kalendarze na tej samej stronie za pośrednictwem VBA
- Najpierw naciśnij klawisze „Alt + F11”, aby uzyskać dostęp do edytora VBA programu Outlook.
- Następnie umieść następujący kod w 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
- Następnie uruchom makro, naciskając klawisz „F5” w procedurze „CombineMultipleCalendars”.
- Następnie wprowadź liczbę kalendarzy, które chcesz wydrukować w tym samym czasie.
- Później, zgodnie z liczbą, którą właśnie wprowadziłeś, musisz wybrać określoną liczbę kalendarzy w wyskakującym oknie dialogowym.
- Po zakończeniu działania makra możesz wrócić do okienka nawigacji kalendarza.
- Teraz zobaczysz tam nowy kalendarz „Temp”, który zawiera wszystkie elementy wybranych kalendarzy.
- Ostatecznie możesz wydrukować ten kalendarz w zwykły sposób.
Szybka naprawa problemów z programem Outlook
Czy kiedykolwiek napotkałeś problemy z Outlookiem? Co byś wtedy zrobił? Zazwyczaj większość użytkowników korzysta z wbudowanego narzędzia do naprawy – Scanpst. Jednak w rzeczywistości nie jest ono w stanie naprawić poważnych problemów, takich jak uszkodzenie pliku PST. Zazwyczaj w takiej sytuacji trzeba skorzystać z bardziej doświadczonego narzędzia zewnętrznego, na przykład DataNumen Outlook Repair. To może naprawić Outlooka kłopoty w mgnieniu oka.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym poprawka sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com