Nancy biết cách định dạng trang tính để các hàng được lặp lại ở đầu mỗi trang của bản in. Tuy nhiên, điều cô ấy muốn làm là lặp lại các hàng ở đầu mỗi trang in trừ trang cuối cùng.

Không có cách trực tiếp nào để thực hiện việc này, nhưng bạn có thể mô phỏng việc in như vậy bằng cách sử dụng macro để thực hiện tác vụ. Tất cả những gì bạn cần làm là in macro tất cả ngoại trừ trang cuối cùng của bạn, sau đó thay đổi thiết lập trang để các hàng không bị lặp lại, và cuối cùng in trang cuối cùng của bản in. Macro sau đây cung cấp một ví dụ về cách tiếp cận này.

Sub PrintWorksheet()

Dim lPages As Long     Dim sTemp As String

lPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

With ActiveSheet.PageSetup         ActiveSheet.PrintOut From:=1, To:=lPages - 1         sTemp = .PrintTitleRows         .PrintTitleRows = ""

ActiveSheet.PrintOut From:=lPages, To:=lPages         .PrintTitleRows = sTemp     End With End Sub

_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 (3389) á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: