Nếu bạn có một trang tính lớn, bạn có thể muốn in nó ra thành “phần”

và tự động thay đổi thông tin có trong đầu trang hoặc chân trang của mỗi phần. Không có cách nội tại nào để làm điều này trong Excel; cách tiếp cận tốt nhất là macro để thực hiện như sau:

  1. Đặt vùng in dựa trên phạm vi đã đặt tên.

  2. Đặt đầu trang hoặc chân trang dựa trên một dải ô được đặt tên khác.

  3. In vùng in.

  4. Lặp lại các bước từ 1 đến 3 cho mỗi vùng in mong muốn.

Lưu ý rằng các bước này yêu cầu sử dụng các phạm vi được đặt tên. Bạn có thể có một dải ô đã đặt tên cho mỗi phần của trang tính mà bạn muốn in và một dải ô đã đặt tên (sẽ là một ô duy nhất) đại diện cho thông tin đầu trang hoặc chân trang mà bạn muốn cho mỗi vùng in. Macro sau sẽ thực hiện các bước trên:

Sub PrintRegions()

Dim x As Integer

'Change the dimension of the arrays to equal the number '   of printing areas you have     Dim Region(4) As String     Dim Head(4) As String

'Fill this array with the names of the ranges to be printed     Region(1) = "North"

Region(2) = "South"

Region(3) = "East"

Region(4) = "West"



'Fill this array with the names of the ranges to be in the header     Head(1) = "NorthHead"

Head(2) = "SouthHead"

Head(3) = "EastHead"

Head(4) = "WestHead"



For x = 1 To UBound(Region)

ActiveSheet.PageSetup.PrintArea = Range(Region(x)).Address          ActiveSheet.PageSetup.LeftHeader = Range(Head(x)).Value          ActiveWindow.SelectedSheets.PrintOut Copies:=1     Next End Sub

Ví dụ này chỉ in ra bốn vùng của một trang tính. Các khu vực này được đặt tên là các dãy: Bắc, Nam, Đông và Tây. Tương tự, các phạm vi được đặt tên — thực sự là các ô đơn — được sử dụng cho phần bên trái của tiêu đề là NorthHead, SouthHead, EastHead và WestHead.

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