Re: How to set the PageMargins when using the TOfficeConverter to convert the TRichview to Word(*.DOC) File format?

Author

Message

Sergey Tkachenko

Posted: 02/19/2004 22:48:40

You need to process OnSaveRTFExtra event of TRichView:

procedure TForm3.RichViewEdit1SaveRTFExtra(Sender: TCustomRichView;

Area: TRVRTFSaveArea; Obj: TObject; Index1, Index2: Integer;

InStyleSheet: Boolean; var RTFCode: String);

begin

if Area=rv_rtfs_Doc then

RTFCode := Format('\margl%d\margt%d\margr%d\margb%d',

[2000, 1000, 1000, 1000]);

end;

Values of RTF margins are measured in "twips".

20 twips = 1 point (measure unit for fonts)

72 points = 1 inch

1440 twips = 1 inch