Можно ли добавить текст (например, водяной знак) в уже сформированные страницы?

Question

Accepted Answer

Можно добавить текст как в превью в событии TfrxReport.OnEndDoc

procedure TForm1.frxReport1EndDoc(Sender: TObject); 
var p: TfrxReportPage; 
m: TfrxMemoView; 
i: integer; 
begin 
frxReport1.Preview.Lock; 
for i := 0 to frxReport1.PreviewPages.Count - 1 do 
begin 
p:=TfrxReportPage(frxReport1.PreviewPages.Page[i]); 
m:=TfrxMemoView.Create(p); 
m.CreateUniqueName; 
m.SetBounds(0, 0, (p.PaperWidth - p.RightMargin - p.LeftMargin) * fr01cm, (p.PaperHeight - p.TopMargin - p.BottomMargin) * fr01cm); 
m.Text := 'Demo'; 
m.Rotation := 45; 
m.Font.Size := 128; 
m.VAlign := vaCenter; 
m.HAlign := haCenter; 
frxReport1.PreviewPages.ModifyPage(i,p); 
end; 
frxReport1.Preview.UnLock; 
end; //так и перед непосредственной печатью страницы в событии TfrxReport.OnPrintPage procedure TForm1.frxReport1PrintPage(Page: TfrxReportPage; CopyNo: Integer); var m: TfrxMemoView; begin m:=TfrxMemoView.Create(page); m.CreateUniqueName; m.SetBounds(0, 0, (page.PaperWidth - page.RightMargin - page.LeftMargin) * fr01cm, (page.PaperHeight - page.TopMargin - page.BottomMargin) * fr01cm); m.Text := 'Demo'; m.Rotation := 45; m.Font.Size := 128; m.VAlign := vaCenter; m.HAlign := haCenter; end;