How to Avoid Printing Blank Rows

[Yogesh]

Hi All,

How do i avoid printing blank rows in a Selected Range of cells using
VBScript.

Thank you,

 

[Tom Ogilvy]

Dim rng as range
On error resume Next
set rng = Selection.Specialcells(xlBlanks)
On error goto 0
if not rng is nothing then rng.EntireRow.Hidden = True
Selection.Printout
if not rng is nothing then rng.EntireRow.Hidden = False