Một trong những phàn nàn lâu nay về Excel là nó không có một phương pháp tạo và quản lý đầu trang và chân trang mạnh mẽ.

Hãy xem xét tình huống sau: Bạn muốn in trang tính của mình, nhưng chỉ có số trang bắt đầu từ trang thứ hai.

Không có phương pháp nội tại nào trong Excel để xử lý tình huống này. Có một số cách giải quyết; ví dụ: bạn có thể đặt trang đầu tiên của mình trên một trang tính (không có đầu trang hoặc chân trang) và các trang tiếp theo trên một trang tính khác (bao gồm đầu trang và chân trang). Sau đó, bạn có thể in hai trang tính trong một lần chuyển và đạt được mục tiêu một cách hiệu quả.

Nếu bạn đã cài đặt Trình quản lý báo cáo, bạn có thể sử dụng nó để tập hợp các báo cáo khác nhau dựa trên thông tin trong trang tính của mình.

Việc sử dụng Trình quản lý báo cáo đã được đề cập trong các vấn đề khác của ExcelTips. Trình bổ trợ Trình quản lý Báo cáo được phân phối lần cuối với Excel 2002, nhưng bạn vẫn có thể sử dụng nó trong Excel 2003.

Tuy nhiên, cả hai phương pháp này đều không hiệu quả với mọi tình huống. Ví dụ: bạn không thể chia bản in của mình thành nhiều trang tính hoặc bạn có thể không có nhiều kinh nghiệm với Trình quản lý báo cáo (hoặc bạn không muốn tải xuống và cài đặt nó). Nếu muốn, bạn có thể tạo một macro sẽ in trang tính của bạn theo ý muốn.

Macro sau, GoodPrint, sẽ in trang đầu tiên của trang tính không có đầu trang hoặc chân trang, sau đó in tất cả các trang tiếp theo như bình thường.

Sub GoodPrint()

Dim hlft As String     Dim hctr As String     Dim hrgt As String     Dim flft As String     Dim fctr As String     Dim frgt As String

'save current header     hlft = ActiveSheet.PageSetup.LeftHeader     hctr = ActiveSheet.PageSetup.CenterHeader     hrgt = ActiveSheet.PageSetup.RightHeader

'save current footer     flft = ActiveSheet.PageSetup.LeftFooter     fctr = ActiveSheet.PageSetup.CenterFooter     frgt = ActiveSheet.PageSetup.RightFooter

'remove header and footer     With ActiveSheet.PageSetup         .CenterHeader = ""

.RightHeader = ""

.LeftHeader = ""

.CenterFooter = ""

.RightFooter = ""

.LeftFooter = ""

End With

'print page one     ActiveSheet.PrintOut 1, 1

'restore header and footer     With ActiveSheet.PageSetup         .LeftHeader = hlft         .CenterHeader = hctr         .RightHeader = hrgt         .LeftFooter = flft         .CenterFooter = fctr         .RightFooter = frgt     End With

'print the rest of the pages     ActiveSheet.PrintOut 2 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 (2189) á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: