| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1381 人关注过本帖, 1 人收藏
标题:什么表格控件适合打印?
只看楼主 加入收藏
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
结帖率:70%
收藏(1)
已结贴  问题点数:20 回复次数:3 
什么表格控件适合打印?
我想把excel表格几列数据提取出来,然后在窗体上显示,每行数据前有复选框,把勾选的数据打印在打印纸的格子里,什么表格控件适合显示数据又能打印?
搜索更多相关主题的帖子: 表格 控件 打印 数据 显示 
2018-05-01 22:43
wufuzhang
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:贵宾
威 望:21
帖 子:206
专家分:1346
注 册:2017-8-9
收藏
得分:20 
试试VSFlexGrid控件(注册并添加VSFlex8.ocx文件)

不经历千百遍的调试,怎能体会成功时那一刹那的喜悦。
2018-05-03 15:11
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
收藏
得分:0 
'打印时以左上角为原点,向右和向下为正,反向为负
'字号为10号
Printer.FontSize=10
'打印机的横坐标
Printer.CurrentX = 0
'打印机的纵坐标
Printer.CurrentY = 0
'设定打印机是横向打印还是纵向打印,1:纵向;2:横向
Printer.Orientation = 1
'打印内容
Printer.Print ""
For i=1 To lvwPub.ListItems.Count
    '打印ListView中每一行中每列的内容
    '在打印每一列前先设定打印位置(坐标)
    '打印机的横坐标
    Printer.CurrentX = 0
    '打印机的纵坐标
    Printer.CurrentY = 0+i*5  '*5中的5为每行的高度
    'ListView中每一行中第0列的内容
    Printer.Print lvwPub.ListItems(i)
    '打印机的横坐标
    Printer.CurrentX = 10
    '打印机的纵坐标
    Printer.CurrentY = 0+i*5
    'ListView中每一行中第1列的内容
    Printer.Print lvwPub.ListItems(i).SubItems(1)
    '打印机的横坐标
    Printer.CurrentX = 20
    '打印机的纵坐标
    Printer.CurrentY = 0+i*5
    'ListView中每一行中第2列的内容
    Printer.Print lvwPub.ListItems(i).SubItems(2)
    '打印机的横坐标
    Printer.CurrentX = 30
    '打印机的纵坐标
    Printer.CurrentY = 0+i*5
    'ListView中每一行中第3列的内容
    Printer.Print lvwPub.ListItems(i).SubItems(3)
Next
'打印内容处理完毕,打印机打开始打印
Printer.EndDoc
没有打印机可以用Snagit软件,它是一个截图软件,可以代替打印机使用,打印的内容会以图片的形式显示再来
2018-05-09 23:18
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
收藏
得分:0 
一个办法是利用ListView.ListItems集合遍历所有的数据,并输出至打印机。如:
Dim i, j
For i = 1 To ListView1.ListItems.Count
Printer.Print ListView1.ListItems(i),
For j = 1 To ListView1.ColumnHeaders.Count - 1
Printer.Print ListView1.ListItems(i).SubItems(j),
Next
Printer.Print
Next
另一个办法是遍历数据的同时,将数据输出到一个临时数据库文件,然后利用报表控件输出。
2018-05-09 23:27
快速回复:什么表格控件适合打印?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015352 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved