How to print only rows with non zero values

[swhitesides]

I have a spreadsheet that is setup as a master template to accommodate 105 rows of data input. How can I make it display and print only the rows that non zero values have been entered. The final print needs to contain rows A1:A12 and A118:A129 along with A13:A117 containing non zero values only.

Data input is frequently changing so hiding the cells is not an acceptable option.

I was thinking a type of macro would solve this issue but all the ones I have tried are not working correctly.

 

[swhitesides]

Try:

ActiveSheet.PrintPreview

Yes this works, however I want to see my results on screen and choose to print later. Thats why I chose code ActiveSheet.Display, which works, its just that this code causes a run time error and I dont know how to make that go away.

 

[sous2817]

There doesn't appear to be a

ActiveSheet.Display

option, that's why you're getting the error.

Try this:

Sub HideRowsFromBottom()
   Dim i As Long, LastRow As Long
   Application.ScreenUpdating = False
   StartRow = 13
   LastRow = 117
   Rows(StartRow & ":" & LastRow).EntireRow.Hidden = False
   'begin loop to check each row
   For i = LastRow To StartRow Step -1
       'if cell=0, hide row
       If Cells(i, "D") = 0 and Cells(i, "E") = 0 and Cells(i, "F") = 0 and Cells(i, "G") = 0 Then Rows(i).Hidden = True
   Next i
   Application.ScreenUpdating = True
End Sub