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