Will only print one???
 

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

--
ra
-----------------------------------------------------------------------
raw's Profile: http://www.excelforum.com/member.php...fo&userid=2831
View this thread: http://www.excelforum.com/showthread.php?threadid=48028

Will only print one???
 

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



raw wrote:

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 to
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 to
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 do
you wish to print if you put 5 in it still only prints 1

Need help

Thanks

--
raw
------------------------------------------------------------------------
raw's Profile: http://www.excelforum.com/member.php...o&userid=28312
View this thread: http://www.excelforum.com/showthread...hreadid=480286

--

Dave Peterson