[Gambas-user] print

[Steven James Drinnan]

Nothing quite that simple but easy enough, try this

SUB PrintForm()
  
  'Prints a form
  
  DIM myformPic AS Picture
  DIM size AS INTEGER

	
  myformPic = ME.Grab()
  size = 5 '5 times the size otherwise picture is to small.
  myformPic = myformPic.Image.Stretch(ME.W * size, ME.H * size).Picture 
  
  
  IF printer.setup() THEN RETURN 'sets up the printer
  
  
  
  
  Draw.Begin(PRINTER)
    Draw.Picture(myformPic, 20, 20)
  Draw.End
  
  
  
  
END

Need QT and QT ext components enabled.


On Thu, 2009-10-01 at 18:40 -0700, yuhej wrote:
> Hello,
> 
> Is there an easy way to print out an entire form? (Like in VB the
> Form1.Print).
> 
> Thanks,
> 
> Robi