Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Print Screen
Message
From
25/03/1998 12:23:04
Rene Van Den Berg
Infertility Database Systems Ltd
Islington, United Kingdom
 
 
To
25/03/1998 12:13:33
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00086770
Message ID:
00087042
Views:
39
>>>>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
Map
View

Click here to load this message in the networking platform