Abdul travaille dans un bureau où il a accès à cinq imprimantes depuis son ordinateur. Lorsqu’il imprime un document, il souhaite que le pied de page contienne le nom de l’imprimante sur laquelle le document a été imprimé, comme dans «Imprimé sur: HP LaserJet 1320».

À condition que le document soit envoyé à une imprimante spécifique et non à un pool d’imprimantes auquel appartiennent les cinq imprimantes, les informations de pied de page nécessaires peuvent être ajoutées à l’aide d’une macro. La raison pour laquelle cela ne peut pas être fait si les imprimantes sont dans un pool est que la répartition des travaux d’impression entre des imprimantes individuelles dans un pool d’impression est effectuée par Windows lui-même et non par Word.

Pour un exemple de macro que vous pourriez utiliser, considérez celle-ci:

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

Cette macro insérera le nom de l’imprimante active dans le pied de page. Vous pouvez, si vous le souhaitez, déclencher cette macro à partir de l’événement DocumentBeforePrint et vous serez sûr que le pied de page contient les informations requises chaque fois que vous choisissez d’imprimer. Si vous le faites, bien sûr, vous voudrez vous assurer que vous modifiez légèrement la macro afin qu’elle sélectionne toutes les informations de pied de page précédemment placées et les supprime avant d’insérer les nouvelles informations de pied de page.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (372) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

link: / wordribbon-Including_a_Printers_Name_in_a_Footer [Inclure le nom d’une imprimante dans un pied de page].