I want to create a letter and if it gets an attachment, I want to make a footer with the text "Attachment" but only on the end of the letter. The following pages shall not have a footer.
Code: Select all
procedure AddOOAppendTxt( OO: T_OO; Fil: String; Err: T_Error );
var
L: Variant;
begin
OO.Cur.gotoEnd( False );
OO.Cur.goRight(1, False);
OO.Cur.BreakType := PAGE_AFTER;
L:= OO.Fil.StyleFamilies.getByName('PageStyles').getByName('First Page');
OO.Cur.ParaStyle := L;
OO.Fil.Text.insertControlCharacter( OO.Cur, PARAGRAPH_BREAK, False );
InsOONewPag( OO, Err );
OOInsertDoc( OO, Fil, Err );
end;
Thank you for trying to help and greetings from a sunny north see.
Peter