correct count of pages


Hi all,

I am create word document in maross and I put count of pages this document

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
Text:="NUMPAGES", PreserveFormatting:=True

When i am print this document i obtain a incorrect quantity of the pages.

ActiveDocument.Fields.Update
For Each aField In ActiveDocument.Fields
aField.Select
Selection.Fields.Update
aField.Update
Next aField
ActiveDocument.PrintOut False
ActiveDocument.Close False
Application.Quit

As to obtain a correct count of pages of the document before print ?

Grigoriy Chelh
chech@xxxxxxxxxxxxxxxxx
icq:118106001


.

Loading