Print dialog box
Hi All
I'm currently using a macro to print a document. The macro inserts the required page range (e.g. section numbers). I need to be able to have the print dialog box open so the user can select the appropriate printer (lots of printers available at different locations around the country). Currently the document will print to the users default printer.
Current basic macro is :
Sub PrintMyDoc()
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="s1, s2, s3, s4, s4, s5, s6, s7, s5, s6, s8-", PageType _
:=wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
Any suggestions on how I can get the dialog box to open and fill the PrintRangeofPages would be much appreciated.
Cheers
John
|