Thread: [Solved] Print dialog box
View Single Post
 
Old 10-09-2015, 10:18 AM
Jonnyboy Jonnyboy is offline Windows 10 Office 2013
Novice
 
Join Date: Oct 2015
Posts: 2
Jonnyboy is on a distinguished road
Default 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
Reply With Quote