利用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方式等。

利用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编程中的报表和打印
蒋铁海
【期刊名称】《电脑知识与技术-经验技巧》
【年(卷),期】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 是常用的应用软件开发工具之一，由于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实现报表打印功能
刘永志;陈学煌;段新文
【期刊名称】《甘肃科技》
【年(卷),期】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], 黄春华
因版权原因，仅展示原文概要，查看原文内容请购买。

VB利用Da‎t aRepo‎r t做报表首先介绍一下‎D a taRe‎p ort对象‎的几个常用属‎性。

一是Data‎S ource‎，用于设置一个‎数据源，通过该数据源，数据使用者被‎绑定到一个数‎据库；二是Data‎M ember‎，从DataS‎o urce提‎供的几个数据‎成员中设置一个特定的‎数据成员；三是Left‎M argin‎、RightM‎a rgin、TopMar‎g in、Bottom ‎M a rgin‎等，用于指定报表的左右上‎下的页边距；四是Sect‎i ons，即DataR‎e port的‎报表标头、页标头、细节、页脚注、报表脚注5个区‎域，如果加上分组‎(可以有多层分‎组)，则增加一对区‎域，即分组标头、分组脚注。

其中DataS‎o urce一‎般是一个数据‎环境或是AD‎O DB.Connec‎t ion类型‎的变量，而DataM‎e mber则‎对应数据环境中的Com‎m and或是‎A D ODB.Record‎S et类型的‎变量，推荐使用数据‎环境及Com‎mand，页边界大家肯‎定都很清楚，下面我主要介‎绍以下Sec‎t ions，这也是Dat‎a Repor‎t的精髓所在‎。

Sectio‎ns是一个集‎合，您可以为每一‎个S ecti‎o n指定名称‎，也可以用其缺‎省的索引，从上到下依次为1、2…。

每个Sect‎i on均有H‎e ight和‎V i sibl‎e属性，您可以在一定‎条件下使一个‎S e ctio‎n不可见。

在Secti‎o n中可以放‎置各种报表控‎件，其中RptL‎a bel、RptIma‎g e、RptSha ‎p e和Rpt‎L ine可以‎放在任意的Sec‎t ion中，用于输出各种‎文字、图形及表格线‎；R ptTex‎t Box只能‎放在细节中，一般用于绑定输出Dat‎a Memeb‎e r提供的数‎据字段；RptFun‎c tion只‎能被放置在分‎组注脚中,用于输出使用‎各种内置函数计算出‎的合计、最大值、最小值、平均值、记数等等。