Khi tạo một trang tính cuối cùng sẽ được in, bạn có thể muốn sử dụng một chân trang khác trên trang đầu tiên của tài liệu so với cách bạn làm trên các trang tiếp theo. Không có cách nào để thực hiện việc này trực tiếp trong Excel, nhưng bạn có thể sử dụng macro để hoàn thành tác vụ.

Macro sau sẽ đặt chân trang cho một trang tính tùy thuộc vào những gì đang được in. Trên thực tế, nó đặt chân trang cho trang đầu tiên, và sau đó in trang đó. Sau đó, nó đặt chân trang cho các trang khác và in chúng.

Sub PrintSheet()

Dim sP1Left As String     Dim sP1Center As String     Dim sP1Right As String     Dim sP2Left As String     Dim sP2Center As String     Dim sP2Right As String

' Define first-page footers     sP1Left = "First page left"

sP1Center = "First page center"

sP1Right = "First page right"



' Define second-page footers     sP2Left = "Second page left"

sP2Center = "Second page center"

sP2Right = "Second page right"



' Set up and print first page     With ActiveSheet.PageSetup         .LeftFooter = sP1Left         .CenterFooter = sP1Center         .RightFooter = sP1Right     End With     ActiveSheet.PrintOut 1, 1

' Set up and print other pages     With ActiveSheet.PageSetup         .LeftFooter = sP2Left         .CenterFooter = sP2Center         .RightFooter = sP2Right     End With     ActiveSheet.PrintOut 2 End Sub

Để sử dụng macro, tất cả những gì bạn cần làm là thay đổi định nghĩa chân trang.

Thay đổi các giá trị biến trong vùng “Xác định chân trang đầu tiên” và vùng “Xác định chân trang thứ hai” để chỉ nhận được đầu ra bạn muốn.

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