Try this idea
Sub hiderowsandprint()
With Range("a1:a21")
.SpecialCells(xlCellTypeBlanks).Rows.Hidden = True
.Resize(21, 8).PrintPreview
.Rows.Hidden = False
End With
End Sub

Signature
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com
> Hi
> I'm a newbie and was wondering can anyone help with my query.
[quoted text clipped - 6 lines]
>
> Any ideas?