For that you could use code like:
Code:
Sub FilePrint()
Application.ScreenUpdating = False
Dim oFld As Field, Rng As Range
With ActiveDocument
.ActiveWindow.View.ShowFieldCodes = False
For Each oFld In .Fields
With oFld
If .Type = wdFieldMacroButton Then
.Code.Font.Hidden = True
.Update
End If
End With
Next
Application.Dialogs(wdDialogFilePrint).Show
For Each oFld In .Fields
With oFld
If .Code.Font.Hidden = True Then
.Code.Font.Hidden = False
.Update
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub