vb打印实时曲线

来源：百度知道 编辑：UC知道 时间：2024/05/28 00:11:40
我已经能够在窗口中现实实时曲线，不知道怎么用VB与窗体一样实时打印曲线！ 可以办到么？
我 是 指这边一接受数据，这边打印机就打印！不是显示完了一起打印！实时打印！和心电图那样有点类似。可以么？我是VB菜鸟，帮帮我！

如果你实时曲线是画在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

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

试