Frenk Nijssen was telling us:
Frenk Nijssen nous racontait que :

Try this:

'_______________________________________
Sub FilePrint()

   'To intercept File > Print and CTRL-P
   If AllFormfieldsOK Then
       Dialogs(wdDialogFilePrint).Show
   End If

End Sub
'_______________________________________

'_______________________________________
Sub FilePrintDefault()

   'To intercept the Standard toolbar button
   If AllFormfieldsOK Then
       ActiveDocument.PrintOut
   End If

End Sub
'_______________________________________

'_______________________________________
Private Function AllFormfieldsOK() As Boolean

Dim myFormField As FormField

AllFormfieldsOK = True

For Each myFormField In ActiveDocument.FormFields
   'Only check formfields that are mandatory
   'use LCase in case "_Man" was used in text
   If LCase(Right(myFormField.Name, 4)) = "_man" Then
       'Use Trim in case there are spaces and no other character
       If Trim(myFormField.Result) = "" Then
           MsgBox "You must enter information in this field.", _
               vbExclamation, "Data missing"
           myFormField.Range.Fields(1).Result.Select
           AllFormfieldsOK = False
           Exit Function
       End If
   End If
Next

End Function
'_______________________________________

Yo Frenk,

How's life..?

dwin.