如何在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