Doug has pointed out one method - another, by a simpler route would be:
Sub PrintTwice()
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter 'This is the default printer
Application.PrintOut FileName:=""
ActivePrinter = "printername" 'This is the second printer
Application.PrintOut FileName:=""
ActivePrinter = sCurrentPrinter 'Resets to the original printer
End Sub
This code simply prints the complete document to the default and a defined
printer and returns focus to the default printer. See also -
http://www.gmayor.com/fax_from_word.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>