VBA to print pages depending on option button

[bademployee]

Hi all,

Appreciate any help to make below work:

Private Sub CommandButton1_Click()
    Dim wks As Worksheet
    Set wks = Worksheets("FQF")
    With wks
        Select Case Frame1.ActiveControl.Name
            Case OptionButton1 'This is the name of the optionbutton
                .PageSetup.PrintArea = "$A$1:$Z$55"
                .LeftMargin = Application.InchesToPoints(0.25)
                .RightMargin = Application.InchesToPoints(0.25)
                .TopMargin = Application.InchesToPoints(0.5)
                .BottomMargin = Application.InchesToPoints(0.5)
                .HeaderMargin = Application.InchesToPoints(0.3)
                .FooterMargin = Application.InchesToPoints(0.3)
                .PaperSize = xlPaperA4
                .Orientation = xlLandscape
                .Zoom = 65
                ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True 'Print Preview
                'ActiveWindow.SelectedSheets.PrintOut Copies:=1 'Printout
            
            Case OptionButton2
                .PageSetup.PrintArea = "$A$1:$Z$183"
                .LeftMargin = Application.InchesToPoints(0.25)
                .RightMargin = Application.InchesToPoints(0.25)
                .TopMargin = Application.InchesToPoints(0.5)
                .BottomMargin = Application.InchesToPoints(0.5)
                .HeaderMargin = Application.InchesToPoints(0.3)
                .FooterMargin = Application.InchesToPoints(0.3)
                .PaperSize = xlPaperA4
                .Orientation = xlLandscape
                .Zoom = 65
                ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True 'Print Preview
                'ActiveWindow.SelectedSheets.PrintOut Copies:=1 'Printout
        End Select
    End With
End Sub

Currently, whatever option button is selected, the whole range(A1:Z183) is printing.

Thanks in advance

Mark

 

[gallen]

The name property is a string so it shuold read :

Case "OptionButton1"

However surely it is better to read the value?

    If OptionButton1.Value = True Then
        
    ElseIf OptionButton2.Value = True Then
    
    Else
        'neither option is selected
    End If

 

[bademployee]

The name property is a string so it shuold read :

Case "OptionButton1"

However surely it is better to read the value?

    If OptionButton1.Value = True Then
        
    ElseIf OptionButton2.Value = True Then
    
    Else
        'neither option is selected
    End If

You're right, I changed to:

Private Sub CommandButton1_Click()
With ActiveSheet
        If OptionButton2.Value = True Then
        .PageSetup.PrintArea = "$a$1:$z$55"
        .PageSetup.Orientation = xlLandscape
        .PageSetup.LeftMargin = Application.InchesToPoints(0.25)
        .PageSetup.RightMargin = Application.InchesToPoints(0.25)
        .PageSetup.TopMargin = Application.InchesToPoints(0.5)
        .PageSetup.BottomMargin = Application.InchesToPoints(0.5)
        .PageSetup.HeaderMargin = Application.InchesToPoints(0.3)
        .PageSetup.FooterMargin = Application.InchesToPoints(0.3)
        .PageSetup.Zoom = 65
        .PrintPreview


End If
         If OptionButton1.Value = True Then
        .PageSetup.PrintArea = "$a$1:$z$183"
        .PageSetup.Orientation = xlLandscape
        .PageSetup.LeftMargin = Application.InchesToPoints(0.25)
        .PageSetup.RightMargin = Application.InchesToPoints(0.25)
        .PageSetup.TopMargin = Application.InchesToPoints(0.5)
        .PageSetup.BottomMargin = Application.InchesToPoints(0.5)
        .PageSetup.HeaderMargin = Application.InchesToPoints(0.3)
        .PageSetup.FooterMargin = Application.InchesToPoints(0.3)
        .PageSetup.Zoom = 65
        .PrintPreview


End If
End With
End Sub

Thanks