report with copies

Thomas Zeimke · November 2014

Hello, i have a special Problem:

If i print a Report and the Report has copies (normal 4) then i need a different colored thicker Line on the left (Memo?) on each Report copy.

1 = original no color
2 = copy 1 = Color Blue
3 = copy 2 = Color Red
4 = copy 3 = Color Yellow

i tried width copyname# and it shows the right number of copy but the following doesn't work:

Â Â if (Trim(<CopyName#>) = '0') or (Trim(<CopyName#>) = '1') then begin
Â Â Â Â MemoKopienMarkierung.Color := clNone;Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 
Â Â endÂ Â Â Â Â Â Â Â Â Â Â Â Â Â 
Â Â else if Trim(<CopyName#>) = '2' then begin
Â Â Â Â MemoKopienMarkierung.Color := clBlue;
Â Â endÂ Â Â Â Â Â Â Â Â Â Â Â Â Â 
Â Â else if Trim(<CopyName#>) = '3' then begin
Â Â Â Â MemoKopienMarkierung.Color := clRed;Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 
Â Â endÂ Â Â Â Â Â Â Â Â Â Â Â Â Â 
Â Â else if Trim(<CopyName#>) = '4' then begin
Â Â Â Â MemoKopienMarkierung.Color := clYellow;Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 
Â Â end;

gordk · November 2014

it is too late to modify the output of the report memo;s properties.

Thomas Zeimke · November 2014

I've thought of me, but how can i do what i need?

gordk · November 2014

this will depend upon wether or not you are printing from the preview window or handling from code without previewing.

gpi · November 2014

Try to use TfrxReport.OnPrintPage event

Thomas Zeimke · November 2014

gordk wrote: »

this will depend upon wether or not you are printing from the preview window or handling from code without previewing.

I'm printing from the preview window, but if it works ill do it without showing!

gpi · November 2014

You may change page's content depend of CopyName value in the TfrxReport.OnPrintPage event

Thomas Zeimke · November 2014

gpi wrote: »

You may change page's content depend of CopyName value in the TfrxReport.OnPrintPage event

Thanks, but i can't find any example. Can you give me an example how can i do that?

Thomas Zeimke · November 2014

This works for me. Thanks a lot for ehlping!

procedure TDlg_Rechnung.frxReportVorschauPrintPage(Page: TfrxReportPage;
  CopyNo: Integer);
var MyMemoView : TFrxMemoView;
begin
  inherited;
  MyMemoView := TfrxMemoView(Page.FindObject('KopienMarkierung'));
  if MyMemoView <> nil then begin
    MyMemoView.Text := '';
    if (CopyNo = 0) or (copyNo = 1) then MyMemoView.Color := clNone
    else if CopyNo = 2 then MyMemoView.Color := clBlue
    else if CopyNo = 3 then MyMemoView.Color := clRed
    else if CopyNo = 4 then MyMemoView.Color := clYellow;
  end;
end;

report with copies

Comments

Leave a Comment