Need Help - FR print multiple copies

Comments

• gpi

  October 2012 edited 5:40PM

  Use CopyName# report variable
• James Chai

  October 2012 edited 5:40PM

  gpi wrote: »

  Use CopyName# report variable

  
  Hi, I have just tried, but it seem doesn't works
  
  procedure mmWaterMark1OnBeforePrint(Sender: TfrxComponent);
  begin
  if <CopyName#> = 1 then mmWaterMark1.Text := 'ORIGINAL';
  if <CopyName#> = 2 then mmWaterMark1.Text := 'DUPLICATE';
  if <CopyName#> = 3 then mmWaterMark1.Text := 'COPY';
  end;
• gpi

  October 2012 edited 5:40PM

  See FRDemo:
  
  - put a memo object with [CopyName#] text inside. It will show a copy name;
  
  - go "Code" tab and write a simple script that will give names to each copy.
  

  begin
    frxGlobalVariables['CopyName0'] := '';             // copy viewed in the preview
    frxGlobalVariables['CopyName1'] := 'First copy';   // 1st printed/exported copy
    frxGlobalVariables['CopyName2'] := 'Second copy';  // 2nd printed copy
    frxGlobalVariables['CopyName3'] := 'Third copy';   // 3rd printed copy
  end.
  

  
  You can also do this in Delphi code;
• James Chai

  October 2012 edited 5:40PM

  gpi wrote: »

  See FRDemo:
  
  - put a memo object with [CopyName#] text inside. It will show a copy name;
  
  - go "Code" tab and write a simple script that will give names to each copy.
  

  begin
    frxGlobalVariables['CopyName0'] := '';             // copy viewed in the preview
    frxGlobalVariables['CopyName1'] := 'First copy';   // 1st printed/exported copy
    frxGlobalVariables['CopyName2'] := 'Second copy';  // 2nd printed copy
    frxGlobalVariables['CopyName3'] := 'Third copy';   // 3rd printed copy
  end.
  

  
  You can also do this in Delphi code;

  
  It is now working, thank you so much!