如何将查到的记录集，每条记录打印一张纸

[ningweidong]

vb6查询到一个数据集，里面有N条记录。
我想把它们打印出来，每条记录打印一张纸。我希望有一个打印按钮，一点打印，这些记录都打印出来，有几条记录就打印几张纸。
我想用excel打印，我不知道怎么给每条记录分页。
请问这个按钮的代码怎么写？
给个思路就可以了。

[dbcontrols]

用Word打印比较好，先设计个模板，然后每次打开，填数据，打印，关闭

[贝隆]

1、创建一个Excel模板，设置好打印属性（一条记录一个页面）
2、复制模板，生成一个新的Excel文件，将查询得来的记录一条一条的写入新的Excel文件，写入的时候注意每个记录写在不同的页面。
3、使用Excel对象的PrintOut发送打印命令。

我经常这么干。。。

[王二.麻子]

在comnand_click里面用printer对象，用它的print，nextpage，enddoc方法。
使用方法在msdn里面有，F2搜printer也差不多可以看懂的。

另外，printer可以返回纸张的大小，也可以设置打印字体，也可以返回一个打印行的高度。

[chinaboyzyq]

用printer对象
printer.newpage换页。


excel中20行下添加颁分页符：
Sheet1.HPageBreaks.Add Sheet1.Cells(21, 1)