VBA code to change the Print - "Number of copies" to 3

[lothario]

Hi

I use the VBA code:

Application.Dialogs(xlDialogPrint).Show

To invoke the Print Dialog Box.

In addition to the above, once the Print Dialog Box
shows up - I would like the "Number of copies" to
be set to 3 instead of the default 1.

How can I do this with VBA code?

Thanks,

Luther

 

[Tom Ogilvy]

application.Dialogs(xlDialogPrint).show ,,,3

PRINT(range_num, from, to, copies, draft, preview, print_what, color, feed,
quality, y_resolution, selection)

 

[Matt.]

Another idea, if you would like to be a little more flexible, is to create
an input box, prepopulate it with 3, and have the user decide how many
copies he wants. Then you can set the print dialogue.

cheers,
Matt.

 

[Mauricio]

one way of doing it , would be :
Dim Printout as object
set printout = range("a1:y128")
response = msgbox("your messange")
if response = vbyes then
response = msgbox("confirmation of your message")
printout ("1"),("1"),("1"),("3")