Abdul lavora in un ufficio dove ha accesso a cinque stampanti dal suo computer. Quando stampa un documento, desidera che il piè di pagina contenga il nome della stampante su cui è stato stampato il documento, come in “Stampato su: HP LaserJet 1320”.

A condizione che il documento venga inviato a una stampante specifica e non a un pool di stampanti a cui appartengono tutte e cinque le stampanti, le informazioni necessarie nel piè di pagina possono essere aggiunte tramite l’uso di una macro. Il motivo per cui non può essere eseguito se le stampanti sono in un pool è perché la suddivisione dei processi di stampa tra le singole stampanti in un pool di stampa viene eseguita da Windows stesso, non da Word.

Per un esempio di una macro che potresti usare, considera questa:

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

Questa macro inserirà il nome della stampante attiva nel piè di pagina. Se lo desideri, puoi attivare questa macro dall’evento DocumentBeforePrint e sarai sicuro che il piè di pagina contenga le informazioni richieste ogni volta che scegli di stampare. Se lo fai, ovviamente, ti consigliamo di assicurarti di modificare leggermente la macro in modo che selezioni qualsiasi informazione di piè di pagina precedentemente inserita e la elimini prima di inserire le nuove informazioni di piè di pagina.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (372) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia a nastro di Word (Word 2007 e più tardi) qui:

Including a Printer’s Name in a footer.