VB程序打印水晶报表的方法
在VB中集成水晶报表的RDC方法
在VB中集成水晶报表的RDC方法作者：隗燕琳陈敬超陈进明李贵乙张华峰来源：《软件工程》2016年第03期摘要：根据Visual Basic便捷的界面开发能力及CrystalReport强大的数据库报表设计能力，研究探讨了两者相结合的集成编程方法，并分析了各种集成方法中数据格式，数据交互机制及具体应用实例。
采用两者混合编程对数据库软件的开发，提高开发质量和效率具有重要意义。
关键词：混合编程；Visual Basic；CrystalReport；数据报表中图分类号：TP312 文献标识码：AAbstract：In term of the respective advantages of Crystal Report and Visual Basic software，researches are done in this paper on programming with Crystal Report and Visual Basic software together.This paper shows different methods in programming with the two kinds of software and also gives simple illustrations about different methods.It has great importance to help programmers with high quality and efficiency.Keywords：admixture programming；visual basic；crystal report；data report1 引言（Introduction）数据库软件的编写，要求软件开发者不仅具有较高的数据库报表和查询功能的设计能力，而且要具有较高的软件操作界面的设计能力。
使用任何流行的Windows开发工具开发自定义应用程序时，若用自己的方法通过逐条访问数据库记录来开发报表功能，那些复杂的数据格式、字体管理、图形显示，以及其他和Windows相关的显示问题将变得非常重要，这是一个编程挑战。
VB中水晶报表使用
VB中水晶报表使用在VB中，水晶报表是非常常用的工具之一。
可以利用水晶报表来生成各种报表，如销售报表、库存报表等。
本篇文档将介绍VB中如何使用水晶报表。
水晶报表简介水晶报表(Crystal Reports)是由美国公司Crystal Decisions开发并推广的一款报表工具。
它能够通过与各种数据源连接，并结合VB等开发语言，使用丰富的报表设计工具，输出格式优秀、易于管理的报表。
水晶报表常被应用在财务、人力资源、生产管理等领域。
使用步骤步骤一：安装水晶报表在VB中使用水晶报表前，需要先安装相关组件。
水晶报表可以从Crystal Decisions官网下载，也可以通过在线安装程序直接安装。
步骤二：在VB中添加水晶报表安装完毕后，在VB工具箱中，通过右键单击“工具箱” -> “选择工具箱项目”，勾选“Crystal Report Viewer”和“Crystal Reports ActiveX Designer”，点击“确定”即可将水晶报表添加到工具箱中。
步骤三：设计报表在VB中建立一个报表项目，添加CrystalReport控件，然后我们就可以在报表设计器中进行样式、数据源、布局等相关设置。
设计完报表后即可在VB中引用并使用。
步骤四：运行报表在VB程序中，调用所设计的水晶报表，将数据源传入水晶报表中，再查看实际输出效果。
这一步需要注意传入的数据源要与报表设计器中设计的数据源一致，否则将无法正常输出报表。
注意事项1.数据源要与报表设计器中的数据源一致，否则报表将无法正常输出；2.在VB程序中使用水晶报表时，需要在程序头部声明相关引用；3.如果需要在VB项目中修改已经设计好的水晶报表，需要先关闭VB工程，再进行报表修改操作；4.水晶报表设计器中能够支持的数据源类型非常多，如Excel、XML、Access、Oracle等，使用中需要根据实际情况进行选择。
总结通过本文对VB中水晶报表的介绍，我们可以清楚的了解到水晶报表的作用及在VB中的使用方法，以更好地完成各种报表任务。
水晶报表打印设置
水晶报表打印设置
水晶报表打印设置
最近都反应进行打印的时候，每次需要手工选择打印机和纸张大小，操作比较麻烦，现在提供一种解决方案，具体操作如下：
1、确保安装成功。
2、删除系统的默认的打印机。
开始——〉打印机和传真——〉，找到系统打印机。
打印机的名字是：Microsoft XPS Document Writer，找到删除。
3、设置默认打印机的打印纸张规格。
一、开始——〉打印机和传真——〉，找到默认的打印机。
右击选择打印首选项。
二、弹出界面如图：
然后选择右下角的【高级】。
三、打开高级界面，在纸张规格一栏选择【PSD】然后点击确认。
设置好这些之后，再打印票据的报表时就会默认【默认打印机】和【PSD】了。
补充说明：
1、实施的时候一定要注意票据打印纸的规格是宽：22cm，高：9.31cm。
2、开发人员在开发报表的时候，一定要注意选择打印的规格，是A4还是其他。
VB中如何使用水晶报表
水晶报表（Crystal Report）的业内最专业、功能最强的报表系统，它除了强大的报表功能外，最大的优势是实现了与绝大多数流行开发工具的集成和接口。
在平台做过报表开发的程序员，一定都对水晶报表强大、高效、集成等特性留下了深刻印象。
除了开发新程序外，在工作中我们常需要接触到很多较早的软件系统报表功能升级的需求，如果能结合水晶报表这一强大的工具，往往能事半功倍。
VB是以前流行的数据库开发平台，用其开发的C/S系统在社会上有非常大的保有量，但VB 超弱的报表功能往往让程序员面对客户的升级要求一筹莫展。
本文并不做水晶报表的使用和编程教学，实际上水晶报表本身的使用方法和平台并没有太大的差别，我主要是和大家探讨一下VB和水晶报表的一种较方便的接口方式。
我的开发测试平台是Windows2003 Standard简体中文版、VB6.0+sp5英文版、Crystal 9.0简体中文开发版。
关于在水晶报表中制作报表模板的方法，并非本文的探讨范围，读者可以参考Crystal Report 的帮助文件和官方网站的技术资料。
简单地说，首先要通过水晶报表的数据库引擎手动连接相应的表结构，制作报表模板，并保存为rpt文件，该项操作和利用VB自带的报表工具制作报表大同小异。
用VB调用水晶报表进行报表开发的简单接口方法就是，在水晶报表中用"仅字段定义"来获得字段分布文件，用虚拟的文件创建表字段，用CRAXDRT对象来强制改变数据源（ADO.recordset），其效果相当于在VB中调用了rpt文件。
下面分步骤介绍编程方法。
第一步：在VB工程中Project菜单加入"Add Crystal Report 9"，报表名使用默认即可。
这时Form2（Crystal Rerport自动添加的Form，假设名为Form2）被自动分配了如下代码：Option Explicitdim Report as New Cystal1Private Sub Form_Load()Screen.MousePointer = vbHourglass '调用水晶报表时置鼠标为沙漏状CRViewer91.ReportSource = Report '该语句的赋值将在后面被修改CRViewer91.ViewReportScreen.MousePointer = vbDefault '调用水晶报表完成后置鼠标为默认形状End SubPrivate Sub Form_Resize()CRViewer91.Top = 0CRViewer91.Left = 0CRViewer91.Height = ScaleHeightCRViewer91.Width = ScaleWidthEnd Sub第二步：点击Crystal Report设计器的"数据库字段"，选定"数据库专家..."，然后点"创建新连接"，再点"仅字段定义"，创建"数据库定义"文件，字段名和宽度和原数据库表保持一致。
VB如何调用CrystalReports
常用报表大约有：列表式的报表；带有分类、汇总式的报表；以及带有各种 图形、图表的报表。
下面就这两种方法举例说明几种报表的 制作。
直接使用 Crystal ActiveX 控件生成报表使用 Crystal ActiveX 控件应先建立数据库， CrystalVB 如何调用 Crystal Reports VB 如何调用 Crystal Reports shkingdee 在 VB 中利用 Crystal ActiveX 控件制作报表 在自行开发的应用软件中，一般都需要制作报表。
我们可以 利用 Crystal Reports （也称水晶报表）方式，调用 通过其他（ Print 方法直接输出， TextBox 等）控件输出报表， 使用 OLE 技术与 Word 和 Excel 连接输出报表。
Crystal Reports 方式需要许多文件支持， 通常需要耗用更多的系统资 源，但与其他方法 相比，具有容易实现、功能强大、报表样式丰富的特点。
Crystal ActiveX 控件制作报表一般有两种方法： 1． 直接使用 Crystal ActiveX 控件生成报表。
2． 先用 CRW32.EXE 产生 RPT 报表文件， 然后在控件 中引用 RPT 文件。
ActiveX 控件支持流行的数据库类型，女口：Access、xBase、Paradox。
直接使用CrystalActiveX 控件只能制作简单的列表式报表。
1. 新建一个工程，在窗体Form1 上添加Data 控件，Crystal ActiveX 控件，命令按钮。
2.在Data 控件上将DatabaseName 属性设置为要生成报表的数据库名称，如Biblio.mdb 。
设置RecordSource 属性为数据库中表名称或SQL 查询语句。
这里我们设置成表Authors 。
3.在Crystal ActiveX 控件上设置DataSource 属性为Datal，设置ReportSource 属性为3。
VB利用DataReport做报表详解
VB利用DataReport做报表首先介绍一下DataReport对象的几个常用属性。
一是DataSource，用于设置一个数据源，通过该数据源，数据使用者被绑定到一个数据库；二是DataMember，从DataSource提供的几个数据成员中设置一个特定的数据成员；三是LeftMargin、RightMargin、TopMargin、BottomMargin等，用于指定报表的左右上下的页边距；四是Sections，即DataReport的报表标头、页标头、细节、页脚注、报表脚注5个区域，如果加上分组(可以有多层分组)，则增加一对区域，即分组标头、分组脚注。
其中DataSource一般是一个数据环境或是ADODB.Connection类型的变量，而DataMember则对应数据环境中的Command或是ADODB.RecordSet类型的变量，推荐使用数据环境及Command，页边界大家肯定都很清楚，下面我主要介绍以下Sections，这也是DataReport的精髓所在。
Sections是一个集合，您可以为每一个Section指定名称，也可以用其缺省的索引，从上到下依次为1、2…。
每个Section均有Height和Visible属性，您可以在一定条件下使一个Section不可见。
在Section中可以放置各种报表控件，其中RptLabel、RptImage、RptShape 和RptLine可以放在任意的Section中，用于输出各种文字、图形及表格线；RptTextBox只能放在细节中，一般用于绑定输出DataMemeber提供的数据字段；RptFunction只能被放置在分组注脚中,用于输出使用各种内置函数计算出的合计、最大值、最小值、平均值、记数等等。
上述报表控件中常用公共属性有用于控制位置及高度宽度的Top、Left、Height、Width和控制可见性的Visible；其中RptTextBox还有DataField、DataMember、DataFormat及Font属性；其他属性不再多说。
利用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 net数据库使用技巧——制作水晶报表Crystal Report
建立水晶报表的过程：▪ 1 设置DataSet数据源，建立数据集▪可以根据向导制作，过程简单。
▪ 2 建立报表▪使用上面的DataSet数据源，可以采用向导或手工，操作基本相同。
▪ 3 显示报表▪建立一个窗体（在此窗体中显示报表）,▪窗体中添加crystalReportViewer控件（此控件用于显示具体的报表）▪在报表显示前指定一个DATESET作为数据源为报表的各个字段赋值▪把此报表指定给crystalReportViewer控件数据表说明[货物信息表]（1）添加数据集（2）添加控件前的设置，如此图的dsn 设置点[新建连接]按钮后弹出界面（4）回到上一个界面后，点下一步请选择使用SQL语句，否则将一次多出四个存储过程，相对来说比较混乱。
而我们这里用的数据集仅目的是为了建立报表的时候可以设置报表字段。
（5）继续点下一步（6）点查询生成器，添加需要的数据库表（7）可以随意设置，自动会生成SQL语句，也可以点[执行查询]察看效果（8）点确定回到向导设置界面出现SQL语句（9）下一步保持默认（10）点完成（11）得到的数据集右键点配置，可以得到SQL 语句同时可以修改SQL点预览数据可以察看SQL语句执行结果（12）重点：这里的数据集对象是为了进行报表的设置，也就是说在报表设计的时候可以直接指定哪个位置显示什么字段，而字段的可以从上面做的数据集中直接拖出，比较方便。
如果报表显示的时候应该动态的为此报表提供查询出的数据集，提供数据集的方法依然是通过代码执行存储过程或者SQL语句来完成的ADAPTER对象的FILL方法。
因此我们拷贝上面查询分析器生成的SQL语句制作一个存储过程二）建立报表自动会弹出，选择报表向导拖动我们刚才设置的数据集到右边选择字段下一步这里我们不需要分组，所以不用设置下一步我们不需要筛选，如果需要筛选，右面图是个筛选例子最后设置报表风格，右面可以清楚显示预览效果，自己选择，建议标准符合常规建立的新报表如下设置页眉（1）报表页眉是每个报表的标题部分，默认状态时不显示，点击右键之后选择变为可显示状态可以拖动下面的页眉部分，来调整报表页眉的大小工具中拖个文本对象到报表页眉写字并设置大小拖个温州大学图标到界面上预览报表这种效果是正常的，数据很随意报表一般都有表格把文字隔开，如上图报表效果不美观，需要添加表格线注意可疑在页眉中标题的上下画2条线，而在详细资料部分只需文字下面绘制一条线，原因是报表页眉和页脚都是出现一次的地方，绘制的效果是编辑的效果，而详细资料部分是个模板位置，仅需要设置一行就可以产生无数行效果，而每一行都有下画线，这样上行的下画线将成为下行的上画线。