Word retains printer settings

macropod · #4 01-06-2011, 01:50 AM

Hi Nathalie,

Try adding the following macro to Word's 'Normal' template:

Code:

Sub FilePrint()
Dim strPrtNm As String
strPrtNm = ActivePrinter
With Application.Dialogs(wdDialogFilePrint)
  If .Show = -1 Then ActiveDocument.PrintOut
End With
ActivePrinter = strPrtNm
End Sub

To see how to do this, see: www.gmayor.com/installing_macro.htm

The macro intercepts the File|Print dialog box. In doing so, it captures the curent printer's name, allows the user to change the printer & print, then restores the original printer. Since the first printer captured should be the default one, that's what it'll keep restoring. A bit of a pain if you want to send a series of documents to a different printer, but it should resolve the other difficulties.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
word changes settings while copiing texts	marja	Word	2	11-29-2010 01:17 PM
2 printer icons	Topazdan	Office	3	05-18-2010 01:35 AM
Default printer disappears in Word	kangourou77	Word	0	02-11-2010 06:31 AM
word looks for printer when opening rtf files	elvagreg	Word	2	05-14-2009 11:21 PM
Word crashes trying to connect to printer	raymondvillain	Word	0	01-15-2009 08:11 PM