LineXY on printer - single lines toooooooooooo fat
Posted: Tue Feb 09, 2010 3:20 pm
Try this example under Linux and Windows. You will get different results.
My major question. how to draw small lines (0.1mm)? Is there a command like "SetLineSize(pixel)" available?
Code: Select all
If DefaultPrinter()
If StartPrinting("printtest")
If StartDrawing(PrinterOutput())
FrontColor(0)
BackColor(RGB($ff,$ff,$ff))
y.f=10
For i.w=1 To 3
DrawText(10,y,"This is a printingtest!")
LineXY(10,y+1.5,TextWidth("This is a printingtest!")+10,y+1.5)
y+15
Next
StopDrawing()
EndIf
StopPrinting()
EndIf
EndIf
End