[Gambas-user] Yet another simple printing question !

[Rolf-Werner Eilert]

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
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>