'--------------------------------------
' PRINT SCREEN MENU ITEM CODE
'--------------------------------------
Dim pict As Picture
Dim ps As PrinterSetup
Dim g As Graphics
Dim cc,c As Integer
//CREATE PICTURE OBJECT, SELF IS THE FORM WINDOW
pict = NewPicture(self.Width, self.Height, 32)
//CREATE A PICTURE OF THE CURRENT WINDOW
Self.DrawInto pict.Graphics, 0, 0
//THIS WINDOW LOOKS BEST PRINTED AS LANDSCAPE
//SO DEFAULT TO LANDSCAPE MODE
ps = New PrinterSetup
ps.Landscape =True
//PROMPT USER FOR PRINT SETTINGS AND PRINTER
If ps.pageSetupDialog then
g = OpenPrinterDialog(ps)
If g <> Nil Then
//PRINT THE SCREEN
c=g.Copies
For cc=1 To c
g.DrawPicture(pict, 0,0,ps.Width,ps.Height,0,0,pict.Width,pict.Height)
If cc=c Then
//STOP EXTRA BLANK PAGE FROM BEING PRINTED.
g=Nil
Else
g.NextPage
End If
Next cc
End If
End If