oWord=CREATEOBJECT("Word.Application") IF VARTYPE(oWord)=[O] oWord.documents.open("c:\stats.htm") oword.Documents.Item(1).Sections(1).Footers.Item(1).PageNumbers.Add(1) oword.documents.item(1).sections(1).footers. oword.ActiveDocument.PrintOut oWord.Documents.Close() oWord=.null. release oWord ELSE thisform.olecontrol1.document.execCommand("Print") ENDIFThanks