report with copies

Thomas Zeimke

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

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

Thomas Zeimke

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

gordk

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

gpi

Try to use TfrxReport.OnPrintPage event

Thomas Zeimke

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

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

Thomas Zeimke

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

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;