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 muốn, bạn có thể tạo macro in trang tính của mình 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 (12101) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.

Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: