Sub MAIN
FilePrintSetup .Printer = "Put Printer Name in Quotes HERE"
FilePrintSetup .Options
Dim PrintThis As FilePrint
On Error Goto DontPrint
Dialog PrintThis
FilePrint PrintThis
DontPrint:
End Sub
