عبدل در دفتری کار می کند که از طریق کامپیوترش به پنج چاپگر دسترسی دارد. وقتی سندی را چاپ می‌کند، می‌خواهد پاورقی حاوی نام چاپگری باشد که سند روی آن چاپ شده است، مانند «چاپ شده در: HP LaserJet 1320».
به شرطی که سند به یک چاپگر خاص ارسال شود و نه به یک مجموعه چاپگر که هر پنج چاپگر به آن تعلق دارند، اطلاعات پاورقی لازم را می توان با استفاده از یک ماکرو اضافه کرد. دلیل اینکه اگر چاپگرها در یک Pool هستند این کار را نمی توان انجام داد این است که تقسیم کارهای چاپی به چاپگرهای جداگانه در یک استخر چاپی توسط خود ویندوز انجام می شود نه توسط Word.
برای مثالی از یک ماکرو که می توانید استفاده کنید، این مورد را در نظر بگیرید:
Sub AddPrinterName() Dim sPName As StringGet 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 IfActivate print view If ActiveWindow.ActivePane.View.Type = wdNormalView _ Or ActiveWindow.ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End IfOpen header/footer ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeaderSwitch to footer If Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End IfInsert text and printer Selection.TypeText Text:="Printed on: " & sPNameTidy up ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub
این ماکرو نام چاپگر فعال را در فوتر وارد می کند. در صورت تمایل می‌توانید این ماکرو را از رویداد DocumentBeforePrint فعال کنید و مطمئن خواهید بود که هر زمان که بخواهید چاپ کنید، فوتر اطلاعات مورد نیاز را در خود دارد. اگر این کار را انجام دهید، البته، باید مطمئن شوید که ماکرو را کمی تغییر داده اید تا اطلاعات فوتر قبلی را انتخاب کرده و قبل از درج اطلاعات فوتر جدید حذف کند.
