Display Print Dialog

[Ben]

Thankyou in advance.

I have the bellow code capturing the print event. But what I would like to
do is still display the Print Dialog so the user can change which Printer
they wish to print to instead of just the default.

Sub FilePrint()
ActiveDocument.txtBox = "Job File Copy"
ActiveDocument.PrintOut
ActiveDocument.txtBox = "Client Copy"
ActiveDocument.PrintOut
ActiveDocument.Save
End Sub

The requirement for the document is that it prints out in duplicate and the
heading needs to be different on each print out. The above code achieves the
printing in duplicate and changing the headings but only to the default
printer. I would like to display the Print Dialog so that they can change the
printer.

Thankyou again.

 

[Jay Freedman]

Hi Ben,

Insert this line immediately after the Sub statement:

Dialogs(wdDialogFilePrint).Display

The .Display method displays the dialog box, and it will accept a
change of printer and other parameters, but it won't actually print
(unlike the .Show method).