<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.9.32" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="38990.8357143287" ReportOptions.Description.Text="Demonstrates how to print several copies of report where each copy should have a name. To do this:&#13;&#10;&#13;&#10;- put a memo object with [CopyName#] text inside. It will show a copy name;&#13;&#10;&#13;&#10;- go &#34;Code&#34; tab and write a simple script that will give names to each copy. You can also do this in Delphi code;&#13;&#10;&#13;&#10;- print a report. " ReportOptions.LastChange="40617.4757208912" ScriptLanguage="PascalScript" ScriptText.Text="procedure Memo3OnAfterData(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Week : Integer;                                                 &#13;&#10;begin&#13;&#10;  &#13;&#10;  Week := DayOfWeek(Date);&#13;&#10;  if Week = 1 then&#13;&#10;     Memo3.Memo.Text := '星期日'&#13;&#10;  else if Week = 2 then&#13;&#10;     Memo3.Memo.Text := '星期一'                                                                                     &#13;&#10;  else if Week = 3 then&#13;&#10;     Memo3.Memo.Text := '星期二'                                                                                     &#13;&#10;  else if Week = 4 then&#13;&#10;     Memo3.Memo.Text := '星期三'                                                                                     &#13;&#10;  else if Week = 5 then&#13;&#10;     Memo3.Memo.Text := '星期四'                                                                                     &#13;&#10;  else if Week = 6 then&#13;&#10;     Memo3.Memo.Text := '星期五'                                                                                     &#13;&#10;  else if Week = 7 then&#13;&#10;     Memo3.Memo.Text := '星期六';                                                                                       &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;  frxGlobalVariables['CopyName0'] := '';             // copy viewed in the preview&#13;&#10;  frxGlobalVariables['CopyName1'] := 'First copy';   // 1st printed/exported copy&#13;&#10;  frxGlobalVariables['CopyName2'] := 'Second copy';  // 2nd printed copy&#13;&#10;  frxGlobalVariables['CopyName3'] := 'Third copy';   // 3rd printed copy&#13;&#10;end." PropData="044C656674025803546F700370010844617461736574730100095661726961626C65730100055374796C650100">
  <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
  <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
    <TfrxMemoView Name="Memo1" Left="37.7953" Top="37.7953" Width="340.1577" Height="75.5906" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="-2147483640" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Print several copies of this report (set copies in the print dialog). You will see that every copy has its own name printed on the top right corner."/>
    <TfrxMemoView Name="Memo2" Left="529.1342" Top="0" Width="188.9765" Height="18.89765" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[CopyName#]"/>
    <TfrxMemoView Name="Memo3" Left="75" Top="158" Width="153.48825" Height="18.89765" OnAfterData="Memo3OnAfterData" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text=""/>
  </TfrxReportPage>
</TfrxReport>
