Možná máte v Outlooku více kalendářů a každý z nich obsahuje spoustu položek. Chcete-li vytisknout všechny tyto kalendáře na stejné stránce, můžete si v tomto článku přečíst 2 jednoduché metody.
Aplikace Outlook umožňuje zobrazit několik kalendářů v režimu překrytí, takže můžete zobrazit všechny položky v několika kalendářích na stejné stránce. V tomto zobrazení však nemůžete vytisknout několik kalendářů. Při pohledu na toto číslo vám zde představíme 2 přístupy, které vám umožní tisknout více kalendářů na stejnou stránku.
Metoda 1: Vytiskněte snímek obrazovky překrytých kalendářů
- Pro začátek otevřete panel Kalendář pomocí kláves „Ctrl + 2“.
- Poté v navigačním podokně zkontrolujte kalendáře, které chcete vytisknout.
- Poté klikněte na šipky vlevo v záhlaví kalendářů a překryjte je.
- Nyní můžete vidět, že všechny položky kalendářů byly zobrazeny ve stejném zobrazení, jako na následujícím obrázku.
- Poté klikněte na kartě „Domů“ na „Nové položky“> „E-mailová zpráva“.
- V novém okně zprávy umístěte kurzor do těla.
- Poté přejděte na kartu „Vložit“ a klikněte na „Snímek obrazovky“.
- Dále vyberte první možnost v části „Dostupné Windows“.
- Poté byly do těla vloženy překryté kalendáře.
- Nakonec tento e-mail vytiskněte kliknutím na „Soubor“> „Tisk“> „Tisk“.
Metoda 2: Tisk sloučených kalendářů na stejnou stránku pomocí VBA
- Nejprve stisknutím kláves „Alt + F11“ otevřete editor Outlook VBA.
- Poté vložte následující kód do modulu.
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
- Poté spusťte makro stisknutím klávesy „F5“ v podprogramu „CombineMultipleCalendars“.
- Poté zadejte počet kalendářů, které chcete současně vytisknout.
- Později, podle čísla, které zadáte právě teď, budete muset v rozbalovacím dialogovém okně vybrat určitý počet kalendářů.
- Po dokončení makra se můžete vrátit zpět do navigačního podokna Kalendář.
- Nyní uvidíte nový kalendář „Temp“, který obsahuje všechny položky vybraných kalendářů.
- Nakonec si můžete tento kalendář vytisknout jako obvykle.
Rychle opravte problémy s Outlookem
Setkali jste se někdy s problémy s Outlookem? Co byste v tom případě udělali? Obecně by se většina uživatelů nejprve uchýlila k vestavěnému nástroji pro opravu – Scanpst. Ve skutečnosti však nedokáže opravit závažné problémy, jako je poškození PST. V takovém případě je obvykle nutné využít zkušenější externí nástroj, například DataNumen Outlook Repair. To může opravit Outlook problémy za okamžik.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně oprava sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com