Miki

Sub Hide_Zeros()
ActiveSheet.Range("A:A").AutoFilter
   Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   Selection.AutoFilter
End Sub

Filters out rows which have a zero in column A, prints that filtered list then
takes the filter off.

Assign the macro to a Button and instruct your users to hit that button to
print.

If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + R to open Project Explorer.

Find your workbook/project and select it.

Right-click and Insert>Module.  Paste the code in there.  Save the
workbook and hit ALT + Q to return to your workbook.

The macro can be assigned to a button or shortcut-key combo.

Gord