回复:Wincc下用VB如何写打印报表的语句

Naga_Orochi

  • 帖子

    841
  • 精华

    19
  • 被关注

    1

论坛等级:侠士

注册时间:2003-06-06

普通 普通 如何晋级?

发布于 2006-10-31 10:09:47

0楼

C-Action+打印布局可以完成WinCC的很多需求。
其实用VBS也可以做到打印,不过需要借助外部对象:定义一个Excel应用对象,这个对象可以指定一个Excel文件与之关联,这样就可以实现类似WinCC的布局调用功能,操纵Excel对象不但可以打印报表,满足部分国企对报表的格式需要,还可以将数据另存为文件。
如下为一段简单Excel程序参考:
Dim objExcelApp

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Visible = True

'

'ExcelExample.xls is to create before executing this procedure.

'Replace with the real path of the file ExcelExample.xls.

objExcelApp.Workbooks.Open "\ExcelExample.xls"

objExcelApp.Cells(4, 3).Value = ScreenItems("IOField1").OutputValue

objExcelApp.ActiveWorkbook.PrintPreview

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set objExcelApp = Nothing

naga xel:有时笨办法可以解决聪明问题,所幸俺总有笨办法。
评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有32566条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。