没有特别简单的办法。
一个办法是利用ListViewListItems集合遍历所有的数据,并输出至打印机。如:
Dim i, j
For i = 1 To ListView1ListItemsCount
PrinterPrint ListView1ListItems(i),
For j = 1 To ListView1ColumnHeadersCount - 1
PrinterPrint ListView1ListItems(i)SubItems(j),
Next
PrinterPrint
Next
另一个办法是遍历数据的同时,将数据输出到一个临时数据库文件,然后利用报表控件输出。
1、在窗体中用Picture 控件做为数据库中字段的呈现控件
PictureDataSource =数据控件 (如:Data)
PictureDataField =字段名
2、直接打印
PrinterPaintPicture Picture, 0, 0
PrinterEndDoc
这样就直接打印出了
PrinterPaintPicture 命令参数可以自己设置,确定的打印位置(x,y坐标)及是否缩放
sql="select from biao where 名字 ='张三'"
rsopen sql,cn
printerprint rs("序号"),rs("名字"),rs("性别"),rs("学号"),rs("座位号")
rsclose
你都没有给出完整都代码,我怎么给你完整呢?
你用什么连接数据库的我都不知道呢 ,还有你要输出什么样都格式
一般情况下先用EXCEL做好一个样表文件,设定好打印区域和样式,需要填内容的时候,先程序复制一个样表文件,然后调用API打开表格填写内容并打印,如果想用API来实现调整模板和打印预览,可能比较困难,而且很抽象,个人觉得费时费力效果还不一定理想
单击打印按钮通过设计器打印报表,据我所知,FineReport报表工具有这个功能。至于链接打印是什么意思?如果有这两张报表,用FineReport报表工具既可通过设计器分别打印,也可通过浏览器分别打印。
以上就是关于VB中如何打印listview内的数据全部的内容,包括:VB中如何打印listview内的数据、如何用VB打印数据库中的图片、VB 怎样打印数据库中指定的内容等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)