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. ------------------------------------------------------------------------------ All of the data generated in your IT infrastructure is seriously valuable. Why? It contains a definitive record of application performance, security threats, fraudulent activity, and more. Splunk takes this data and makes sense of it. IT sense. And common sense. http://p.sf.net/sfu/splunk-d2d-c2 _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user