我没有做过,但我想是不是这样:
首先根据打印机页面设置计算出一个数值prPageHigh,
然后逐行获取Richedit1的每行字体最大高度值的字符所用字体,根据这个字体在Windows中查到其高度值reFontHigh[行数],
reFontHigh[0]+reFontHigh[1]...>=prPageHigh时这一页就到未尾了。
当然还得记算上页脚等占去的高度.