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

Question

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

Answer 1

那就使用printer对象，使用代码控制打印

Answer 2

多谢worldy，我是vb初学者，printer对象还没接触过呢，可否详细指点一下呢？

Answer 3

printer对象上绘图和Form上画图完全相同，只是绘画范围有你指定的纸张决定
比如line print circle 等

Answer 4

一页结束使用printer.EndDoc 开始一个新页
printer可以直接使用，是VB自带的，不需要定义

Answer 5

我的想法是用excel设计好表格 。
在vb中调用excel对象，然后用程序逐个计算好了输入到excel表中，然后生成并保存打印表格。10个一轮回。
我用word进行文书打印时就是这样。设计word表格时在每个需要输入的地方插一个标签，vb工作后，在每个需要输入的标签处插入所需要的内容，然后保存并打印。再循环进行。

Answer 6

用excel设计表格。调用excel对象。

Answer 7

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
        

Answer 8

谢谢spt_petrolor，我好好学习一下。补充补充知识，用这种方法应该能实现。