Loading
Word.Tips.Net WordTips (Menu Interface)

Changing Print Dialog Box Defaults

Please Note: This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here: Changing Print Dialog Box Defaults.

Marie asked for a way to change the defaults in the Print dialog box so that she could, by default, simply print the current page. Unfortunately, there is no way to change the defaults; Word always resets them to its internal settings whenever the Print dialog box is first displayed. However, there are a couple of ways you can work around this problem.

The first method is to simply record a macro that prints the current page. Once recorded you can assign the macro to the toolbar or give it a shortcut key. (How you do these things has been covered in other issues of WordTips.) Now you don't even need to pull up the regular Print dialog box to print the current page—you have your own macro that does the work for you with a single click. The following is an example of such a macro:

Sub PrintCurrentPage()
    Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, _
      Item:= wdPrintDocumentContent, Copies:=1, Pages:="", _
      PageType:=wdPrintAllPages, Collate:=False, _
      Background:=True, PrintToFile:=False
End Sub

If you would like something that really does change the settings in the Print dialog box, you can only do so using a macro. Understand, however, that this approach doesn't change the defaults, but changes the settings. Thus, when you call the macro, the Print dialog box is invoked and the settings changed from the defaults by the macro. This may sound a bit confusing, but it simply means that any number of setting changes are made for you before you have the chance to view the Print dialog box.

Public Sub PrintCurrentPageDialog()
    With Dialogs(wdDialogFilePrint)
        .Range = wdPrintCurrentPage
        .Show
    End With
End Sub

In this case, the macro sets the Range value in the Print dialog box to the current page before showing it. Once the dialog box is shown, the macro is over and you can manually make other dialog box setting changes, as desired.

It is interesting to note that if you name the foregoing macro FilePrint (instead of PrintCurrentPageDialog), then the macro essentially replaces the built-in Word command that comes into play when you select Print from the File menu. Thus, you have changed (ever so slightly) what the built-in Word command does.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (1487) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Changing Print Dialog Box Defaults.

Related Tips:

Comprehensive VBA Guide Visual Basic for Applications (VBA) is the language used for writing macros in all Office programs. This complete guide shows both professionals and novices how to master VBA in order to customize the entire Office suite for their needs. Check out Mastering VBA for Office 2010 today!

 

Leave your own comment:

*Name:
Email:
  Notify me about new comments ONLY FOR THIS TIP
Notify me about new comments ANYWHERE ON THIS SITE
Hide my email address
*Text:
*What is 5+3 (To prevent automated submissions and spam.)
 
 
           Commenting Terms

Comments for this tip:

Lucio Loiero    10 Dec 2015, 10:41
How is possibile to choose the printer in the print dialog box?
John    09 Oct 2015, 14:11
Using the second method above, is it possible to automatically set the print range to print various sections of the document; e.g. .Range = "s1, s4, s5-"

Thanks

imran    19 Mar 2015, 07:08
thank you
Jille    27 Jul 2013, 05:53
On calling the wdDialogFilePrint dialog I want the radiobutton Selection to be active. However, the following seems not to be the correct code:

  With Dialogs(wdDialogFilePrint)
  .Range = wdSelection
  .Show
  End With

What do I need to adjust?
 
 

Our Company

Sharon Parq Associates, Inc.

About Tips.Net

Contact Us

 

Advertise with Us

Our Privacy Policy

Our Sites

Tips.Net

Beauty and Style

Cars

Cleaning

Cooking

DriveTips (Google Drive)

ExcelTips (Excel 97–2003)

ExcelTips (Excel 2007–2016)

Gardening

Health

Home Improvement

Money and Finances

Organizing

Pests and Bugs

Pets and Animals

WindowsTips (Microsoft Windows)

WordTips (Word 97–2003)

WordTips (Word 2007–2016)

Our Products

Helpful E-books

Newsletter Archives

 

Excel Products

Word Products

Our Authors

Author Index

Write for Tips.Net

Copyright © 2016 Sharon Parq Associates, Inc.