Will only print one???

[raw]

HI thanks for the past help

But i have a small problem

He is my code (im using a user form)

Private Sub CommandButton1_Click()
If OptionButton1 Then
Sheets("S32 worksheet").Select
Dim ws As Worksheet
Dim no_of_copies As Integer
no_of_copies = Application.InputBox("How many copies do you wish t
print ", , 1)
If no_of_copies = 0 Then Exit Sub
MsgBox ("NOTE : A MEASURE SHEET MUST BE ATTACHED WITH THIS WORKSHEET
IF NOT THIS SHEET IS NOT VALID AND NO PRODUCTION SHOULD BE MADE")
ActiveWindow.SelectedSheets.PrintOut , Collate:=True
Sheets("S32 input").Select
ElseIf OptionButton2 Then
Sheets("S32 worksheet").Select
ActiveWindow.Zoom = 75
ElseIf OptionButton3 Then
Sheets("Heroal main page ").Select
ElseIf OptionButton4 Then
Sheets("s32mea").Select
no_of_copies = Application.InputBox("How many copies do you wish t
print ", , 1)
If no_of_copies = 0 Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut , Collate:=True
Sheets("S32 input").Select
End If
Unload Me
Close
End Sub

But the problem is when the input box appears asking how many copies d
you wish to print if you put 5 in it still only prints 1

Need help

Thank

 

[Dave Peterson]

Without looking at the rest of your code, I don't see where you used that
no_of_copies variable:

ActiveWindow.SelectedSheets.PrintOut collate:=True, copies:=no_of_copies