Có lẽ bạn có nhiều lịch trong Outlook và mỗi lịch chứa rất nhiều mục. Nếu muốn in tất cả các lịch này trên cùng một trang, bạn có thể đọc bài viết này để tìm hiểu 2 phương pháp đơn giản.
Outlook cho phép bạn xem một số lịch ở chế độ lớp phủ, nhờ đó bạn có thể xem tất cả các mục trong một số lịch trên cùng một trang. Tuy nhiên, bạn không thể in nhiều lịch ở chế độ xem này. Nhìn vào vấn đề này, ở đây chúng tôi sẽ giới thiệu cho bạn 2 cách tiếp cận, cho phép bạn in nhiều lịch trên cùng một trang.
Phương pháp 1: In ảnh chụp màn hình của lịch xếp chồng
- Trước tiên, hãy truy cập ngăn Lịch bằng tổ hợp phím “Ctrl + 2”.
- Sau đó, trong ngăn điều hướng, hãy chọn lịch bạn muốn in.
- Tiếp theo, nhấp vào mũi tên trái trên tiêu đề của lịch để phủ chúng lên.
- Bây giờ, bạn có thể thấy rằng tất cả các mục của lịch đã được hiển thị trong cùng một chế độ xem, giống như hình ảnh sau đây.
- Sau đó, nhấp vào “Mục mới” > “Thông báo email” trong tab 'Trang chủ'.
- Trong cửa sổ Tin nhắn mới, đặt con trỏ vào nội dung.
- Sau đó, chuyển sang tab “Chèn” và nhấp vào “Ảnh chụp màn hình”.
- Tiếp theo, chọn tùy chọn đầu tiên trong “Windows có sẵn”.
- Sau đó, các lớp lịch đã được đưa vào phần thân.
- Cuối cùng, nhấp vào “Tệp” > “In” > “In” để in email này.
Phương pháp 2: In lịch đã hợp nhất trong cùng một trang thông qua VBA
- Đầu tiên, nhấn phím “Alt + F11” để truy cập trình soạn thảo Outlook VBA.
- Sau đó, đặt đoạn mã sau vào một mô-đun.
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
- Tiếp theo, chạy macro bằng cách nhấn phím “F5” trong chương trình con “CombineMultipleCalendars”.
- Sau đó, nhập số lượng lịch muốn in cùng lúc.
- Sau này, theo số bạn vừa nhập, bạn sẽ cần chọn số lượng lịch nhất định trong hộp thoại bật lên.
- Khi macro hoàn tất, bạn có thể quay lại ngăn dẫn hướng Lịch.
- Bây giờ, bạn sẽ thấy lịch “Temp” mới ở đó, chứa tất cả các mục của lịch đã chọn.
- Cuối cùng, bạn có thể in lịch này như bình thường.
Sửa chữa nhanh chóng các vấn đề về Outlook
Bạn đã bao giờ gặp sự cố với Outlook chưa? Trong trường hợp đó, bạn sẽ làm gì? Thông thường, điều đầu tiên mà hầu hết người dùng sẽ làm là sử dụng công cụ sửa chữa tích hợp sẵn – Scanpst. Tuy nhiên, trên thực tế, nó không thể khắc phục các sự cố nghiêm trọng, chẳng hạn như hỏng tập tin PST. Thông thường, ở giai đoạn đó, bạn phải nhờ đến sự trợ giúp của một công cụ bên ngoài có kinh nghiệm hơn, chẳng hạn như... DataNumen Outlook Repair. Nó có thể sửa chữa Outlook rắc rối trong nháy mắt.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa lỗi sql và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm