如何在VB中打印一米长的曲线图啊?

Dim 坐标Y As Single

Dim X As Integer

Const n As Integer = 11

Const j As Integer = 10 'X间距

方案1：

For X = 0 To n

坐标Y = Val(txtGet(i))

If X = 0 Then

Me.PSet (j * X + 坐标原点x, 坐标Y) '绝对坐标画点

Else

Me.Line -(j * X + 坐标原点x, 坐标Y) '绝对坐标画线

End If

Next X

方案2：

使用PRINTER打印对象，将MSCHART中的统计图当作图形来打印