Printing Ranges
 

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.

Printing Ranges
 

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

--
Message posted from http://www.ExcelForum.com