How to Print a Line
Posted on January 5, 2009
1 2 3 4 5 6 7 8 9 10 11 12 | 'Miscellaneous - How to Print a Line Public Sub PrintLine(Width As Single) Printer.Line (0, Printer.CurrentY)-(Printer.ScaleWidth, Printer.CurrentY + Width), , BF 'Use the EndDoc command if the line is the last item you want to print on the paper Printer.EndDoc End Sub Private Sub Main() '30 is the width of line PrintLine (30) End Sub |