04140022.txt 14-Apr-00


Screen Prints

Subject: Screen Prints
From: "Kermit Krug" <kermk@mwci.net>

Has anyone added a facility to their VO app to do screen
(window) prints from any window?  How'd you go about it?


Subject: Re: Screen Prints
From: "Phil McGuinness" <heyphil@sherlock.com.au>

There is method for your windows called 'print'..  Just call
it in you application.

    oWindow:Print()

Phil McGuinness

Subject: Re: Screen Prints
From: "Geoff Schaller" <geoffsch@bigpond.net.au>

Here's what I use:

METHOD ScreenDump( ) CLASS MyWindow

 LOCAL oPD AS PrintingDevice

 IF Proceed("PRINT OPTIONS",;
  "Print the canvas to the default printer")
  oPD := PrintingDevice{}
  oPD:Orientation := DMORIENT_LANDSCAPE
  oPD:Setup()
  SELF:Print(oPD)
 ENDIF

 RETURN NIL

Porceed() is just a wrapped InfoBox{} function. Ditch it or
use one of your own.

HTH

Geoff