With ActiveDocument
.PrintPreview
.ClosePrintPreview
End With

Signature
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP
> Please help! I need a Macro to update the autotext fields: filename and
> Savedate. The macro recorder will not let me get to the footer. Any
> suggestions or help would be appreciated!