Clipper 5.2 screen print on NT4 network 1

[wgbrow43]

I have a Clipper 5.2 app that I need to load onto a common network drive. The app lets users query numerous databases and the results are displayed on a series of screens. The users have been accessing this app via a BBS, and are used to doing screen prints. Once we move to app to the NT network drive, the users will lose the ability to do screen prints.

Most users will be printing to network printers. Short of the abeelabs.com add-in, is there anyway to program the PRINTSCREEN key to print the current screen? No graphics involved, on text.
[sig][/sig]

 

[unit512]

1. Try Alt/PrtScrn
2. Keep WordPad open...
press PrtScrn
go to WordPad, click Paste [sig][/sig]

 

[net4ward]

I wrote a screen scraper utility that saves the screen text to a disk file. You could use this and alter the code to do whatever you want with the text results.

 

[wgbrow43]

Due to a bunch of flack from management, it's looking more and more like a total re-write job. Thanks for your help and suggestions.

 

[dblainj]

net4ward, I have a need to Screen Print to LPT2 and LPT3. The printscrx() function does not work under XP and the prntscreen() will only print to LPT1. I would like to try your screen scrape utility. Please contact me @ djohnson76@houston.rr.com

 

[betoncu]

net4ward,
Please contact with me also. I want to print screen
contents to LPT1 in windows but when I press the
print screen key it copies everything to clipboard.
If it works I need your utility.

Regards.
betoncu@birimnet.com

 

[dblainj]

betoncu, I use the following to print the screen to lpt1 upon a designated Function Key press (F10)...
* ASKPRNTSCR.UDF
FUNCTION ASKPRNTSCR()
KEY := ENT_NUM
MYN := 'Y'
@ 2,0 CLEAR TO 2,79
SETCOLOR(CG)
@ 2,10 SAY "PRINT THE SCREEN (Y/N)?";
GET MYN VALID(MYN $ "YyNn&quot
READ
SETCOLOR(CC)
@ 2,0 CLEAR TO 2,79
@ 2,20 SAY "DATE-TIME: "+DTOC(DATE())+"-"+TIME()
IF UPPER(MYN) = &quot;Y&quot; .AND. LASTKEY() <> K_ESC
IF ! PRINTREADY(PRINTNUM)
@ 2,0 CLEAR TO 2,70
SETCOLOR(CGB)
@ 2,25 SAY &quot;No Printer Available!&quot;
TONE(400,3)
TONE(100,3)
INKEY(3)
@ 2,0 CLEAR TO 2,70
SETCOLOR(CC)
RETURN .T.
ENDIF
SETCOLOR(CGB)
SET DEVICE TO PRINTER
SET PRINTER ON
SET CONSOLE OFF
PRTSCREEN()
? CHR(12)
SET DEVICE TO SCREEN
SET PRINTER OFF
SET PRINTER TO ' forces print to occur
SET CONSOLE ON
SETCOLOR(CC)
ENDIF
@ 2,0 CLEAR TO 2,79
RETURN .T.

 

[betoncu]

dblainj,
thanks for your help.

 

[betoncu]

Hi guys, after a short search in microsoft support pages
I have found this simple solution:

1- Create a shortcut to the DOS application.
2- Right-click on the shortcut, and then select Properties.
3- Click the Misc tab.
4- Click to clear the PrtSc check box.
5- Click OK.