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