Question

delphi 使用printer实现richedit的精确打印

RichEdit的文字如何实现所见即所得的精确打印。比如说程序运行时richedit文字显示一行半（第二行文字只显示了上半部分），用drawtext打印出来的效果往往是完整两行，不是我的打印区域Trect设置大了，而是打印出来的文字行距跟richedit显示的不一样，用canvas.textheight()将打印画布的文字高度设置成richedit的高度也不行。求指导啊

Answer 1

水印也是图片，这涉及到图层问题，richedit不知能否进行图片插入和图层操作，要想文本效果如同WORD一样，richedit是做不到的，比如它的字间距就无法解决，要想打印效果如同WORD，只能使用DELPHI的CANVSE类了，richedit用于长文本编辑和一般浏览倒可以，用于艺术性较高的文图排版只能借助CANVSE类了.或者将文本或图片导出到WORD.

追问

我需要打印的richedit只有文字，没有图片。我尝试过先将richedit的文字写入image的canvas里面，再打印image，这样打印的文字高度、行距倒是对了，但是打印出来的文字糊掉了，效果不好，达不到我的系统要求。我现在要解决的问题是怎样直接将richedit的文字写到printer的canvas上面，而且保持效果跟我所看到的程序运行richedit上面显示的一样

Answer 2

要取得打印时字体的宽度高度，计算打印区域，得到每行打印字数，然后再打印

Answer 3

抓图，把图片打印出来即可