TRichView / TSRVRichView

Code like this can be used to export the pages from the RichView VCL.

  WPPDFPrinter1.BeginDoc;

  try

    for I := PageF to PageT do

    begin

      WPPDFPrinter1.StartPage(

         Round(RichView1.PageProperty.PageWidth), 

         Round(RichView1.PageProperty.PageHeight), 

         Res, Res, 0);

      RichView1.DrawPage(I, 

         Round(RichView1.PageProperty.PageWidth), 

         Round(RichView1.PageProperty.PageHeight), 

        0, 0, WPPDFPrinter1.Canvas, False, False, False);

      pdf.EndPage;

    end;

  finally

    WPPDFPrinter1.EndDoc;

  end;