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



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

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

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

--
Regards,
Tom Ogilvy

"lothario" wrote in message
...
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



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

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.

"lothario" wrote in message
...
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



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

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")
-----Original Message-----
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



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from
http://www.ExcelForum.com/

.