declare keybd_event in win32api ;
short bvk, short bscan, integer dwflags, integer deextrainfo
activate screen
= keybd_event(44, 1, 0, 0) && this copy screen to clipboard
now you can paste in word document
obj_word = createobject("word.application")
obj_word.documents.Add()
obj_word.Selection.Paste
obj_word.activedocument.printout(.f.)
obj_word.quit(0)
release obj_word
Hope this helps. Thanks to George Tasker.
Saludos,
A.G.P.
---------