189 8069 5689
这个专业我也学得不是很好，用书上得例子吧。
专注于为中小企业提供成都做网站、网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业修文免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上千多家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
某公司尽力需要了解公司在全国各地得销售情况，设计一个水晶报表。统计个地区得销售总额和全国总额
准备工作
用 SQL server 2000 创建一个数据库company 在该数据库中创建一个表Sales.用于储存区域销售数据
在表Sales 中添加若干条记录
设计报表
打开 Visual Studio.NET创建名为 Salesreport得 WINDOWS应用程序 将Form1.cs 名更改为 frmSalesReport.cs
frmSalesReport窗体得属性设置里。 吧 frmSalesReport.cs得Text属性更改为"区域销售报表"
把NAME属性更改为frmSalesReport。
在 VisualStudio.NET 菜单中选择 项目添加新项。在"添加新项"窗口得“类别”区域扩展 “本地项目项”，选择数据，在"模板"区域选择"数据集" 在"名称"那将Dataset1.xsd改名 SalesDetaset.xsd
单击"打开" 将生成一个新得结构文件 SalesDataset.xsd 该文件将显示在 ADO.NET数据集设计器中。
Visual Basic通用报表设计小结
本文对vb设计报表的方法作了一个小结，大家都知道，在VB平台下制作报表大致有两种选择：使用VB自带的Data Report控件和借助第三方软件。其中第三方软件比较著名的就是MS Excel和Seagate公司的CrystalReporter，以下就这三个方案进行详细的讨论。
1. Data Report控件
1．1 Data Report控件使用方法
由于是VB自带的控件，所以使用相对比较方便。使用方法是：首先在"工程"菜单下面选择"添加Data report"选项，这样Data Report控件就选入到了应用程序。
使用Data report的情况大多数采用数据绑定的模式，也就是将此控件与数据库的数据表绑定起来以便可以不用编写代码就轻松完成报表的设计。要使用数据绑定就必须要指定数据源，这里的数据源不是数据控件而是数据环境（Data Environment）,选择"工程"菜单下面选择"添加Data Environment"选项就可以将数据环境添加进应用程序中。数据环境有两个重要的属性：Connection 和Command属性，前者是连接指定的数据库，后者连接指定的数据表，一旦这两者都设置成功之后，就可以把数据环境作为数据源了。只需要把Data report的DataSource属性设置为前面的数据环境对象以及把DataMember设置为数据环境对象的Command对象即可。
1．2 Data Report控件界面元素
完成了Data report控件的数据绑定工作之后就可以直接控制报表的制作与显示了。这里首先熟悉一下Data report控件的显示界面：
Data report控件一共有5个区组成，分别是报表头、页面头、细节区、页面注脚和报表注脚。报表头和报表注脚是用分别用于整个报表的最上部和最下部，它们将出现于整个报表的每一页，可以放置一些报表名称，时间之类的固定文本；页面头和页面注脚只能出现在当前页的最上部和最下部，也就是说它只能出现在当前页中，不出现在其他页面中，可以放置随页面变化的一些量比如页码等；而细节区就是用来进行实际显示的区域，它是我们最为关心的区域，通过在此区域内放置显示控件可以控制报表的实际显示输出。这里介绍一下放置文本框控件的使用方法，其实在绑定情况下只需要设置其DataMember和Datafield即可，前者用来指定数据表，可以设置为前面数据环境对象的Command对象，后者是指定数据段，即绑定的数据库的指定字段。这样不需要编写任何代码就可以实现报表的显示工作。
1．3 Data Report控件的打印功能
对于报表的打印可以直接使用Data report自带的打印功能，即可以实现简易的报表打印。不过为了实现比较复杂的打印功能，也可以通过程序控制的方法来进行。这里只是给出一个实现思路：首先需要制作一个按钮控件来显示"打印设置"的窗口，通过这个窗口用户可以设置打印的相关的参数，然后在实现打印的子模块中使用VB内嵌的printer对象来实现真实的打印，该对象能够对打印的当前位置进行定位，而且对打印的字体等参数进行控制，所以结合"打印设置"窗口可以实现类似于word里面的打印功能。
2．MS Excel
说起报表设计应用程序，无意微软的Excel是一支独秀，MS Excel就是用来进行表格和报表设计用的应用程序，它具有优秀的方格控制和宏代码定制功能。所以如果在设计自己的应用程序的时候能够结合到Excel的话，那么你的应用程序就应该是相当的完善了，因为无论是编辑还是打印功能，Excel都提供了很完美的解决方案，所以你的应用程序所要做的事情就是实现程序和Excel通讯即可。
事实上，可以使用VBscript可以将VB与Excel两者连接起来。以下就简要介绍在VB下开发基于Excel的编程思路。
在VB中处理Excel的对象大致分为五个：Application对象、WorkBook对象、WorkSheet对象、Range对象以及Cell对象。它们的功能分别如下：
Application---------用来指代整个应用程序。
WorkBook----------表示工作簿对象
WorkSheet---------表示工作表对象，注意，一个工作簿可以包含多个工作表，它们就类似于多文档中的框架窗口和里面的单个视图一样。
Range-------------表示工作表中的某个区域范围对象，特殊情况下也可以只代表一个Cell。
Cell---------------表示特定工作表的一个单元格对象。这个对象的使用频率是最高的。
清楚了以上的五个对象的应用范围，那么使用它们就很简单了，不过在使用这些对象之前，首先需要对它们进行声明。方法是在"工程"的"引用"对话框之下选择"Microsoft Excel9.0 Object Library"，这样就将整个Excel对象库就引入到程序中来了。
下面举一个示例，其实现的功能是打开一个工作簿。
Function OpenBook(strFilePath As String) As Boolean
' This procedure checks to see if the workbook
' specified in the strFilePath argument is open.
' If it is open, the workbook is activated. If it is
' not open, the procedure opens it.
Dim wkbCurrent As Excel.Workbook
Dim strBookName As String
On Error GoTo OpenBook_Err
' Determine the name portion of the strFilePath argument.
strBookName = NameFromPath(strFilePath)
If Len(strBookName) = 0 Then Exit Function
If Workbooks.Count 0 Then
For Each wkbCurrent In Workbooks
If UCase$(wkbCurrent.Name) = UCase$(strBookName) Then
wkbCurrent.Activate
Exit Function
End If
Next wkbCurrent
End If
Workbooks.Open strBookName
OpenBook = True
OpenBook_End:
Exit Function
OpenBook_Err:
OpenBook = False
Resume OpenBook_End
End Function
3．Crystal Reporter（水晶报表）
做为一个优秀的报表软件，水晶报表是实际应用中最多的方案。在这一节里主要介绍一下水晶报表的定制和显示，打印功能的实现。
首先要区分Crystal Reports插件程序和Crystal Reports控件。前者主要用来创建报表模板，后者主要是用来在程序中显示和打印报表，这两者的分工决定了它们程序中的功能的不同。
其中Crystal Reports的插件程序可以从Seagate公司的官方网站上下载最新的测试版本。
3．1 Crystal Reports插件程序的使用
选择"外接程序"菜单的"报表设计器"选项，则VB将执行Crystal Reports Pro插件应用程序。在Crystal Reports Pro里选择"新建报表"图标，可以选择8标准模板和一个自定义的模板来开始报表工程。
整个水晶报表的使用跟第一节的Data Report的使用很类似。首先需要给报表选择数据源，（即数据库），然后就可以在报表中添加、删除、修改字段以及为记录分组，可以利用水晶报表创建很多具有自定义风格的报表。由于本身Crystal Reports插件程序就是一个功能强大的报表设计软件，这里就不能一一的讲解了，有兴趣可以参考程序自带的帮助文档。
3．2 Crystal Reports控件的背景知识
Crystal Reports Pro还提供一个报表生成模块，该模块可以连接到并访问VB应用程序，VB程序员不需花费大量时间写自己的代码就可再应用程序中添加复杂的报表生成及输出功能。
Crystal Reports引擎是一个动态链接库，它可以使应用程序访问并具有同Crystal Reports 一样强大的报表输出功能。应用程序是通过Crystal Reports ActiveX控件来访问引擎。再编译时应用程序同报表引擎链接，以给应用程序添加了生成报表的功能。
当程序使用Crystal Reports ActiveX控件时，可以通过再设计时设置Crystal对象属性或者再运行时改变对象属性，来建立应用程序和Crystal Reports之间的连接。通过Crystal控件的属性可以指定：
响应应用程序某个事件的输出报表的名字。
报表的目标位置（预览窗口、磁盘文件或者电子邮件等）。
想要打印的份数（如果报表提交给打印机的话）。
输出文件的信息。
预览窗口的大小及位置信息（如果报表在预览窗口中显示时）。
选择公式信息（如果在报表中限制记录的话）。
排序信息。
其他相关的属性。
这里要注意一点的是，Crystal控件必须在由Crystal Reports Pro创建的报表中使用，而试图在VB应用程序里引用之前，必须首先创建报表。
3．3 Crystal Reports控件的使用
了解了Crystal Reports控件的功能，那么就可以使用它了。首先通过"工程"的"部件"选项里面选择"Crystal Reports Control"，那么VB的工具箱里面就添加了Crystal Reports控件了。
注意，对于Crystal Reports控件的最重要的属性就是ReportFileName了，把它设置为前面已经在Crystal Reports Pro里定制好的报表模板的文件路径。那么只需要调用控件的PrintReport方法就可以将报表显示出来了。
相对于Data Report控件来说，Crystal Reports控件的功能更加的完善，报表预览，打印，编辑修改等功能都很完善，所以在实际的报表应用设计方案中，使用Crystal Reports的相对较多。然而Crystal Reports控件也有它的局限性，即它不能在运行时创建自定义的窗口。可以使用控件的数据绑定属性来创建数据绑定报表，但是报表本身的格式都是由Crystal Reports控件内部进行处理的。一般说来，Crystal Reports控件不提供在程序中对报表字段级的访问。这一缺陷可以通过设计出足够多的报表来弥补。
4.其他方法
除了通过上述的三种方法来实现报表设计以外，当然也可以直接利用Win32 API来进行直接进行设计，这种方式是最为灵活也是最为繁琐的方式，因为所有的编辑、修改、打印等功能都是由程序控制，所以一般情况下不会使用这样的方式来处理，这里就不介绍了。
5．小结
报表设计是程序员经常要遇到的问题，本文主要介绍目前主流的报表设计方案，由于所涉及到的知识点比较多，限于篇幅，在这里只是作了简要的介绍，希望可以起到抛砖引玉的作用。
With Me.ReportViewer1 '初始化报表
.Dock = DockStyle.Fill
.LocalReport.DataSources.Clear()
.LocalReport.ReportPath = "Report1.rdlc"
.RefreshReport()
End With
报表在设计时，不一定要绑定数据源，但在窗体加载时，需要初始化报表控件，以上代码可以放在窗体加载的Load事件里，供你参考。
CrystalReportViewer
dataset 定义数据源
.rpt 文件描述具体报表样式
再加一个调用报表的FORM，就可以实现简单的报表功能
Option Explicit
dim Report as New Cystal1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
'调用水晶报表时置鼠标为沙漏状 CRViewer91.ReportSource = Report '该语句的赋值将在后面被修改
CRViewer91.ViewReport
Screen.MousePointer = vbDefault '调用水晶报表完成后置鼠标为默认形状
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
可以用水晶报表设计报表，水晶报表你要自学，在这里是说不清的，我对水晶报表有一点的了解功能很强大。
1 打开Excel dim myexcelas new Excel.Application() myexcel.visible=true
2 添加新的工作簿myexcel.Workbooks.add()
3 设定第二个工作表为活动工作表myexcel.worksheets(2).Acivate()
4 打开指定的Excel文件myexcel.workbooks.open(“c:\my.xls”)
5 显示Excel窗口myexcel.visible=true
6 更改Excel的标题栏myexcel.caption=“欢迎,欢迎!”
7 为Excel的单元格赋值myexcel.cells(1,4).value=100 此语句使Excel当前工作表的第一行第四列,即D1单元格等于100, 也可以这样写: myexcel.Range(“D1”).value=100
8 设置指定列的宽度(单位:字符个数)myexcel.ActiveSheet.colums(1).columnwidth=20 设定当前工作表第1列的宽度为20
9 设置指定行的高(单位:磅)myexcel.ActiveSheet.rows(1).rowHeight=1/0.035 1磅 =0.035厘米设置第1行的高度为1CM
10 插入分页符 myexcel.Activesheet.rows(20).pagebreak=1在第20行前插入分页符
11 删除分页符myexcel.Activesheet.columns(20).pagebreak=0 在第20列前删除分页符
12 指定边框线的宽度myexcel.Activesheet.range(“B3:D3”).borders(1).weight=3 其中borders参数指定单元格边框的位置:1:左 2:右 3:顶 4:底 5:斜\ 6:斜/
13 指定边框线条的类型 myexcel.Activesheet.range(“B1:D3”).borders(2).linestyle=1此语句将当前工作表的B1:D3单元格的右边框设置为实线 linestyle参数: 1:细实线 2:细虚线 3:点虚线 4:双细实线
14 设置页脚myexcel.activesheet.pagesetup.centerfooter=“第p页” 注意:设置页眉页脚时要保证计算机上装有打印机,否则出错!
15 设置页眉myexcel.activesheet.pagesetup.centerfooter=“第p页”
16 设置页眉到顶断距离为2cmmyexcel.Activesheet.pagesetup.Headermargin=2/0.035
17 设置页脚到底端距离为2cmmyexcel.Activesheet.pagesetup.Footermargin=2/0.035
18 设置顶边边距为2cmmyexcel.Activesheet.pagesetup.topmargin=2/0.035
19 设置底边边距为2cmmyexcel.Activesheet.pagesetup.Bottommargin=2/0.035
20 设置左边边距为2cmmyexcel.Activesheet.pagesetup.Leftmargin=2/0.035
21 设置右边边距为2cmmyexcel.Activesheet.pagesetup.Rightmargin=2/0.035
22 设置页面水平居中myexcel.activesheet.pagesetup.CenterHorizontally=true
23 设置页面垂直居中myexcel.activesheet.pagesetup.Centervertically=true
24 设置页面纸张大小 (1,窄行8.511 ;39 ,宽行1411) myexcel.activesheet.pagesetup.papersize=1
25 打印单元格网格线 myexcel.activesheet.pagesetup.PrintGridlines=true
26 复制整个工作表 myexcel.activesheet.Usedrange.Copy
27 复制指定区域 myexcel.activesheet.range(“a1:b5”).Copy
28 粘贴 myexcel.worksheets(“sheet2”).range(“A1”).PasteSpecial
29 在第2行前插入一行 myexcel.activesheet.rows(2).Insert
30 在第2列前插入一列 myexcel.Activesheet.Columns(2).Insert
31 合并 C4:D4 单元格 myexcel.Activesheet.Range(“C4:D4”).Merge()
32 自动调整第2列列宽 myexcel.activesheet.Columns(2).AutoFit
33 设置字体myexcel.Activesheet.cells(2,1).font.name=“黑体”
34 设置字体大小myexcel.Activesheet.cells(2,1).font.size=25
35 设置字体为斜体 myexcel.Activesheet.cells(2,1).font.Italic=true
36 设置字体为粗体 myexcel.Activesheet.cells(2,1).font.Bold=true
37 清除单元格内容myexcel.activesheet.cells(2,1).ClearContents
38 打印预览工作表myexcel.Activesheet.PrintPreview
39 打印工作表 myexcel.Activesheet.Printout
40 工作表另存为myexcel.ActiveWorkbook.saveas(“C:\book2.xls”)
41 放弃存盘 myexcel.ActiveWorkbook.saved=false
42 关闭工作簿 myexcel.Workbooks.close
43 退出 Excel myexcel.quit
44 纸张横向：myexcel.activesheet.PageSetup.OrientaTion=2（1纵向）
45 单元格居中：cells(2,1).HorizontalAlignment=Excel.XlHAlign.xlHAlignCenter 水平方向cells(2,1).VerticalAlignment=Excel.XlVAlign.xlVAlignCenter 垂直方向
打开CSDN APP，看更多技术内容
VB调用Excel软件实现打印预览功能
摘要:VB源码,报表打印,打印预览VB调用Excel软件实现打印预览功能，可以插入折线图，VB打印预览功能示例源码，分享给大家参考。
用vb操作EXCEL打印报表
最近使用vb来打印报表,打印出来的EXCEL一直无法上传到ftp 反复多次问题都没解决, 200 PORT command successful. Consider using PASV. 问题出在这,由于win10的防火墙的原因,关闭防火墙后问题得到解决. 转载于:...
继续访问
VB操作excel 格式设置及打印页面设置（精简）
langue：VB Set ExcelApp = CreateObject("Excel.Application") ’创建资源，建立连接 Set ExcelBook = ExcelApp.Workbooks.Open(“d:\pipo\index.htm") Set ExcelSheet = ExcelBook.Worksheet...
继续访问
vb.net excel操作：填充人事档案表并打印
节选自：《Visual Basic.Net 循序渐进》【例 21.7】【项目：code21-007】填充人事档案表并打印。 本例使用到的Excel文件为：职员信息登记表.xlsx，如下图所示： 图21-10 职员信息登记表 窗体设计如下图所示（注意：为了演示方便，已经填充了数据）： 图21-11 窗体设计 在本例中还需要掌握的知识： 1、插入图片到指定位置 Worksheet.Shapes.AddPicture(Filename, LinkToFile, SaveWithDocumen
继续访问
vb.net操作Excel常用命令
转载: 首先,须在项目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library （这是EXCEL2000） 1 打开Excel： dim myexcel as new Excel.Application() myexcel.visib...
继续访问
vb.net 如何实现报表打印_Excel如何实现分类别打印？创建组轻松实现
有朋友咨询个关于Excel打印数据问题，他的需求是这样的：下表中是某公司人员信息表，现在领导要求将表格分部门打印出来，每位员工核对个人信息并签字。需求很明确，就是将相同部门的人员打印到一张纸上。打印很简单，难点在于如何按每个部门去打印？如果部门较少的话可以将不同部门复制到不同插页中，再进行打印；但是如果部门较多的话，这种办法实在不可取；有小伙伴表示可以利用VBA技术将部门拆分到各个插页，在进行打印...
继续访问
最新发布 vb.net 教程 11-1 打印组件 3 PageSetupDialog
版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。 本节谈谈另外一个有关打印的对话框：PageSetupDialog，页面设置对话框 实际我们是通过这个对话框获得PageSetting，关于PageSetting在上一节有部分介绍，请参看 vb.net 教程 11-1 打印组件 PrintDialog 2 注意的是，使用PageSetupDialog需要绑定一个PrintDocument，在PageSetupDialog的Document属性处
继续访问
VB.NET使用EXCEL常见操作
首先,须在项目里引用: 添加引用Microsoft.Office.Interop.Excel Imports Excel = Microsoft.Office.Interop.Excel 1 打开Excel： Dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿： myexcel.Workbooks.ad
继续访问
【VB Excel】VB 操作Excel基本步骤
VB操作EXCEL,实现数据读取 1、定义Excel操作变量 Dim objExcelFile As Excel.Application Dim objWorkBook As Excel.Workbook Dim objImportSheet As Excel.Worksheet 2、打开Excel进程，并打开目标Exc...
继续访问
vba代码编程800例_如何设置Excel打印格式，学会这个VBA对象就可以随心所欲
NO.1 Excel如何设置打印格式使用vba可以做打印格式处理，如何做一个漂亮的打印页面，不外乎要设置打印表格的边框、版式、页眉、页角等等。那么怎样设置这些格式呢？NO.2 PageSetup对象vba编程用到Pagesetup对象，对表格打印进行设置。PageSetup对象有许多属性，下面图片里列出了大部分常用的属性，可以对照进行设置。具体方法下面举个例子来展示一下最终效果。PageSetup...
继续访问
vb.net操作excel文件
[转自] vb.net操作excel文件 要求将数据显示在Excel表中，并且要设好数据格式。虽说如此，真正实现了自己的功能，还是费了不少时间。相信还是有很多与我相似的人需要实现这种功能。那就做个小结吧。不妥之处，请指正哦。 1.添加引用–com—microsoft excel 11.0 object library 2在需要访问excel的过程中定义 dim exapp as excel.a
继续访问
VB.net使用PrintForm打印窗体
在VS2010中内置了了一个PowerPacks的扩展包,果然很好用啊,可以直接打印窗体内容 先从"工具箱"中拖一个PrintForm到设计好的窗体中 然后在窗体里加了个打印的按钮,对应代码如下 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.
继续访问
热门推荐 开源:.NET环境下有关打印页面设置、打印机设置、打印预览对话框的实现与应用(2)
!--google_ad_client = "pub-0022674553583619";google_ad_width = 728;google_ad_height = 90;google_ad_format = "728x90_as";google_ad_type = "text_image";google_ad_channel ="";google_color_
继续访问
vb.net 设置打印纸张与页边距_机关公文格式设置规范(最新整理版)
本方法根据《党政机关公文格式国家标准》(GB/T9704-2012)制定。具体内容如下：一、办公软件要求适用于微软OFFICE—WORD文字处理软件。二、页面设置1.选择“文件”——“页面设置”选择“页边距”附签，上：3.7厘米，下：3.5厘米，左：2.8厘米，右：2.6厘米。2.选择“纸张”附签，“纸张大小”设成“A4”。3.选择“版式”附签，将“页眉和页脚”设置成“奇偶页不同”,在该...
继续访问
VB.NET EXCEL 操作