Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim no_of_copies As Integer
Select Case True
Case OptionButton1.Value
Set ws = Sheets("verticalordersheet")
Case OptionButton2.Value
Set ws = Sheets("verticalvanesordersheet")
Case Else
Exit sub
End Select
no_of_copies = Application.InputBox("How many copies do you wish to
print?", , 1)
if no_of_Copies = 0 then exit sub
ws.PrintOut copies:=no_of_copies, Collate:=True
' not sure what close is supposed to be
Close
End Sub
--
Regards,
Tom Ogilvy
"raw" wrote in message
...
Hi Guys
Here is my code 4 a print box (how many copies would you like)
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim no_of_copies As Integer
Select Case True
Case OptionButton1
Set ws = Sheets("verticalordersheet")
Case OptionButton2
Set ws = Sheets("verticalvanesordersheet")
End Select
no_of_copies = Application.InputBox("How many copies do you wish to
print?", , 1)
ws.PrintOut copies:=no_of_copies, Collate:=True
Close
End Sub
But i get 2 errors
1. is "Run-time error 91" This happens when you do not select a option
button
2. is "Run-time error 1004" This happens when you press the cancel
button
Can you help
Thanks
--
raw
------------------------------------------------------------------------
raw's Profile:
http://www.excelforum.com/member.php...o&userid=28312
View this thread: http://www.excelforum.com/showthread...hreadid=478987