Eliminating labels 2when the field is blank

I would like to know how to set up Access so that when I make a report to
print a phone book that has labels like,
Home Phone
Work Phone
Fax
Mobile
and any of these fields are blank I would like to eliminate that label, and
move up a line to the next label the way outlook dos when you print a phone
book.

Private Sub Report_Page()
Me.Fax.Visible = True
If IsNull(Me.Fax) Then
Me.Fax.Visible = False
End If
End Sub

Be sure to set the fax field Can Shrink Property to Yes.

"solriv" wrote:

> I would like to know how to set up Access so that when I make a report to
> print a phone book that has labels like,
> Home Phone
> Work Phone
> Fax
> Mobile
> and any of these fields are blank I would like to eliminate that label, and
> move up a line to the next label the way outlook dos when you print a phone
> book.
>