首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

用vb编程实现以上效果的打印

2013-01-26 
用vb编程实现以下效果的打印。公司发工资是按部门发的,工资不高不需要保密,因此不发工资条,只需要本人签字

用vb编程实现以下效果的打印。
用vb编程实现以上效果的打印
公司发工资是按部门发的,工资不高不需要保密,因此不发工资条,只需要本人签字确认就行了。需要打印出以上格式的工资表分到各个部门。工资表按部门打印,每张打印十条记录,每张都得有求和汇总。部门不足十人的剩余打印空行。

[解决办法]
那就使用printer对象,使用代码控制打印
[解决办法]

引用:
多谢worldy,我是vb初学者,printer对象还没接触过呢,可否详细指点一下呢?


printer对象上绘图和Form上画图完全相同,只是绘画范围有你指定的纸张决定
比如line print circle 等
[解决办法]
一页结束使用printer.EndDoc 开始一个新页
printer可以直接使用,是VB自带的,不需要定义
[解决办法]

With Printer
        Printer.Print "表头"
        Printer.Line (0, .CurrentY)-(Printer.ScaleWidth, .CurrentY)
        .CurrentY = .CurrentY + Printer.TextHeight("表头") '计算汉字"表头"的高度,并且重新定位当前位置
        .CurrentX = 100
        Printer.Print "张三"
        .PaintPicture Form1.Image, 0, .CurrentY '显示个图片...
        .NewPage '结束这一页,转到下一页
        
        Printer.Print "表头"
        Printer.Line (0, 100)-(Printer.ScaleWidth, 100)
        .CurrentY = .CurrentY + Printer.TextHeight("表头") '计算汉字"表头"的高度,并且重新定位当前位置
        .CurrentX = 100
        Printer.Print "李四"
        .PaintPicture Form1.Image, 0, .CurrentY '显示个图片...
        .EndDoc '结束,发送整个文档页面给打印机,开始打印
End With
        

热点排行