quick printing question

I have the following code for a command button to print specific pages in my workbook. What code do I need to put in there to make it so that it will let me choose from my available printer and choose the number of copies that I need.

Right now it just auto prints to my default printer and prints one copy.

Here is the code:
Private Sub CommandButton12_Click()
Sheets(Array("Quote Page 1", "QP2", "QP3", "QP4", "QP5", "QP6")).Select
Sheets("Quote Page 1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("DIR").Select
End Sub

Thanks for any help!!!

Add a commandDialog and try this:

VB Code:

Private Sub CommandButton12_Click()
CommonDialog1.ShowPrinter
Sheets(Array("Quote Page 1", "QP2", "QP3", "QP4", "QP5", "QP6")).Select
Sheets("Quote Page 1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("DIR").Select
End Sub

Hope it helps