大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net报表源码 vb源码下载

VB.Net2008,我需要将一个textbox里面的内容导入到execl的一个表格中,希望大虾们能给我一个简答的源代码。

非常简单,我给你段源码,你自己看着修改,注释也给你标清楚了。

创新互联专注于湘潭网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供湘潭营销型网站建设,湘潭网站制作、湘潭网页设计、湘潭网站官网定制、微信小程序服务,打造湘潭网络公司原创品牌,更为您提供湘潭网站排名全网营销落地服务。

Dim TempPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop) "\月报表" Format(Now, "yyyy年MM月dd日") ".xls" ‘这个是设置EXCEL的文件路径,我这个是默认桌面

Dim MyExcel As New Microsoft.Office.Interop.Excel.Application() ‘实例化EXCEL

MyExcel.Application.Workbooks.Open(TempPath)’打开EXCEL

MyExcel.Visible = True '是否显示打开的EXCEL,我这个是显示

MyExcel.Cells(4, 1) = textbox1.text ‘将textbox1的内容写入到EXCEL的第4行第1列,以下相同

MyExcel.Cells(4, 2) = textbox2.text

MyExcel.Cells(4, 3) = textbox3.text

MyExcel.Cells(4, 4) = textbox4.text

如何用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

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报表源码 vb源码下载
转载来源:http://dzwzjz.com/article/docpici.html
在线咨询
服务热线
服务热线:028-86922220
TOP