Abdul trabaja en una oficina donde tiene acceso a cinco impresoras desde su computadora. Cuando imprime un documento, quiere que el pie de página contenga el nombre de la impresora en la que se imprimió el documento, como en «Impreso en: HP LaserJet 1320».

Siempre que el documento se envíe a una impresora específica y no a un grupo de impresoras al que pertenecen las cinco impresoras, se puede agregar la información de pie de página necesaria mediante el uso de una macro. La razón por la que no se puede hacer si las impresoras están en un grupo es porque el reparto de los trabajos de impresión en impresoras individuales en un grupo de impresión lo realiza Windows mismo, no Word.

Para ver un ejemplo de una macro que podría usar, considere esta:

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

Esta macro insertará el nombre de la impresora activa en el pie de página. Si lo desea, puede activar esta macro desde el evento DocumentBeforePrint y se asegurará de que el pie de página tenga la información requerida siempre que elija imprimir. Si lo hace, por supuesto, querrá asegurarse de modificar ligeramente la macro para que seleccione cualquier información de pie de página colocada anteriormente y la elimine antes de insertar la nueva información de pie de página.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (9771) se aplica a Microsoft Word 2007, 2010, 2013 y 2016. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Word aquí:

link: / word-Incluyendo_a_Nombre_de_impresoras_en_a_Footer [Incluyendo el nombre de una impresora en un pie de página].