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