The Fields.Update method doesn't update everything; page #s yes, but TOC entries, etc., no. A simpler, yet more comprehensive, macro is:
Code:
Sub UpdateFields()
Application.ScreenUpdating = False
With ActiveDocument
.Fields.Update
.PrintPreview
.ClosePrintPreview
End With
End Sub