Print dialog box

[Jonnyboy]

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

[gmaxey]

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
With Application.Dialogs(wdDialogFilePrint)
  .Range = wdPrintRangeOfPages
  .Pages = "s1, s2, s3, s4, s4, s5, s6, s7, s5, s6, s8"
   .Show
End With
lbl_Exit:
  Exit Sub
End Sub

[Jonnyboy]

Many thanks for that Greg, just the job

John