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.