If you print to the Windows fax driver, the wizard will pop up.
The following macro will help:
Sub FaxPrint()
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
ActivePrinter = "Fax"
Application.PrintOut FileName:=""
ActivePrinter = sCurrentPrinter
End Sub
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>