Print button fucntion to determine if 2 copies or 3 copies are printed

I have a print button on sheet 1 that when clicked performs the operation below. I also have 2 option buttons in a group (Yes/No) that returns a value of either 1 or 2 in D26. I would like to be able to click the print button on sheet and if the option 1 (Yes) which returns value of 1 to D26 is selected then print 3 copies of sheet 2 if no is selected then just stick with the operation below. Thanks

Private Sub butPrint_Click()

Sheets("Sheet2").Select
Sheets("Sheet2").Range("I2").Value = _
Sheets("Sheet2").Range("I2").Value + 1

ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False

Sheets("Sheet1").Select
End Sub

Please use code tags as per forum rules.

You will need to set a boolean variable for whether D26 is true or false:

Dim OptionYes as Boolean

Test D26

If Range("D26") = "1" Then OptionYes = True

Then on your print method you need to adjust the Copies parameter accordingly. I would assign another variable to store the number of copies.

Dim NumberCopies as Integer
If OptionYes Then 
     NumberCopies = 3
Else
     NumberCopies = 2
End If

ActiveWindow.SelectedSheets.PrintOut Copies:=NumberCopies

How about:

Private Sub butPrint_Click()

 Sheets("Sheet2").Select
 Sheets("Sheet2").Range("I2").Value = _
 Sheets("Sheet2").Range("I2").Value + 1

 If Range("D26") = 1 Then
   ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, IgnorePrintAreas:=False
 Else
   ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, IgnorePrintAreas:=False
 End If
 Sheets("Sheet1").Select
 End Sub

Regards,

Tom

You don't HAVE to use variables (as per tom's code) but it is easier to understand when you're learning if you do.

Works great thanks