Abdul làm việc trong một văn phòng nơi anh ta có quyền truy cập vào năm máy in từ máy tính của mình. Khi in tài liệu, anh ấy muốn phần chân trang chứa tên của máy in mà tài liệu đã được in, như trong “Đã in trên: HP LaserJet 1320.”

Với điều kiện là tài liệu đang được gửi đến một máy in cụ thể chứ không phải một nhóm máy in mà tất cả năm máy in thuộc về, thông tin chân trang cần thiết có thể được thêm vào thông qua việc sử dụng macro. Lý do không thể thực hiện được nếu các máy in nằm trong một nhóm là vì việc chia các lệnh in cho các máy in riêng lẻ trong một nhóm in được thực hiện bởi chính Windows chứ không phải Word.

Để biết ví dụ về macro bạn có thể sử dụng, hãy xem xét ví dụ này:

Sub AddPrinterName()

Dim sPName As String

' Get the printer name     sPName = Trim(Left(ActivePrinter, InStr(ActivePrinter, " on ")))



' Close any special pane     If ActiveWindow.View.SplitSpecial <> wdPaneNone Then         ActiveWindow.Panes(2).Close     End If

' Activate print view     If ActiveWindow.ActivePane.View.Type = wdNormalView _       Or ActiveWindow.ActivePane.View.Type = wdOutlineView Then         ActiveWindow.ActivePane.View.Type = wdPrintView     End If

' Open header/footer     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

' Switch to footer     If Selection.HeaderFooter.IsHeader = True Then         ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter     Else         ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader     End If

' Insert text and printer     Selection.TypeText Text:="Printed on: " & sPName

' Tidy up     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub

Macro này sẽ chèn tên của máy in đang hoạt động vào chân trang. Nếu muốn, bạn có thể kích hoạt macro này từ sự kiện DocumentBeforePrint và bạn sẽ chắc chắn rằng chân trang có thông tin bắt buộc trong đó bất cứ khi nào bạn chọn in. Nếu bạn làm như vậy, tất nhiên, bạn sẽ muốn đảm bảo rằng bạn sửa đổi macro một chút để nó chọn bất kỳ thông tin chân trang nào đã đặt trước đó và xóa nó trước khi chèn thông tin chân trang mới.

_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 các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (372) áp dụng cho Microsoft Word 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 Word (Word 2007 và sau này) tại đây: