Nếu bạn đang tự động hóa văn phòng của mình bằng Excel, bạn có thể tự hỏi liệu có cách nào để tự động in nội dung của một phạm vi ô vào một thời điểm nhất định mỗi ngày hay không. Ví dụ: bạn có thể có một sổ làm việc luôn mở, ghi nhật ký đầu vào từ một chương trình khác. Vào một thời điểm cụ thể mỗi ngày, bạn có thể muốn tự động in một dải ô chứa thông tin tóm tắt.

Có một số cách tiếp cận bạn có thể sử dụng cho vấn đề này, bao gồm cả việc sử dụng Windows Scripting để xử lý việc in ấn. Tuy nhiên, vì sổ làm việc luôn mở, bạn không cần phải dùng đến điều đó. Thay vào đó, bạn có thể dựa vào các khả năng macro gốc của Excel.

Giải pháp được xem xét ở đây yêu cầu hai macro. Đầu tiên là một chạy bất cứ khi nào sổ làm việc được mở lần đầu tiên. Nó thiết lập trình xử lý sự kiện chính xác để kích hoạt macro thực sự thực hiện việc in.

Private Sub Workbook_Open()

'Schedule the printing     Application.OnTime TimeValue("17:00:00"), "PrintMe"

End Sub

Marco cụ thể này đặt phương thức OnTime được kích hoạt bất cứ khi nào 5:00 chiều đạt được. Để chỉ định một thời gian khác trong ngày, chỉ cần thay đổi thời gian (sử dụng ký hiệu 24 giờ) trong macro. Khi 5:00 chiều xoay vòng, Excel sẽ chạy macro PrintMe:

Private Sub PrintMe()

Sheets(2).PrintOut     'Reschedule the printing     Application.OnTime TimeValue("17:00:00"), "PrintMe"

End Sub

Macro này không làm gì khác ngoài việc in trang tính thứ hai trong sổ làm việc (phải chứa thông tin tóm tắt bạn muốn in) và sau đó đặt lại phương thức OnTime để được kích hoạt lại vào lúc 5:00 chiều. ngày hôm sau. Nếu bạn muốn in một dải dữ liệu khác, chỉ cần thay đổi đối tượng được sử dụng với phương thức PrintOut trong dòng đầu tiên của macro.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (1977) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: