Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Print Screen
Message
From
25/03/1998 07:14:04
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
To
24/03/1998 14:04:28
Rene Van Den Berg
Infertility Database Systems Ltd
Islington, United Kingdom
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00086770
Message ID:
00086951
Views:
33
>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
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform