NEED VBA Code to eliminate page break when rows hidden

[Sweetmusic1]

I have a worksheet whereby rows are viewed when the check box is selected and hidden when the check box is deselected. I created a print range that will only print the visible rows, however, because I have page breaks - the print command includes the page breaks even when the rows are hidden. How do I fix this? Sub PRINTSUPPORT()
'
' PRINTSUPPORT Macro
'
'
ROWS("7:73").Select
ActiveSheet.PageSetup.PrintArea = "$7:$73"
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Worksheets(1).Range("a14")
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Worksheets(1).Range("a20")
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Worksheets(1).Range("a28")
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Worksheets(1).Range("a40")
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Worksheets(1).Range("a56")
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Worksheets(1).Range("a65")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Sub PRINTDEPOPS()
'
' PRINTDEPOPS Macro
'
'
ActiveWindow.SmallScroll Down:=57
ROWS("75:171").Select
ActiveSheet.PageSetup.PrintArea = "$75:$171"
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Worksheets(1).Range("a95")
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Worksheets(1).Range("a114")
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Worksheets(1).Range("a138")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

---

 

[Sweetmusic1]

Any HELP I can get on this one?