>>>>I know there have been so many messages regarding this, because I've looked at them all (just about). I still can't get my head around it though and am wondering if anyone has a clear cut solution.
>>>>
>>>>I want to do a Print Screen without having to go through Word. Just a procedure within VFP, which will print the form (via Clipboard, I have noticed the query earlier today regarding this and that would be fine, question now is how to print the thing).
>>>>
>>>>Thanks a bunch. Rene.
>>>Hi Rene,
>>>In files section there is sysinfo.zip (Vladimir Shevchenko). One of methods is capturescreen. Following implements a basic example using it to capture to a general field which could be edited, printed etc later.
>>>
>>>*A button click (or transparent shape.click)
>>>thisform.sysinfo1.capturescreen(.f.) && Capture active window
>>>create cursor test (bmptest g) && Create a cursor
>>>append blank
>>>keyboard "{Ctrl+pgdn}"
>>>keyboard "{Alt+E}"
>>>keyboard "{P}"
>>>keyboard "{Ctrl+W}"
>>>keyboard "{Ctrl+W}"
>>>browse nowait && These are just for click and continue
>>>
>>>Instead of placing to a cursor you could launch a windows app or call another form with a oleboundcontrol :
>>>
>>>*Captured
>>>run /N paint.exe
>>>
>>>I think of doing this process for inserting to a word doc as each capture called. If I do I'll place a copy to files or KB section.
>>>Cetin
>>
>>Thank you Cetin. I've decided to do it through Word after all. One comment regarding the CTRL+V: I suppose the Edit menu needs to be accessible for that, and that is obviously not always the case (at least not in my app.).
>>
>>Rene.
>Yes, it assumes Edit is avaliable. With word thinks are easier :
>
>* In init :
>Public oWord
>oWord = createobject("Word.basic")
>
>* A button click or somewhere else
>thisform.sysinfo1.capturescreen(.f.) && Capture active window
>oWord.endofdocument
>oWord.InsertPara
>oWord.EditPaste
>
>* Form release
>oWord.appshow && Show word to complete work
>
>Cetin
Yep, I'm already using that a lot, and it works fine. Thanks. Rene.
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only