Please Note: This article is written for users of the following Microsoft Word versions: 2007, 2010, 2013, 2016, 2019, Word in Microsoft 365, and 2021. If you are using an earlier version (Word 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Word, click here: Including a Printer's Name in a Footer.
Written by Allen Wyatt (last updated April 6, 2024)
This tip applies to Word 2007, 2010, 2013, 2016, 2019, Word in Microsoft 365, and 2021
Abdul works in an office where he has access to five printers from his computer. When he prints a document, he wants the footer to contain the name of the printer on which the document was printed, as in "Printed on: HP LaserJet 1320."
Provided that the document is being sent to a specific printer and not to a printer pool to which all five printers belong, the necessary footer information can be added through the use of a macro. The reason that it cannot be done if the printers are in a pool is because divvying up the print jobs to individual printers in a print pool is done by Windows itself, not by Word.
For an example of a macro you could use, consider this one:
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
This macro will insert the active printer's name into the footer. You can, if desired, trigger this macro from the DocumentBeforePrint event and you'll be sure that the footer has the required information in it whenever you choose to print. If you do so, of course, you'll want to make sure that you modify the macro slightly so that it selects any previously placed footer information and deletes it before inserting the new footer information.
Note:
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (9771) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, Word in Microsoft 365, and 2021. You can find a version of this tip for the older menu interface of Word here: Including a Printer's Name in a Footer.
Create Custom Apps with VBA! Discover how to extend the capabilities of Office 2013 (Word, Excel, PowerPoint, Outlook, and Access) with VBA programming, using it for writing macros, automating Office applications, and creating custom applications. Check out Mastering VBA for Office 2013 today!
Need some specific text to appear just below the end of the text on the last page of your document? You can accomplish ...
Discover MoreLike to have your page numbers displayed using different types of numbers? Here's how you can choose from the several ...
Discover MoreIf your documents routinely use numbered paragraphs, you may want to place the number of the page's first paragraph in ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
There are currently no comments for this tip. (Be the first to leave your comment—just use the simple form above!)
Got a version of Word that uses the ribbon interface (Word 2007 or later)? This site is for you! If you use an earlier version of Word, visit our WordTips site focusing on the menu interface.
Visit the WordTips channel on YouTube
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2024 Sharon Parq Associates, Inc.
Comments