After Reading your message i tried to check error in which line it is coming
as follows

---------------------------
IF ISNULL(THISFORM.oWord)
THISFORM.oWord=CREATEOBJECT("Word.Application")
ENDIF
WAIT WINDOW "1"
oDoc=THISFORM.oWord.Documents.Add()
WAIT WINDOW "2"
THISFORM.Simplechart1.EditCopy()
THISFORM.oWord.Selection.PasteSpecial(.F., .F., 0, .F., 3)
WAIT WINDOW "3"
oDoc.PrintOut
oDoc.Close(0)
---------------------------
but this time it is printing without any error.

but when i removed wait window command

it again reports error

i don't understand why this is happening. (Wait window is playing some role)

My setup is WinXp,Office XP and VFP 8.0

Anand