I have a document that prints our several paragraphs including a form
field which is populated after a calculation is made.

All works fine.  When I go to print the form field is blank.

I went to test where the form field went blank after having the correct
number in it.

My code is as follows:

Dim strMsgbox As String
strMsgbox = ActiveDocument.FormFields("text1").Range.Text
MsgBox strMsgbox
Dim intResponse As Integer
intResponse = MsgBox("Do you want to print the lease", vbYesNo)
strMsgbox = ActiveDocument.FormFields("text1").Range.Text
MsgBox strMsgbox
If intResponse = 6 Then
   strMsgbox = ActiveDocument.FormFields("text1").Range.Text
   MsgBox strMsgbox
   ActiveDocument.PrintOut
   strMsgbox = ActiveDocument.FormFields("text1").Range.Text
   MsgBox strMsgbox
   ActiveDocument.PrintOut
   ActiveDocument.Protect Type:=wdAllowOnlyReading, NoReset:=True
End If

everytime the message box came up it had the correct number in it
except for the last time.  In otherwords aparter the first printout the
form field went blank.  Any ideas why?