我是使用下面的方法：
所有的输出方式都是采用图形， 直接在printers.canvas上画，即
moveto();
lineto();
testout();
要记住几个全局的变量， 如pageWidth, pageHeight，因为这些参数在不同的打印
机上是不同的。在定义一个变量LineWidth，记录每行的高度，比如一张A4的纸张，
你应该知道要打印多少行(TotalLine)， 每行的高度就是LineHeight :=
pagewidth / TotalLine，然后，每行就是textout(0, i* LineHeight, '').
-----上面仅说明每一个参数都是计算出来的，千万不要使用确定的数字。这种方法
实现起来很麻烦，但是能够根本地解决问题。
