Sub UpdateAllFields()
Dim oStory As Range
    For Each oStory In ActiveDocument.StoryRanges
        oStory.Fields.Update
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                oStory.Fields.Update
            Wend
        End If
    Next oStory
    UpdateFieldsAnotherWay
    Set oStory = Nothing
lbl_Exit:
    Exit Sub
End Sub

Sub UpdateFieldsAnotherWay()
Dim sView As String
Dim sUpdate As String
    sView = ActiveDocument.ActiveWindow.View.Type
    sUpdate = Options.UpdateFieldsAtPrint
    Options.UpdateFieldsAtPrint = True
    Application.ScreenUpdating = False
    PrintPreview = True
    PrintPreview = False
    ActiveDocument.ActiveWindow.View.Type = sView
    Options.UpdateFieldsAtPrint = sUpdate
    Application.ScreenUpdating = True
lbl_Exit:
    Exit Sub
End Sub