I picked up the following code from UT several months ago. I use it in the procedure for the menu entry File/Print Screen:

LOCAL cArea
cArea = SELECT()

DECLARE INTEGER keybd_event IN Win32API ;
INTEGER, INTEGER, INTEGER, INTEGER
keybd_event(44,0,0,0)

CREATE CURSOR screen_capture (screen G)
APPEND BLANK

DEFINE WINDOW screen_capture FROM 100,100 TO 263,263
MODIFY GENERAL screen_capture.screen NOWAIT WINDOW screen_capture
KEYBOARD "{Ctrl+V}{Ctrl+W}" CLEAR
RELEASE WIND screen_capture
DOEVENTS

SELECT screen_capture
REPORT FORM ('\Reports\printscr') TO PRINTER NOCONSOLE

USE IN screen_capture
SELECT (cArea)


Hope it helps.
Rgds

>Is there an easy way to send a print of the current screen to a printer? Like using Print Scrn button in DOS?
>
>Thanks
>
>Todd