2 nopeaa tapaa yhdistää ja tulostaa useita Outlook-kalentereita samalla sivulla

Ehkä sinulla on useita kalentereita Outlookissa ja jokainen niistä sisältää paljon kohteita. Jos haluat tulostaa kaikki nämä kalenterit samalla sivulla, voit lukea tämän artikkelin oppiaksesi 2 helppoa tapaa.

Outlook sallii sinun tarkastella useita kalentereita peittotilassa siten, että näet kaikki kohteet useissa kalentereissa samalla sivulla. Et kuitenkaan voi tulostaa useita kalentereita tässä näkymässä. Tarkastellessamme tätä kysymystä esitämme tässä kaksi lähestymistapaa, joiden avulla voit tulostaa useita kalentereita samalla sivulla.

Tapa 1: Tulosta päällekkäisten kalentereiden näyttökuva

1. Aloita avaamalla Kalenteri-ruutu painamalla Ctrl + 2.
2. Tarkista sitten navigointiruudussa tulostettavat kalenterit.
3. Napsauta seuraavaksi vasemmanpuoleista nuolta kalentereiden otsikossa peittämään ne.
4. Nyt voit nähdä, että kaikki kalentereiden kohteet on näytetty samassa näkymässä, kuten seuraava kuva.
5. Napsauta sitten Koti-välilehden kohtaa ”Uudet kohteet”> ”Sähköpostiviesti”.
6. Laita kohdistin uuteen Viesti-ikkunaan runkoon.
7. Siirry sitten “Lisää” -välilehdelle ja napsauta “Näyttökuva”.
8. Valitse seuraavaksi ensimmäinen vaihtoehto Käytettävissä olevasta Windowsista.
9. Sen jälkeen päällekkäiset kalenterit on laitettu kehoon.
10. Napsauta lopuksi "Tiedosto"> "Tulosta"> "Tulosta" tulostaaksesi tämän sähköpostin.

Tapa 2: Tulosta yhdistetyt kalenterit samalla sivulla VBA: n kautta

1. Aluksi paina "Alt + F11" -näppäimiä päästäksesi Outlook VBA -editoriin.
2. Laita sitten seuraava koodi moduuliin.

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. Suorita sitten makro lyömällä "F5" -näppäin "CombineMultipleCalendars" -alirutiinissa.
4. Syötä sen jälkeen samanaikaisesti tulostettavien kalentereiden määrä.
5. Myöhemmin, juuri syötetyn numeron mukaan, sinun on valittava tietty määrä kalentereita ponnahdusikkunassa.
6. Kun makro on valmis, voit palata Kalenterin navigointiruutuun.
7. Nyt näet uuden "Temp" -kalenterin, joka sisältää kaikki valittujen kalentereiden kohteet.
8. Lopulta voit tulostaa tämän kalenterin tavalliseen tapaan.

Korjaa Outlook-ongelmat nopeasti

Oletko koskaan kohdannut Outlook-ongelmia? Mitä tekisit siinä tapauksessa? Yleisesti ottaen useimmat käyttäjät turvautuvat ensisijaisesti sisäänrakennettuun korjaustyökaluun – Scanpst:iin. Itse asiassa se ei kuitenkaan pysty korjaamaan vakavia ongelmia, kuten PST-vaurioita. Yleensä siinä vaiheessa sinun on käytettävä kokeneempaa ulkoista työkalua, esimerkiksi DataNumen Outlook Repair. Se voi korjaa Outlook vaikeuksia hetkessä.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com