VB中怎样打印曲线

Question

'请在礼貌加一句
Private Sub Form_Load()
Me.AutoRedraw = True
End Sub

Answer 1

'如果是画在 Picture1 里 就 Picture1.AutoRedraw = True

Answer 2

逐点printer.line应该没问题，虽然送出的慢，但到了打印机那里是一样的。

Answer 3

  ' 我课件中的一个代码 是打印picture里面的图形的 可能对你有用
Private Sub num_print_Click()
On Error GoTo 300Dim w As Long, h As Long
Dim px As Long, py As LongPicture1.AutoRedraw = TrueSet Picture1.Picture = Picture1.ImagePicture1.ScaleMode = vbTwips
Printer.ScaleMode = vbTwips
w = Picture1.Width * N \ 100
h = Picture1.Height * N \ 100If pos = 0 Then
px = 0: py = 0
Else
px = (Picture1.ScaleWidth - w) / 2 ' 打印在中间
py = (Picture1.ScaleHeight - h) / 2
End If
' 打印Picture1里面的图形
Printer.PaintPicture Picture1.Picture, px, py, w, h
Printer.EndDoc
Picture1.AutoRedraw = False
300
End Sub 

Answer 4

用Printer.PaintPicture 比较通用一些