[Gambas-user] Gambas3 Printing

[Fabien Bodard]

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