Real Software Forums

'--------------------------------------
'  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

For cc=1 To c
  if c>1 then g.next page
  g.DrawPicture(pict, 0,0,ps.Width,ps.Height,0,0,pict.Width,pict.Height)
Next cc
g=nil