Make your own free website on Tripod.com
Print Line

Preparations

Add 1 Command Button to your form.

Form Code

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 Command1_Click()
    ' replace the 40 below with the line width
    PrintLine (40)
End Sub

Go Back