Vasilis, I've got to leave the office now, but at a quick glance:
> Private $hImage As Image Shouldn't this be As New Image? > > > Public Sub Form_Open() > Me.Center > Try $hImage = Me.Grab.Image > End > > Public Sub Printer1_Draw() > > Dim hImage As Image And maybe the same here? Regards Rolf > > 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 > ------------------------------------------------------------------------------ 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
