The default quick print icon behavior in Word 2007 is to print to your default printer. Here is how to make an icon in the Word 2007’s Quick Access Toolbar (QAT) which prints directly to any printer you want. This is handy if you want an icon that prints to a different printer than the default, or you just want a quick print icon for each of your pinters.
To do this, we need to input a macro. To do that, we need the “Developer Tab”. Follow these steps to make the Developer Tab appear:
- Click the Microsoft Office Button in the upper left, and then click Word Options.
- Click Popular.
- Under Top options for working with Word, select the Show Developer tab in the Ribbon check box.
The following creates the print macro.
- Click the Developer Tab.
- Click on the large Macros button on the left.
- Type anything in the Macro Name box, for ex: “PrintFromFavoritePrinter”
- Click the Create button.
- Cut and paste the commands below, so that your window looks like this:
- Replace the text: “HP LaserJet 1020” with the exact name of your printer, from the Printers and Faxes section of your control panel.
- Press ctrl+s to save, then close the window.
Sub PrintFromFavoritePrinter()
'
' PrintFromFavoritePrinter Macro
'
'
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
ActivePrinter = "HP LaserJet 1020"
Application.PrintOut FileName:=""
ActivePrinter = sCurrentPrinter
End Sub
The macro has been created, you can run it out of the macros list, but what a pain! Create an icon on the Quick Access Toolbar.
- Right-click anywhere on the QAT and click: “Customize Quick Access Toolbar…”
- Select “Macros” from the “Choose commands from:” drop-down.
- Click the “PrintFromFav…” macro on the left, then click the “Add>>” button.
- Click the Modify button at the bottom, choose an icon and change the name to something short, then click OK.
The QAT now has the icon you selected. When you click on it, it should immediately print to your favorite printer!
Worked like a charm. Thanks for the help.
Cancel that, my mistake. Just added the server name and away we go. Excellent, thanks for the advice.
I’ve tried this with a printer shared from a Windows server and it keeps rejecting the name “Cardiff Accounts HP4200” – will this not work with shared printers?
My mistake. I searched for this function for Outlook not Word. Can this macro be made to work with Outlook 2007?
I am receiving a run-time error associated with Application.PrintOut Filename:=””
I am trying to print to pdf and not a physical printer. Could this be causing the problem? Is there a work around?
Thank you
This is slick. Is it possible to add an additional Quick Print icon that has been customized to print in Grey Scale only?
Richard, I think if you add the following code to the macro it will print in black and white. I don’t have a color printer anymore though, so I can’t really test it.