Right-click on the Excel Icon left of "File" on menu bar.
Select "View Code"
Copy/paste this code into the module. Adjust the column(D) to suit.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim RngCol As Range
Dim i As Range
Set RngCol = Range("D1", Range("D" & Rows.Count). _
End(xlUp).Address)
For Each i In RngCol
If i.Value = 0 Then
i.EntireRow.Hidden = True
End If
Next i
End Sub
Gord