当前位置:编程学习 > C#/ASP.NET >>

如何在VB中将图片、数据保存到WORD模板并打印

最近在工作中遇到一个项目,客户要用我们的PLC去检测两个模拟量,PLC会负责将模拟量传送到电脑。其中PLC驱动可以提供控件,以便VB程序中可以读到数据。
现要进行如下操作:
1、将模拟量数据以曲线的形式显示在屏幕上
2、打印:包括上面提到的曲线,以及一些实验计算数据。打印需要符合客户公司的文档格式(客户可以提供公司文档word模板)。

俺不写程序好多年,最后的技术水平停留在VB6初级应用上,或许这个问题对程序员比较简单,但对俺是个巨难的问题,还望各位多多指点,该从什么地方入手,如果找人开发,该找什么样的人?

--------------------编程问答-------------------- 找个有能力的大四学生就够了。 --------------------编程问答-------------------- http://topic.csdn.net/t/20020716/12/877932.html --------------------编程问答-------------------- vb6将图片和数据保存到word中的方法:
前提是你已经在vb程序中将图形画好了,而且数据已经计算出来了。
得新建一个text(名字为Text1,并设置为不可见)和picturebox(名字为Final,并设置为不可见)
    On Error Resume Next
    
    Public MyWord As Object       
    Public NewDoc As Object       
    Set MyWord = CreateObject("Word.Application")  '创建一个word对象
    MyWord.Visible = True
    MyWord.Caption = "文档名字"
    Set NewDoc = MyWord.Documents.Add
    '图片保存
    Me.Final.Height = Me.picture1.Height
    Me.Final.Width = Me.picture1.Width     
    Me.Final.Height = Me.picture1.Height    'picture1为待存入word的图片
    Me.Final.Width = Me.picture1.Width
            'vbSrcCopy:源位图直接覆盖目标位图
    BitBlt Me.Final.hdc, 0, 0, Me.Final.Width, Me.Final.Height, Me.picture1.hdc, 0, 0,vbSrcCopy
    Me.Final.Picture = Me.Final.Image

    Set Me.Final.Picture = Me.Final.Image
    SavePicture Me.Final.Picture, "C:\1.bmp"   '将图像Final保存到 C:\1.bmp
    Clipboard.Clear                            '清除剪贴板
     Clipboard.SetData Me.Final.Picture         'vbCFBitmap 图片框中图片装入剪贴板
     MyWord.Selection.Paste                     '将剪贴板中的图像复制到Word文档中
     MyWord.Selection.TypeText (vbCrLf)         '换行
    '数据保存
     Me.Text1.Text = "***" & data     'data为存数据的变量  
    '如果需要换行
      Me.Text1.Text = Me.Text1.Text & vbCrLf & “***” ’vbCrLf 用来换行
      Clipboard.Clear                ' 清除剪贴板。
      Clipboard.SetText Me.Text1.Text   ' 将正文放置在剪贴板上。
      MyWord.Selection.Paste
     MyWord.Selection.TypeText (vbCrLf)

       Kill "C:\1.bmp"                                        '删除创建的图像
       Clipboard.Clear                                         '清除剪贴板
       Me.Final.Cls
       Set NewDoc = Nothing
       Set MyWord = Nothing       '清除对象
图像和数据存入word后,就可以使用word自带的打印功能了。
以上是我用过的方法,编程水平有限,见谅! --------------------编程问答-------------------- 补充一下,需要在工程/引用中加入这个引用:Microsoft Word 11.0 Object Library
补充:.NET技术 ,  VB.NET
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,