How to draw TSRichViewEdit content to Printer's canvas?

[wolf1860]

I need print the content with 3 columns on paper A3. And I want to draw 2 lines to seperate the content.But I do not know how to set the printer's paper,such as the width/height parameter. The paper size is according to the TSrichViewEdit's page properties.

Code: Select all

srveP.DrawPage((i - 1) * 3 + 1, srveP.PageWidth100Pix, srveP.PageHeight100Pix, 0, 0, Printer.Canvas, True,
          False, False, False, False, True);

The code before do not work correctly. the content is too small.Please give me some demo.