You could instead apply a unique Style to each of the ranges whose visibility you want to toggle, then simply change the Style's font visibility attribute. For example:
Code:
Sub FilePrint()
With ActiveDocument
.Styles("Instructions").Font.Hidden = True
Application.ScreenRefresh
Dialogs(wdDialogFilePrint).Show
.Styles("Instructions").Font.Hidden = False
End With
End Sub