阿卜杜勒（Abdul）在办公室工作，可以从他的计算机访问五台打印机。在打印文档时，他希望页脚包含在其上打印文档的打印机的名称，如“在以下位置打印：HP LaserJet 1320”。

如果将文档发送到特定打印机而不是所有五台打印机所属的打印机池，则可以通过使用宏来添加必要的页脚信息。如果打印机在池中，则无法完成此操作的原因是，将打印作业划分给打印池中的各个打印机是由Windows本身而不是由Word完成的。

对于您可以使用的宏示例，请考虑以下示例：

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

此宏会将活动打印机的名称插入页脚。如果需要，可以从DocumentBeforePrint事件触发此宏，并且可以确保在选择打印时页脚中包含必需的信息。当然，如果要这样做，则需要确保稍作修改，以便宏在插入新的页脚信息之前选择任何先前放置的页脚信息并将其删除。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（372）适用于Microsoft Word 97、2000、2002和2003。您可以为Word（Word 2007）的功能区界面找到此技巧的版本。和更高版本）在这里：

在页脚中包含打印机名称。