vb.net报表2015,vb 报表

用VS2015，创建的VB.NET应用程序，如何同时操作两个EXCEL工作簿

首先定义

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名申请、虚拟主机、营销软件、网站建设、宜川网站维护、网站推广。

Public xlApp As Excel.Application

Public xlBook As Excel.Workbook Public xlSheet As Excel.Worksheet然后创建对象

xlApp = CreateObject("Excel.Application") '创建EXCEL对象

xlBook = xlApp.Workbooks.Open("文件路径") '打开已经存在的EXCEL工件簿文件

xlSheet = xlBook.Worksheets("sheet1")

vb.net,水晶报表打印时纸张变为信纸，打印机里面已经自定义好了纸张，用EXCEL,WORD就正常，请高手指点

别的地方转来的！~ 不过我们以前做的时候 都是在打印机里增加一种打印纸 然后就可以选了！~

一下转载内容！~~~

水晶报表-强大而成熟，但是多少男儿汉败倒在他的自定义纸张设置上。

1：水晶报表是纸形打印。所以自定义纸张类打印肯定要在电脑上增加对应的纸张才行（手动加还是代码加这个不管）

2：纸张分3种系统内建（不可更改），自定义，打印机自带。很遗憾的是水晶只认系统内建的。

3：打印机一般分2种。1普通喷墨的A4,2有联单的针式

4：注意水晶报表不是所见所得的，预览的纸张是什么不一定打印的就是什么纸张（受3方影响。打印机、报表内设置、PAPERSIZE 属性，三者之间关系不详）。

5：对于第一种A4纸张。没什么好说的系统内建纸型。水晶报表认。直接指定就行

6：对于第二种联单的自定义型一般专机专用，当然是建好纸张让打印机默认自己建的纸张为默认首选了。

7：然后设置水晶报表使用打印机默认的纸张PaperSize = CrystalDecisions.Shared.PaperSize.DefaultPaperSize

以上能保证专机专纸的任何打印。：要注意第4点。如果你是自定义纸而且要预览要保障预览和打印都用指定的纸张，那么预览时你得指定PaperSize=你自定义纸张的索引号。打印的时候又改成CrystalDecisions.Shared.PaperSize.DefaultPaperSize

8：如果你想一个打印机多个自定义纸张那么用API吧动态改变打印机的默认纸张，根据以上拐2弯就能实现了遗憾的是网络打印机的话就没折了。o(︶︿︶)o 唉

如何用VB.NET做水晶报表?

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