It shouldn't do that, but nothing surprises me with Word.
The following macros in normal.dotm should fix it for all but the current
document (while it remains open). See
http://www.gmayor.com/fax_from_word.htm for background.
Sub AutoNew()
Dim sPrinter As String
With Dialogs(wdDialogFilePrintSetup)
sPrinter = .Printer
.Printer = "Put your default printer name here"
.DoNotSetAsSysDefault = False
.Execute
End With
End Sub
Sub AutoOpen()
ActiveWindow.Caption = ActiveDocument.FullName
Dim sPrinter As String
With Dialogs(wdDialogFilePrintSetup)
sPrinter = .Printer
.Printer = "Put your default printer name here"
.DoNotSetAsSysDefault = False
.Execute
End With
End Sub
Sub AutoExec()
Dim sPrinter As String
With Dialogs(wdDialogFilePrintSetup)
sPrinter = .Printer
.Printer = "Put your default printer name here"
.DoNotSetAsSysDefault = False
.Execute
End With
End Sub
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>