>>>>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.
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement