บางทีคุณอาจมีหลายปฏิทินใน 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 โดยปกติแล้ว ในกรณีนั้น คุณจะต้องใช้เครื่องมือภายนอกที่มีประสบการณ์มากกว่า เช่น [ชื่อเครื่องมือซ่อมแซม Outlook] DataNumen Outlook Repair. มันสามารถ แก้ไข Outlook ปัญหาในระยะเวลาอันสั้น
บทนำผู้เขียน:
Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ แก้ไข sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.