Abdul arbeitet in einem Büro, in dem er von seinem Computer aus auf fünf Drucker zugreifen kann. Wenn er ein Dokument druckt, soll die Fußzeile den Namen des Druckers enthalten, auf dem das Dokument gedruckt wurde, wie in „Gedruckt auf: HP LaserJet 1320“.

Sofern das Dokument an einen bestimmten Drucker und nicht an einen Druckerpool gesendet wird, zu dem alle fünf Drucker gehören, können die erforderlichen Fußzeileninformationen mithilfe eines Makros hinzugefügt werden. Der Grund, warum dies nicht möglich ist, wenn sich die Drucker in einem Pool befinden, liegt darin, dass die Aufteilung der Druckaufträge auf einzelne Drucker in einem Druckpool von Windows selbst und nicht von Word erfolgt.

Betrachten Sie ein Beispiel für ein Makro, das Sie verwenden könnten:

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

Dieses Makro fügt den Namen des aktiven Druckers in die Fußzeile ein. Falls gewünscht, können Sie dieses Makro über das DocumentBeforePrint-Ereignis auslösen, und Sie können sicher sein, dass die Fußzeile bei jedem Druck die erforderlichen Informationen enthält. Wenn Sie dies tun, sollten Sie natürlich sicherstellen, dass Sie das Makro geringfügig ändern, sodass zuvor platzierte Fußzeileninformationen ausgewählt und gelöscht werden, bevor Sie die neuen Fußzeileninformationen einfügen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (372) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Einschließlich des Druckernamens in einer Fußzeile.