Абдул работает в офисе, где у него есть доступ к пяти принтерам со своего компьютера. Когда он печатает документ, он хочет, чтобы нижний колонтитул содержал имя принтера, на котором был напечатан документ, как в «Напечатано: 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), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (372) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Including_a_Printers_Name_in_a_Footer [Включение имени принтера в нижний колонтитул].