Re: Page header and footer

Return to index

Author

Message

Vanea

Posted: 12/19/2002 18:04:31

"Yernar" <yernar@mail.ru> wrote:

>

>(written by Sergey)

>

>RichView1.Clear;

>RichView2.Clear;

>RichView1.RTFReadProperties.SetHeader(RichView2.RVData);

>RichView1.LoadRTF('test.rtf');

>RichView1.Format; // contains document

>RichView2.Format; // contains header

>if RichView1.RTFReadProperties.HeaderYMM>=0 then begin

>  RVPrint1.HeaderYMM := RichView1.RTFReadProperties.HeaderYMM;

>  RVPrint1.SetHeader(RichView2.RVData);

>  end

>else

>  RVPrint1.SetHeader(nil);

>RVPrint1.AssignSource(RichView1);

>RVPrint1.FormatPages(rvdoAll);

>RVPrint1.Print('Doc with header', 1, False);

>

my compiler says

UNDECLARED IDENTIFIER SetHeader