Sub STAMPA1()
Riga = Cells(Selection.SpecialCells(11).Row + 1, 1).End(xlUp).Row
For r = Riga To 1 Step -1
If Cells(r, 1) = 0 Then Cells(r, 1).EntireRow.Hidden = True
Next r
ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
Collate:=True
Cells.EntireRow.Hidden = False
End Sub
|