[Gambas-user] Please help me!

M. Cs. mohareve at ...626...
Thu Jun 30 13:29:35 CEST 2011


Public samsung As Printer

Public Sub PrintID()
samsung = New Printer
If samsung.Configure() Then Return
samsung.Count = 1
samsung.Print
End

Public Sub samsung_Begin()

End

Public Sub samsung_Draw()
Dim i As Integer
Dim tagok As String[]
tagok = Split(datae[curr], ";")' gets data from a csv sheet

For i = 0 To tagok.Count - 1
Paint.Font = Font["Lucida Sans"]
Paint.Font.Size = lett[i]'array of font sizes
Paint.Color = Color.Black
Paint.DrawText(tagok[i], CFloat(xcor[i]), CFloat(ycor[i]))
Next

End

Still it prints blank pages.




More information about the User mailing list