printer打印问题

Question

我用printer打印出的直线特别轻，请问怎么解决啊？

Answer 1

Private Sub Form_Click()
   Printer.DrawWidth = 48
   Printer.Line (100, 1000)-(3000, 1000), vbRed
   Printer.DrawWidth = 1
   Printer.Line (100, 1500)-(3000, 1500), vbGreen
   Printer.DrawWidth = 18
   Printer.Line (100, 2000)-(3000, 2000), vbYellow
   Printer.EndDoc
End Sub