Print Rows based on value of cell B13:B53

[codyssey]

Hello everyone

I have an order form with multiple options listed. In cells B13:B53 I have checkboxes (linked to those cells). Some rows instead of checkboxes, I have a quantity set to "0" by default. This sheet is protected.

I would like it to print only the rows that have TRUE in column B or a number that is greater than 0. The code I have is not working:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
     
    Select Case Worksheets("Sheet2").Range("B13:B53").Text
    Case "FALSE", "0"
        Worksheets("Sheet2").Rows("B13:B53").EntireRow.Hidden = True
    End Select
    Application.Dialogs(xlDialogPrint).Show
End Sub

Any input is appreciated. Been banging my head against the wall trying to get this working

 

[pbornemeier]

Sub HideTrueOrGT0InColumnB()

    Dim wks As Worksheet
    Dim rng As Range
    Dim rngCell As Range
    
    Set wks = Worksheets("Sheet2")
    Set rng = wks.Range("B13:B53")
    
    For Each rngCell In rng
        Debug.Print rngCell.Address, rngCell.Value
        If rngCell.Value = True Or rngCell.Value > 0 Then
            rngCell.EntireRow.Hidden = True
        Else
            rngCell.EntireRow.Hidden = False
        End If
    Next
    
    Set wks = Nothing
    Set rng = Nothing
    
End Sub

Sub UnHideAllRows()
    Cells.EntireRow.Hidden = False
End Sub