Delphi,Rxlib,RxRichEdit,Richedit 高版本，Rich Text Edit Control, v4.1 控件，打印Bug

最新推荐文章于 2022-01-13 11:46:08 发布

dianxunzhang1095

最新推荐文章于 2022-01-13 11:46:08 发布

阅读量698

点赞数

原文链接：http://www.cnblogs.com/apple1/archive/2010/07/01/1769400.html

版权

本文介绍了在Delphi中使用RxLib的RxRichEdit控件时遇到的打印问题，并提供了解决方案。RxRichEdit是封装的高版本RichEdit控件，支持插入表格和图片，但存在查找替换、中文支持和打印等问题。文章分享了从外部来源获取的修复打印问题的代码，并探讨了使用高版本RichEdit控件的原因。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我们知道 RichEdit 是M$提供的标准控件，delphi的vcl里面是很老的版本，而rxlib的有最新的4.1的封装

但是bug很多，比如查找替换，中文支持，打印等等，下面代码就是解决的打印问题，来自国外某网站，

自己根据情况，有调整

Why? ---为什么使用这个高版本呢？这个版本的RTF控件，支持插入表格（当然是用接口罗),支持从word粘贴表格

不变形，插入图片很方便，那么还有什么理由拒绝呢？

代码

// 打印rxrichedit
// 可以设置左边，上边距，单位inch
// eg:
//   printrxrichedit(editor, 0.5 , 0.5 );

unit uPrintRxRichEdit;

interface

uses Windows,messages,RxRichEd ,RichEdit,printers,math;

type
  TPageOffset = record
    mStart,
      mEnd: Integer;
    rendRect: TRect;
   end ;

// 打印rxrichedit
function printRxRichEdit(editor:TRxRichEdit;leftoffset,topoffset:double):integer;


implementation

// 打印rxrichedit ，返回值是页数
function printRxRichEdit(editor:TRxRichEdit;leftoffset,topoffset:double):integer;
var
  wPage, hPage, xPPI, yPPI, wTwips, hTwips: integer;
  pageRect, rendRect: TRect;
  po: TPageOffset;
  fr: TFormatRange;
  lastOffset, currPage, pageCount: integer;
  xOffset, yOffset: integer;
  FPageOffsets: array of TPageOffset;
  TextLenEx: TGetTextLengthEx;
  firstPage: boolean;
begin
   // First, get the size of a printed page in printer device units
  wPage : = GetDeviceCaps(Printer.Handle, PHYSICALWIDTH);
  hPage : = GetDeviceCaps(Printer.Handle, PHYSICALHEIGHT);
   // Next, get the device units per inch for the printer
  xPPI : = GetDeviceCaps(Printer.Handle, LOGPIXELSX);
  yPPI : = GetDeviceCaps(Printer.Handle, LOGPIXELSY);
   // Convert the page size from device units to twips
  wTwips : = MulDiv(wPage, 1440 , xPPI);
  hTwips : = MulDiv(hPage, 1440 , yPPI);
   // Save the page size in twips
   with pageRect do
   begin
    Left : = 0 ;
    Top : = 0 ;
    Right : = wTwips;
    Bottom : = hTwi