103.fr3

这个是功能强大的报表软件

<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.0a" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.DoubleBuffered="False" PreviewOptions.Zoom="1" PrintOptions.PagesOnSheet="0" 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="38990,8528054398" ScriptLanguage="PascalScript" ScriptText.Text="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="044C65667403AC0003546F700378010844617461736574730100095661726961626C65730100055374796C650100">
  <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" 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" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[CopyName#]"/>
  </TfrxReportPage>
</TfrxReport>