利用VB设计打印复杂报表
用VB实现WinCC归档数据的复杂报表
西门子公司的 #$%&& 是一个优秀的工控组态软件，广泛应 用于各种工业控制系统的数据采集及监控。#$%&& 本身也具有 报 表 和 曲 线 处 理 功 能 ， 但 #$%&& !’() 以 前 的 版 本 没 有 嵌 入 !" 脚 本 功 能 ，且 其 归 档 数 据 不 能 直 接 被 *+, -./0./ 数 据 库 所 用 。对 于 一 些 较 复 杂 的 数 据 处 理 功 能（ 如 数 据 查 询 、数 据 备 份 、报 表打印等）用 #$%&& 实现就显得力不从心。同 时 ，#$%&& 在 处 理报表时不能对历史数据进行任意查询和过滤，且报表格式设 计 也 不 够 灵 活 方 便 ，无 法 满 足 项 目 要 求 。 ! 系统概述
要 求 作 好 一 个 模 板（后 缀 为9M,+），对 于 报 表 中 不 固 定 的 部 分 ，需 要 Yc 程序动态生成。由于本项目过程变量数目及采样值较多， 在 Yc 程序中需同时控制 .M4-, 的 <:--+ 和 e1^-。整个过程都
置纸张尺寸为 ]# 8PfQ-[9Y*7*P,- I ‘O58Pf.Z9<:--+7@$A9eO*/+eO-l*-[ 8PfQ-[9Y*7*P,- I F1,78Pf.Z9<:--+7@$A9eO*/+a5+ 8PfQ-[9J*7H,1g],-O+7IF1,7-K8PfQ-[9o5*+ 8PfQ-[9J*7H,1g],-O+7I‘O5-K
基于VB实现复杂报表设计
基于VB实现复杂报表设计xx[摘要] 本文介绍了报表设计的几种方法和以往报表设计所存在的问题，并以实例介绍自动生成复杂报表的方法。
实例基于VB软件开发，并以word为模板，通过调用access数据库数据自动生成复杂报表。
[关键词]VB;数据库;Word; 复杂报表The Design Of Complex Reports Based VB[Abstract] This paper reports detailed description of several common methods, previous reports of the existence of the problem, and makes use of example to achieve a complex reporting by using of software. The example based on VB software and used word template, to achieve the common complex reporting software through reallocating database.[Key words] VB; Database; Word; Complex Statements1引言报表是人们在日常生活中对某类相关信息进行集中处理的重要手段，是企业信息化不可缺少的部分。
报表在各行各业中应用广泛，是信息浏览、分析和打印的有力工具。
传统报表系统均以国外简单报表模型为基础设计，不能适应复杂报表的开发。
特别是在处理复杂数据源报表时，常常需要编写代码准备数据或进行子报表拼接才能实现。
1．1传统报表系统存在的问题目前，国内外的报表系统种类繁多，功能界面各具特色，对这些报表系统的比较研究，有助于我们设计出更好的报表系统。
国外的报表系统的技术都比较成熟，适合制作样式简单的报表，但一般都为高端产品，价格不菲，并且在处理具有强烈中国特色的报表时，国外产品不仅报表处理能力相当不适应，甚至某些技术也略显落后，例如部分产品不能稳定地在UNIX上部署，只能支持IE浏览器，统计图输出仍采用原始的CGl方式等。
VC与VBA结合实现复杂报表
摘 要 介绍了在 )* && 中利用 +,-./01 技术调用 )2+ 对象来制作复杂报表的原理， 以及通过 )2+ 完成一个动态报表任务的具 体过程， 并给出了具体的实现方法。 关键词 )* && )2+ +,-./01 3456 复杂报表
%&$’()& "*+,’("$-&. %&,*%-/ !($ !" && $0. !#$
（Z）报表表头
7#(1J&*1’,"G? 7#(1J&O9’&? -1&G? ;&&X-1&G > G,;&&XL91’!"#$%&’( ‘从设置页眉页脚转换到正文 ;&2&#(1"’? 83A&8&Y( (&Y(： > 4射击训练成绩表4 式改为 “标题 H” ;&2&#(1"’? O9+9<+9AB0"+%9( ? 721<’%&’( > G,721<’O9+9<+9AB.&’(&+ ‘表头文字居中 ;&2&#(1"’? 83A&O9+9<+9AB ;&2&#(1"’? 0"’( ? ;1[& > HN ‘回车， 设置下一段落 ‘设置字体为黑体 ‘输出文字 ‘设置字体大小为四号 “黑体” ;&2&#(1"’? 0"’( ? C9%& > ;&2&#(1"’? 83A& 8&Y( (&Y(： > 44 ‘设置表头文字 ‘将表头文字样 （4标题 H4） ;&2&#(1"’? ;(32& > 7#(1J&!"#$%&’( ? ;(32&)
基于VB和WORD的报表设计及打印
＿ ！
ｗ ｄＣｅ ｌ ｌ ｋ＝ ｌ
ｐｓｉｉ ｙｔ ｎ ｓ ｅｇｏｇａ ａｐ ａｉ ｏｔｎｇ Ｓｓ ｍ ａｄ ｏ ｅｏｉｌ ｐｉ ｔｎ ｉ ｎ ｏ ｅ ｍ ｌ ｃ ｌ ｏ ｃ
Ｄｏ Ｗ ｈｉ Ｎｏ ｓ ０． ｌ ｅ ｔ ｒ ｌ ＥＯＦ
‘ 对
和皮尺相比 ，将 Ｇ ’ Ｉ ｓ这一先进空间测量技 术应用 在野外 区调 地 质填 图中 ，不仅 能 够快速 而高效地确定 地质点 的精 确坐标 ，
■： ■ ＝ ： ＿ ｌ
称面性含ｃｉ 开：田． 为对文象，作ｓ对 ．， 象个征ｕ器ｍ个二 阿 的 档名所ｕｃ壕：嚣： 一更者 始对・以．一： 属例属 有从就１ ～ 瑟的对行Ｉａｅ Ｉ蠹＾ 内一象 Ｄ］０ ，： 性如性 ０象Ｌ ｌ ： 容个的 ｎ实ｎ ； 个改该 首的后 …ｎ ： 是，对 先ｌ创 誊 ． 方 包 ｅ … 椿 等特特 ｎ例ｌ … 。或，的Ｄｊ 要 一 在Ｂ对 ｔａ象 Ｖｃ一 二然 ｓｌ 都中 ｊ 建 口 簋 ｈ
＝ｗ ｄ ｌ Ｃｅ ｌ
ａ ｐ ｏ ｄ． ｅｅ ｔｏ Ｍ ｏ ｅ ｇ ｔ Ｕｎｔ ｐ ｗ ｒ Ｓ ｌ ｉ ｎ． ｖ Ｒｉ ｈ ｉ ： ｃ
４Ｇｓ Ｐ辅助地质填图与传统地质填图
方法比较
与常规地 质填图常用的工具一一 罗盘
参考文献 ｒ
。 … Ｄ ｏｈ Ａ ｉ ｏ ｃ ｎｔ ｔ ｌ ｌ ｉｎ ． ｎｎ ｄ ｔ Ｏ ｈ Ｇｂ ｘ ｔ ｔ ｕ ｉ ｅ ｏ ｒ ｏ ａ
ｗｄ ｅｌ Ｃｌ
ｗ ｄＣｅ ｌ ｌ
‘ 向右移动 一格
ａ ｐ ｏ ｄ． ｌ ｔｏ Ｍ ｏ ｅ ｇ ｔ Ｕｎ ｔ ｐ ｗ ｒ Ｓ ｅ ｉ ｎ． ｖ Ｒｉ ｈ ｉ ： ｅ ｃ
ａ ｐ ｏ ｄ． ｌ ｔ ｎ． ｏ ｅ ｇ ｔ Ｕｎｔ ｐ ｗ ｒ Ｓ ｅ ｉ Ｍ ｖ Ｒｉ ｈ ｉ ： ｅ ｃ ｏ
利用VBA实现自动打印报表
利用VBA实现自动打印报表自动化报表打印是许多企业和机构所面临的一个重要任务。
为了提高工作效率和准确性，利用VBA（Visual Basic for Applications）编程语言可以实现报表的自动打印和批量处理。
本文将介绍如何使用VBA编写自动打印报表的程序。
一、编写VBA代码前的准备工作在开始编写VBA代码之前，我们需要确保计算机已安装Microsoft Office 套件，并打开需要进行自动打印报表的Excel文件。
在Excel文件中，我们需要确保报表数据已准备好，并已按照需要的样式进行整理。
二、进入VBA编辑器在Excel文件中，按下“Alt”和“F11”键，即可打开VBA编辑器界面。
在左侧的项目窗格中，双击需要编写代码的工作表（Sheet）或工作簿（Workbook）。
三、编写VBA代码1. 设置打印区域：在VBA编辑器中的代码窗格中，输入以下代码：```vbaSub SetPrintArea()Dim ws As WorksheetSet ws = ThisWorkbook.Worksheets("Sheet1") '替换为需要打印的工作表名With ws.PageSetup.PrintArea = .UsedRange.AddressEnd WithEnd Sub```上述代码中，“Sheet1”是需要打印的工作表名称，你可以根据实际情况进行替换。
2. 自动打印报表：在VBA编辑器中的代码窗格中，输入以下代码：```vbaSub AutoPrint()Dim ws As WorksheetDim LastRow As LongDim i As LongSet ws = ThisWorkbook.Worksheets("Sheet1") '替换为需要打印的工作表名LastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).RowWith wsFor i = 1 To LastRowIf .Cells(i, 1).Value <> "" Then.PrintOut '直接打印当前工作表End IfNext iEnd WithEnd Sub```上述代码中，“Sheet1”是需要打印的工作表名称，请根据实际情况进行替换。
VB编程中的报表和打印
VB编程中的报表和打印
蒋铁海
【期刊名称】《电脑知识与技术-经验技巧》
【年(卷),期】2003(000)029
【摘要】报表和打印是管理信息系统(MIS）开发中非常重要的一个环节。
现在，很多人用VB来开发MIS。
可是，几乎所有的VB教科书和参考书都没有介绍这方面的内容。
所以，本文就来讨论这方面的内容。
在VB编程中，报表和打印的主要方法有：把数据库记录输出到文本框、向Excel传递数据、利用Data Report、利用水晶报表等第三方控件。
限于篇幅．本文只介绍前面三种方法。
【总页数】3页(P47-49)
【作者】蒋铁海
【作者单位】无
【正文语种】中文
【中图分类】TP3
【相关文献】
1.在VFP报表打印中如何控制每页打印的记录数 [J], 何红玲;
2.关于操作系统升级导致VB程序中自定义报表格式无法打印问题的研究解决 [J], 李启华
3.在VB编程中用Excel打印报表的方法 [J], 缪仲翠;张宝霞
4.管理信息化中水晶报表的打印与精确打印的实现 [J], 艾灵仙
5.用VB编程实现非规范报表的打印 [J], 周旺基
因版权原因，仅展示原文概要，查看原文内容请购买。
VB导出Excel报表
VB导出Excel报表VB 是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。
因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。
但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。
一、 VB读写EXCEL表：能获取到表的行数的代码：edRange.Rows.CountVB本身提自动化功能可以读写EXCEL表，其方法如下：1、在工程中引用Microsoft Excel类型库：从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。
表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet3、在程序中操作EXCEL表常用命令：Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件xlApp.Visible = True '设置EXCEL对象可见（或不可见）Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值xlSheet.PrintOut '打印工作表xlBook.Close (True) '关闭工作簿xlApp.Quit '结束EXCEL对象Set xlApp = Nothing '释放xlApp对象xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。
VB调用EXCEL实现报表打印功能
VB调用EXCEL实现报表打印功能
刘永志;陈学煌;段新文
【期刊名称】《甘肃科技》
【年(卷),期】2005(21)7
【摘要】Visual Basic(简称VB)是设计Windows应用程序强有力的开发工具, Excel是目前使用最广泛的办公应用软件之一,它具有强大的报表打印、数学分析与计算功能.由于Excel的应用程序对象是外部可创建的对象,所以能从VB应用程序内部来程序化操纵Excel.本文结合我们的开发实例和体会,谈谈如何在VB6.0应用程序中调用Exce1实现报表打印功能,供大家参考.
【总页数】3页(P83-85)
【作者】刘永志;陈学煌;段新文
【作者单位】青海师范大学物理系,青海,西宁,810008;青海师范大学物理系,青海,西宁,810008;青海师范大学物理系,青海,西宁,810008
【正文语种】中文
【中图分类】TP334;F721.2
【相关文献】
1.VB调用EXCEL实现报表打印功能 [J], 盛晓蕾;刘晓梅;张玉军
2.基于VB/Excel的数据报表生成及打印功能实现方法 [J], 杨晓春;丁一
3.利用地址调用在Excel中实现报表打印功能 [J], 香丽芸
4.巧用VB调用Excel实现复杂报表设计与打印 [J], 畅育超
5.VB与EXCEL共享数据实现报表打印功能的初探 [J], 黄春华
因版权原因，仅展示原文概要，查看原文内容请购买。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一个单元格的格式随意控制，更为随心所欲地设计报表提供了强大的支 持。 根据用户提供的报表，我们可以很快在EXCEL里生成模版文件。所谓生 成模版文件只是为了满足用户多方面的需求而设计的。也是为了适合报表 以后的更改而做的一点预备工作。例如用户需要打印几百张职工履历表， 但其格式都是一致的，并且随着时间和实际情况的变化，表格格式有可能 需要改变，我们设计一个模版文件显然可以“以不变应万变”了。 生成工作表时我们应当记录下要填充内容的单元格编号和该单元格内 要填充的数据字段。这样形成一个表格，在写程序时一目了然。如： Cell(4,2) 职工姓名 Cell(6,6) 毕业学校 Cell(4,4) 职工性别 Cell(6,7) 所学专业 Cell(4,6) 职工民族 Cell(6,9) 工作时间 （表一） 在程序里我们当然不要对模版文件进行操作了，我们只需要对模版文 件的一个拷贝进行操作就行（这也是我们设计模版文件的一个目的和好 处）。如下面的例子： Dg strSource = App.Path & "\Excels\RegisterFee.xls" ‘RegisterFee.xls就是一个模版文件 strDestination = App.Path & "\Excels\Temp.xls" FileCopy strSource, strDestination ‘将模版文件拷贝到一个临时文件 三. 生成工作表内容 有了上述两步工作的铺垫，我们下面接着就只要根据（表一）的格式 给各单元格赋值了。如： datPrimaryRS.Recordset.MoveFirst ‘datPrimaryRS为Data控件 If IsNull(datPrimaryRS.Recordset!姓名) = False Then xlSheet.Cells(4, 2) = datPrimaryRS.Recordset!姓名 End If If IsNull(datPrimaryRS.Recordset!性别) = False Then xlSheet.Cells(4, 4) = datPrimaryRS.Recordset!性别 End If
If IsNull(datPrimaryRS.Recordset!民族) = False Then xlSheet.Cells(4, 6) = datPrimaryRS.Recordset!民族 End If ……………… 四. 打印报表 生成了工作表后，就可以对EXCEL发出打印指令了。 注意在执行打印操作之前应该对EXCEL临时文件执行一次保存操作，以 免在退出应用程序后EXCEL还提示用户是否保存已修改的文件，让用户觉得 莫名其妙。如下语句： xlBook.Save ‘保存文件 xlSheet.PrintOut ‘执行打印 xlApp.Quit ‘退出EXCEL 至此读者应该看到，我们设计的报表打印是通过EXCEL程序来后台实现 的。用户根本看不到具体过程，他们只看到一张张漂亮的报表轻易地被打 印出来了