如何实现换列打印？(100分)

如下表
字段1 字段2
1 a
2 b
..
..
20 ab
... ...
100 aad
想节省打印纸，当到每页底时，另起两列显示数据，如下（假设一页可打20行）：
--------------------------------（打印第一页）
字段1 字段2 字段1 字段2
1 a 21 dd
2 b 22 de
.. .. .. ...
.. .. .. ..
20 . ab 40 dd
--------------------------------（打印第二页）
字段1 字段2 字段1 字段2
41 a 61 dd
42 b 62 de
.. .. .. ..
.. .. .. ..
60 . ab 80 dd
-------------------------------（第三页）
。。。。。。。。。。。。。
。。。。。。。。。。。。。
怎办？？
（最好可以有控件直接打印DBGrid，又能实现以上功能）

to mlzhou:
装了fastreport，好像没有frpage整个控件阿？

delphi 自带的quickreport就可以了，属性page的columns值设置为2

用fastreport 他的page中的columns属性设为2

错了。不好意思。是page的columns属性。
（在页面上按f11,会出现对象查看器）
quickreport也也有这个属性，不过我个人认为quickreport作报表不好

请问有没有直接打印DBGRID又可设置Colums属性的控件？

>>请问有没有直接打印DBGRID又可设置Colums属性的控件？
DBGRID和quickreport用相同的 数据源 不就得了？
然后再设置quickreport的columns值为2 ， 就可以了。

这个我可不清楚，ehlib可以直接打印DBGRID，但是好象不能设置多列

多人接受答案了。

谢谢！