Private hPrint As New Printer As "Printer"
Public Sub Form_Open()
If Not hPrint.Configure() Then
hPrint.Print
Endif
End
Public Sub Printer_Begin()
hPrint.Count = 1
End
Public Sub Printer_Draw()
Paint.Font.Size = 12
Paint.Text("Hello", 30, 50)
Paint.fill
End
Public Sub Printer_End()
End
Tou need to learn more about the paint class :)
first create a path and then draw around or fill it (stroke/fill)
look at the paint example
------------------------------------------------------------------------------
Increase Visibility of Your 3D Game App & Earn a Chance To Win $500!
Tap into the largest installed PC base & get more eyes on your game by
optimizing for Intel(R) Graphics Technology. Get started today with the
Intel(R) Software Partner Program. Five $500 cash prizes are up for grabs.
http://p.sf.net/sfu/intelisp-dev2dev
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
