Di bawah ini merupakan contoh sederhana untuk mencetak sebuah garis ke printer menggunakan Visual Basic 6, diharapkan Anda dapat mengembangkannya lebih lanjut, adapun kode untuk mencetak sebuah garis ke printer adalah sebagai berikut:
Private Sub PrintLine(LineWidth As Single)
Printer.Line (0, Printer.CurrentY)-(Printer.ScaleWidth, Printer.CurrentY + LineWidth), , BF
Printer.EndDoc
End Sub
Contoh penggunaan kode untuk mencetak garis ke printer:
Private Sub Command1_Click()
PrintLine (60) '60 adalah lebar garis
End Sub
