Solved: Print Dialog box

[NY2DR]

Hello everyone,

Here is my macro

Sheets(Array("10-31-06", "10-31-06-Report")).Select

Sheets("10-31-06").Activate

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("SUMMARY").Select

Range("A6").Select

It does what I want it to do except one minor thing.
I would like the dialog print box to appear so that I may select how many copies I want.
This way I don't have to keep pressing the macro button several times.

Thank you.

[Bob Phillips]

[vba]

application.Dialogs(xlDialogPrint).Show
[/vba]

[NY2DR]

Perfect!

Thank you!

[forkus2000]

Guys i need others dialog boxes.

goto specific page (ctrl + i )
search (ctrl + b )

pleaseeeeee