Print Multiple Worksheets (E2000)

I have tried to adapt something that Hans advised on in <post#=305250>post 305250</post#> which told another user how to put an input box onto a button command but cannot get it to work with the activesheet.printout command. Basically I just want to 'pretty up' a form with a print button which when pressed asks for the number of copies which is then sent to the default printer.