Need VBA Code to Ignore Hidden Rows Page Break (Rows Grouped/Ungrouped)

I have VBA code to print a particular print range in my worksheet - the range is specific to a department's need to print that range and not any other range in the same worksheet. In addition, there are checkboxes in a different worksheet that when checked or unchecked will hide or display a particular range of grouped rows. Because I have hard page breaks built into the VBA print code, the hidden rows are printed as blank pages. How do I write code to ignore the page break if the rows are hidden?

Sub PrintEBank()
'
' PrintEBank Macro
'

'
    Range("A7:N146").Select
    ActiveSheet.PageSetup.PrintArea = "$A$7:$N$146"
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Worksheets(1).Range("a27")
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Worksheets(1).Range("a43")
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Worksheets(1).Range("a63")
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Worksheets(1).Range("a91")
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Worksheets(1).Range("a118")
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Worksheets(1).Range("a139")


    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="pdfFactory Pro", Collate:=True, _
        IgnorePrintAreas:=False
End Sub