Dưới đây chúng ta sẽ xem xét một chương trình trong Excel VBA tạo chân trang trước khi in sổ làm việc.

Tạo một Workbook BeforePrint Event. Mã được thêm vào Workbook BeforePrint Event sẽ được Excel VBA thực thi trước khi bạn in một workbook.

  1. Mở Trình soạn thảo Visual Basic.

  2. Nhấp đúp vào Sổ làm việc này trong Project Explorer.

  3. Chọn Workbook từ danh sách thả xuống bên trái. Chọn BeforePrint từ danh sách thả xuống bên phải.

Workbook BeforePrint Event in Excel VBA

  1. Để tạo footer, hãy thêm dòng mã sau vào Sự kiện Workbook BeforePrint:

ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName

Lưu ý: Đối tượng PageSetup chứa tất cả các thuộc tính thiết lập trang (chân trang trái, lề dưới, khổ giấy, lề trái, v.v.) dưới dạng thuộc tính.

  1. Kiểm tra chương trình bằng cách in sổ làm việc của bạn.

Kết quả:

Footer