Question

vb打印实时曲线

我已经能够在窗口中现实实时曲线，不知道怎么用VB与窗体一样实时打印曲线！ 可以办到么？
我 是 指这边一接受数据，这边打印机就打印！不是显示完了一起打印！实时打印！和心电图那样有点类似。可以么？我是VB菜鸟，帮帮我！

Answer 1

能,使用printer.

Option Explicit

Private Sub Command1_Click()
Printer.Width = xxx '纸张宽
Printer.Height = xxx '纸张高
Printer.CurrentX = xxx '打印左边距
Printer.CurrentY = xxx '打印上边距
Printer.FontSize = xxx '字体大小
Printer.Print "" '打印的内容(文字)
Printer.Line (x, y)-(x, y) '打印的内容(线,点)
Printer.EndDoc '完成
End Sub

Answer 2

如果你实时曲线是画在PictureBOX内，可用下法打印其内容：
Option Explicit
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source

Private Sub Command1_Click()
Picture1.Width = Picture1.Width
Picture1.Height = Picture1.Height
Picture1.AutoRedraw = True
BitBlt Picture1.hDC, 0, 0, Picture1.Width / Screen.TwipsPerPixelX, Picture1.Height / Screen.TwipsPerPixelY, Picture1.hDC, 0, 0, SRCCOPY
Picture1.AutoRedraw = False
Picture1.Refresh
Printer.PaintPicture Picture1.Image, 1000, 1000
Printer.EndDoc
End Sub

Answer 3

不是很清楚你要写的是么样的数据.
你先获得printer的设备环境DC的详细信息,然后设置好参数,在把参数写入环境DC中(用API函数是很好实现的),然后你根据你采集的数据实时地向printer对象里面输出数据就可以了,你就把打印机当成是屏幕用就是了,比如用pset,lineto等!!

Answer 4

试试直接打印窗体，并把窗体改成白色底。。
或者试试在picture控件里画曲线。。。