print4

Print Line

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