锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net预览打印报表 vba调用打印预览和打印

IT技术设置

我的vb.net中没有CrystalReport控件怎么打印报表啊?不会吧vb.net预览打印报表，在vb.net工程中vb.net预览打印报表，选择新项目vb.net预览打印报表的追加，在实用程序的选项中，可看到有CrystalReport的选项 。
它和VB不同，VB用的是控件 。
vb.net预览打印报表你最好，上网或去书店看一看有关vb.net的报表设计 。
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 打印功能可以把数据导出到EXCELvb.net预览打印报表 ， 然后使用EXCEL进一步处理后使用 。
也可以做成vb报表(VB自带有) 。
先设置报表格式，打印时向报表传递数据就可以vb.net预览打印报表了 。
VB.NET怎么实现打印功能啊 呜呜（利用 printdocument控件
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
PrintDocument1.Print()
End Sub
Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim stringFont As New Font("Arial", 16)
【vb.net预览打印报表 vba调用打印预览和打印】Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)
Dim strFormat As New StringFormat
Dim s As String
s = "print word"'打印的内容
e.Graphics.DrawString(s, stringFont, Brushes.AliceBlue, rectDraw, strFormat)
End Sub
vb.net获取excel页面高度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=https://www.04ip.com/post/100 此语句使Excel当前工作表的第一行第四列,即D1单元格等于100, 也可以这样写: myexcel.Range(“D1”).value=100

推荐阅读


上一篇：java图形界面代码，java图形界面编程

下一篇：chatGPT国内镜像APP，chatGPT国内镜像违法吗