Try this:

Dim x As Integer
x = InputBox("Number of copies?", "Print")
If x 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=x, Collate:=True
Else

End If

or you could use this:

Application.Dialogs(xlDialogPrinterSetup).Show


"mully" wrote:

Hi

On a user form I have a command button "Print1" which on clicking uses the
following macro to print the sheet

Sub Macro4()

Sheets("Print1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

What would I need to add so that on clicking the command button it would ask
how many copies required.

Any help much appreciated

Cheers Mully