Hello,
I just jumped into Gambas 3 and my printing procedures that worked fine in
Gambas 2 do not work anymore!
Thus, my question is easy. I want to print a form as it is! With its labels
etc..
I have looked the examples and managed to make a printing routine that only
prints white paper!! Why?
Here's the code:
--------------------------------------------------------------------
Private $hImage As Image
Public Sub Form_Open()
Me.Center
Try $hImage = Me.Grab.Image
End
Public Sub Printer1_Draw()
Dim hImage As Image
If Not $hImage Then Return
hImage = $hImage
Paint.DrawImage(hImage)
End
Public Sub PrintButton_Click()
If Printer1.Configure() Then Return
Me.Enabled = False
Inc Application.Busy
Printer1.Print
Dec Application.Busy
Me.Enabled = True
End
--------------------------------------------------------------------
Thank you!
Vasilis
------------------------------------------------------------------------------
Learn Graph Databases - Download FREE O'Reilly Book
"Graph Databases" is the definitive new guide to graph databases and their
applications. Written by three acclaimed leaders in the field,
this first edition is now available. Download your free book today!
http://p.sf.net/sfu/13534_NeoTech
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
