As I said, you need only 3 lines of code to print TRichViewEdit:
Code: Select all
RVPrint1.AssignSource(RichViewEdit1);
RVPrint1.FormatPages(rvdoAll);
RVPrint1.Print('My document', 1, False);
Code: Select all
RVPrint1.AssignSource(RichViewEdit1);
RVPrint1.FormatPages(rvdoAll);
RVPrint1.Print('My document', 1, False);
Code: Select all
var
rve: TCustomRichViewEdit;
rve := RichViewEdit1.TopLevelEditor;
Alignment := rve.Style.ParaStyles[rve.GetItemPara(rve.CurItemNo)].Alignment;
Code: Select all
RichViewEdit1.TopLevelEditor.MoveCaret(rvcmBottom);