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

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/

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

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/

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

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/

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

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/

.