如何在delphi中实现分页打印？（分不够再加啊）

Question

现在想把查询的记录（包括图片）画在画布Canvas然后输出到打印机，但是现在画布的高度不知道怎么确定好。现在的高度通过 height:=round(printer.PageHeight*width / printer.PageWidth)给定，但是查询的内容长度无法预先确定，假设现在有50跳记录，前30跳记录能够显示，后面的就显示不了。请问一下大家这种通过画的方式如何实现分页啊？
   由于要打印图片等，不知道qreport或者fastreport可以吗？

Answer 1

谢谢楼上兄弟。现在决定用QR了，但是现在又出现了分栏的问题。这个分数不够，另开一贴了。请兄弟继续关注，好吗？