შესაძლოა, თქვენ გაქვთ რამდენიმე კალენდარი თქვენს Outlook-ში და თითოეული შეიცავს უამრავ ელემენტს. თუ გსურთ ყველა ამ კალენდრის ერთ გვერდზე დაბეჭდვა, შეგიძლიათ წაიკითხოთ ეს სტატია 2 მარტივი მეთოდის შესასწავლად.
Outlook გაძლევთ საშუალებას იხილოთ რამდენიმე კალენდარი გადაფარვის რეჟიმში, ასე რომ თქვენ შეგიძლიათ ნახოთ ყველა ელემენტი რამდენიმე კალენდარში იმავე გვერდზე. თუმცა, ამ ხედში რამდენიმე კალენდრის დაბეჭდვა შეუძლებელია. ამ საკითხის განხილვისას, აქ წარმოგიდგენთ 2 მიდგომას, რომელიც საშუალებას გაძლევთ დაბეჭდოთ რამდენიმე კალენდარი იმავე გვერდზე.
მეთოდი 1: დაბეჭდეთ გადაფარებული კალენდრების ეკრანის სურათი
- დასაწყებად, კალენდრის პანელზე გადადით „Ctrl + 2“-ის გამოყენებით.
- შემდეგ, ნავიგაციის პანელში, შეამოწმეთ კალენდრები, რომელთა დაბეჭდვაც გსურთ.
- შემდეგი, დააწკაპუნეთ მარცხენა ისრებზე კალენდრების სათაურზე, რომ გადაფაროთ ისინი.
- ახლა თქვენ ხედავთ, რომ კალენდრების ყველა ელემენტი ნაჩვენებია იმავე ხედში, როგორც შემდეგი სურათი.
- ამის შემდეგ, დააწკაპუნეთ "ახალი ნივთები" > "ელ.ფოსტის შეტყობინება" ჩანართზე "მთავარი".
- შეტყობინებების ახალ ფანჯარაში ჩადეთ კურსორი სხეულში.
- შემდეგ გადადით "ჩასმა" ჩანართზე და დააჭირეთ "ეკრანის ანაბეჭდს".
- შემდეგი, აირჩიეთ პირველი ვარიანტი "ხელმისაწვდომი Windows".
- ამის შემდეგ, გადახურული კალენდრები სხეულშია ჩასმული.
- დაბოლოს, დააწკაპუნეთ „ფაილი“ > „ბეჭდვა“ > „ბეჭდვა“ ამ ელფოსტის დასაბეჭდად.
მეთოდი 2: დაბეჭდეთ გაერთიანებული კალენდრები იმავე გვერდზე VBA-ს საშუალებით
- თავდაპირველად, დააჭირეთ "Alt + F11" კლავიშებს Outlook VBA რედაქტორზე წვდომისთვის.
- შემდეგ ჩადეთ შემდეგი კოდი მოდულში.
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
- შემდეგი, გაუშვით მაკრო "F5" კლავიშის დაჭერით "CombineMultipleCalendars" ქვეპროგრამაში.
- ამის შემდეგ შეიყვანეთ იმ კალენდრების რაოდენობა, რომელთა დაბეჭდვაც გსურთ ერთდროულად.
- მოგვიანებით, ახლავე შეყვანილი ნომრის მიხედვით, თქვენ უნდა აირჩიოთ კალენდრების გარკვეული რაოდენობა ამომხტარ დიალოგურ ფანჯარაში.
- როდესაც მაკრო დასრულდება, შეგიძლიათ დაბრუნდეთ კალენდრის ნავიგაციის პანელში.
- ახლა იქ ნახავთ ახალ „ტემპ“ კალენდარს, რომელიც შეიცავს არჩეული კალენდრების ყველა ელემენტს.
- საბოლოოდ, თქვენ შეგიძლიათ ამობეჭდოთ ეს კალენდარი, როგორც ყოველთვის.
Outlook-ის პრობლემების სწრაფად შეკეთება
ოდესმე შეგხვედრიათ Outlook-თან დაკავშირებული პრობლემები? ამ შემთხვევაში, რას იზამდით? ზოგადად, მომხმარებელთა უმეტესობა თავდაპირველად ჩაშენებულ აღდგენის ინსტრუმენტს - Scanpst-ს მიმართავდა. თუმცა, სინამდვილეში, მას არ შეუძლია სერიოზული პრობლემების, მაგალითად, PST-ის დაზიანების, გამოსწორება. როგორც წესი, ამ შემთხვევაში, თქვენ უნდა მიმართოთ უფრო გამოცდილ გარე ინსტრუმენტს, მაგალითად. DataNumen Outlook Repair. Მას შეუძლია Outlook-ის შესწორება უსიამოვნებები ერთბაშად.
ავტორი შესავალი:
შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql შესწორება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად