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
------------------------------------------------------------------------------
Come build with us! The BlackBerry® Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9-12, 2009. Register now!
http://p.sf.net/sfu/devconf
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
