Printing Ranges

[Guest]

If I55 > 0 The range prints. If it is = 0, I want to check the next cell I87 to see if it is > 0 and print and continue this check & print 20 more cells. How do I do that?

How do I include a Header to print

If [I55] > 0 The
Range("A52:I67").Selec
Selection.PrintOu
Els
If [I87] > 0 The
Range("A84:I99").Selec
Selection.PrintOu
Els
If [I119] > 0 The
Range("A116:I131").Selec
Selection.PrintOu
End I
End I
End I
Range("A1").Selec

Thank You for your help.

 

[mudraker]

With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
End Wit