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

On Fri, 25 Jan 2008 16:36:01 -0800, Eric wrote:

Thanks...the filtering works but I'm trying to create a form so the end users
does not have to use the filter function. I would like to have the filter
applied automatically when the end user prints the worksheet.
Any help/ideas would be appreciated.

"Gord Dibben" wrote:

In one column or zeros in random cells in many rows and columns?

The entire row has to have zeros?

Several options depending upon what you mean.

If just one column, you could use DataFilterAutofilter to hide the rows with
zero in that column.


Gord Dibben MS Excel MVP

On Fri, 25 Jan 2008 15:47:01 -0800, Eric wrote:

Does anyone know how to create a worksheet that will automatically hide rows
that have zero values when you want to print?