用vb编程实现以下效果的打印。
公司发工资是按部门发的,工资不高不需要保密,因此不发工资条,只需要本人签字确认就行了。需要打印出以上格式的工资表分到各个部门。工资表按部门打印,每张打印十条记录,每张都得有求和汇总。部门不足十人的剩余打印空行。
[解决办法]
那就使用printer对象,使用代码控制打印
[解决办法]
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