fastreport是一款非常专业的报表分析软件。fastreport适用于windows系统里asp、mvc等框架，能够将财务报表直接添加到pdf文件中，方便用户创建独立于程序外报表，做为单独财务报表工具使用。fastreport特色说明：1、FastReport.Net以C#语言编写而成并只包含可托管的代码。它与.NETFramework2.0以及更高版本兼容，但不支持.NETFramework1.x的版本。2、能提供完整的源代码。您能自定义您的FastReport.Net版本以满足您的需求。3、合理的价格与授权规则。4、可扩展的FastReport.Net破解版结构能让您创建属于自己的对象、导出过滤程序、向导以及DB引擎。如果现有的功能不能满足您的需求，请将它扩展以满足需求!5、容量小、速度快!6、支持导入和导出RDL格式和导入水晶报表的图表。fastreport功能介绍：1、丰富的报表元素FastReport.Net2017.3支持在报表中添加文本、图像、线条、形状、语句、条形码、矩阵、表格、RTF、选择框等，列表报表、分组报表、主从报表、多列报表，子报表轻松搞定，功能强大的表对象和Matrix对象，让您创建复杂多行多列报表如EXCEL一样简单。2、强大的可视化设计器FastReport.Net2017.3支持缩放，缓冲撤销/重做，引导线，自定义规则等特色功能，同时为您的终端用户提供一个报表设计器，让您的用户可以方便的修改现有报表和创建自定义报表。其灵活的报表框架，标准的报表向导和标签报表向导，能够帮助开发设计人员方便快速的完成报表创建，报表开发人员甚至可以通过其多文档界面(MDI)同时制作多个报表，报表开发效率极高。3、方便的报表打印与输出FastReport.Net2017.3支持在报表预览状态中进行搜索与修改报表，报表预览中的导航与丰富的交互。支持打印设置和添加水印，实现多种文件格式导出与报表EMAIL发送，与ASP.NET的程序完美兼容。4、多数据源支持FastReport.Net2017.3支持所有ADO.NET相关的数据源，支持对数据行进行排序筛选和使用数据主从关系。支持直接连接到ADO，MSSQL和基于XML的数据库。并且内置C#和VB.NET的脚本引擎。方便的采用对话框的形式完成用户交互操作。完全实现SQL的可视化查询与生成。fastreport使用说明：1、您能连接到任何数据库，然后使用数据库里所有的表格或创建请求;2、您能将会话表添加到您的报表中以在运行报表前请求某些参数;3、通过使用内置脚本，您能管理会话表控制组件之间的交互，还能运行复杂的数据处理功能;4、最后您能查看结果、打印结果并能将结果导出到大部分常用的文档格式中。

更多相关介绍

FastReport是功能齐全的报表控件，使开发者可以快速并高效地为·NET/VCL/COM/ActiveX应用程序添加报表支持。

fastreport发展历程

成立于1998年，FastReports,Inc.开发了快速报表软件：应用程序、库和插件。
FastReports,Inc.公司的旗舰产品—FastReport，由于其独特的编程原则成为了Delphi平台最优秀的报表控件。对于如此年轻的企业来说这是巨大的成功。FastReportVCL版本在2001年荣获Delphi人最受欢迎类的读者杂志“最佳报表控件”第二名。
FastReport的报表生成器（无论VCL平台还是.NET平台），跨平台的多语言脚本引擎FastScript，桌面OLAPFastCube，如今都被世界各地的开发者所认可，这些名字被等价于“速度”、“可靠”和“品质”。
FastReports公司是国际型的报表控件开发商，在美国，欧洲和非洲不同国家均设有办事处。FastReports网站有10种不同语言的介绍，FastReports报表拥有40种语言的本地化的信息。
FastReports拥有50多个国家的经销商和合作伙伴，20,000多个来自世界各地的客户。

fastreport产品

FASTREPORT.NET
一款功能齐全的报表分析解决方案。它适用于那些使用MicrosoftVisualStudio2005/2008/2010，DelphiPrizm开发工具的开发人员。2013版支持AJAX，云存储，地图编辑器和自定义标签。
FASTREPORTVCL
FastReportVCL是一种附加组件，它能使开发者能为应用程序快速有效地生成报表。FastReportVCL提供了创建报表所需的所有工具，包括报表引擎，报表设计工具，预览器，对话框设计工具，以及Pascal-like宏解释程序。
FASTREPORTforCOM/ActiveX
FASTREPORTforCOM/ActiveX为开发者的项目开发提供简单易用，快速和强大的报表解决方案。
FASTREPORT.MONO
FastReport.Mono是为MonoFramework设计的功能全面多平台的报表生成工具，它可以应用于Windows,Linux,MacOSX等。
FastCube2beta
FASTCUBE是一款适用于有效的数据分析的工具。FastCube是一套适用于Delphi/C++Builder/Lazarus的快速桌面OLAP控件。它能不用担心数据库的大小而创建多种报告与图表。

fastreport使用问题

开发WEB应用系统通常都会遇到报表打印问题。简单应用可利用IE的页面打印功能，利用HTML标签控制格式来实现。但复杂的业务型应用系统，报表不仅是组成应用的重要部分，还常常是相当复杂的。很多应用系统都要求提供。自定义报表的功能——即客户可以自行设计、修改报表。
在C/S结构系统中，报表问题有很多成熟的解决方法。如DELPHI开发工具不仅自带有报表控件，还可以利用第三方控件来实现快速灵活的报表制作和打印，其中有名的控件是FR-Software&A.Tzyganenko的FastReport。FastReport提供了能与DELPHI无缝集成的从设计到打印的完整控件包，提供的设计界面友好灵活，对于开发可让用户自定义报表的C/S应用来说，是一种很好的解决方式。
FastReport是非常强大的报表控件，相比QuickReport，ReportBuilder更加灵活，又非常小巧，速度快。VCL版本支持BorlandDelphi2-6andBorlandC++Builder1-6。CLX版本支持Delphi和Kylix。
[注:以下内容均来自互联网]
使用技巧篇
1.FastReport中如果访问报表中的对象？
可以使用FindObject方法。
TfrxMemoView(frxReport1.FindObject('memo1')).Text:='FastReport';
2.FastReport中如何使用上下标？
设置frxmemoview.AllowHTMLTags:=True;在Text输入如下
上标：mm²
下表：k₆
举一反三，你还可以使用其他HTML标记。
3.FastReport中如何打印总页数？
设置两次报表后加入引号内内容"第[Page#]页共[TotalPages#]页"
4.FastReport中如何动态加入变量及变量组？
建立变量组名
frxreport1.Variables.Add.Name:=''+变量组名;
建立变量名
frxreport1.Variables.AddVariable('组名，如果为不存的组或空，则为默认组，这里不需要
空格',变量名,变量初始值);
例如要建立变量组Yuan,二个变量Yuan1,Yuan2，则为
frxreport1.Variables.Add.Name:='Yuan'注意前面是空格
frxreport1.Variables.AddVariable('Yuan',Yuan1,初始值)
frxreport1.Variables.AddVariable('Yuan',Yuan2,初始值)
5.FastReport中如何加入自定义函数？
Fastreport可以自己加入需要的函数，来实现特定的功能。过程就是：
1)添加函数到报表中。
frxreport1.AddFunction('完整的函数声明');
如有一个自定义函数，为GetName(Old:String):String;这个函数通过数据集的一个字段，得到另
一个返回值。
则语句为：frxreport1.AddFunction('FunctionGetName(Old:String):String;');
2)脚本中使用函数。
在脚本中或报表中使用自定义函数，就像使用其它Fastreport内置函数一样。
3)程序中处理函数。
使用函数是通过frxreport1的OnUserFunction函数来实现的。
OnUserFunction的声明如下：Function(constMethodName:String;varParams:Variant):
Variant;
比如上面的函数，首先要有一个函数，这个函数是GetName的实现部分。如有一个在程序中实现的
函数。
functionRealGetName(Old:String):String;这个函数名是无所谓的，也可以是GetName。
在OnUserFunction的事件处理中有如下代码即可完成自定义函数在报表中的使用。
ifCompareText(MethodName,'GetName')=0thenResult:=RealGetName(VarToStr(Params[0]));
我一般都是使用CompareText来比较函数名，因为我发现二个版本的Fastreport，一个是
MethodName全部自动变成了小写，一个是全部自动变成了大写，所以干脆用CompareText来比较，
肯定不会出错。
如果有多个参数，则依次传递Params[0],Params[1]即可，要保持顺序一致。
这里要注意一点，如果参数为指针，则不能直接使用Pointer(Integer(Params[0]))。因为实际传
递过来的是指针的整数值，可以使用Pointer(StrToInt(VarToStr(Params[0])))。
6.FastReport中如何共用TFrxreport及TfrxDBDataSet？
一个程序中，不管多么大的程序，只要打印或预览时是模式的，则完全可以共用一个TFrxreport
变量及几个TfrxDBDataSet。只不过，要注意完成一个报表程序的步骤，主要是下面几步
1)清除报表，得到一个全新的报表内容。
Frxreport1.clear。
2)设置要使用的TfrxDBDataSet的别名，如果不需要可以省略这一步，但一般最好不同的报表用不
同的别名。
注意这一步要在加载报表文件之前，因为一般设计报表文件时已经包含了别名信息。
frxDBDataSet1.UserName:=别名;
3)加载报表或动态建立一个TfrxReportPage。
Frxreport1.LoadFromFile(报表文件的完整文件名);
4)关联TfrxDBDataSet与TDataset，并设置要使用哪些TfrxDBDataSet。
Frxreport1.DataSets.Clear;//先清除原来的数据集
frxDBDataSet1.DataSet:=dataset1;//关联Fastreport的组件与TDataset数据集。
Frxreport1.DataSets.Add(frxDBDataSet1);//加载关联好的TfrxDBDataSet到报表中。
经过这几步后，就可以像单独使用一个Tfrxreport一样使用共用的报表组件了
7.FastReport中如何使用脚本，脚本中使用变量？
很多时候，我们希望把对报表的控制放到报表的脚本中，通常我这样做有二个原因：
1)能够根据字段内容的变化而使用不同的设置，因为如果想在程序中实现这样功能，就不得不用
自定义函数，函数的实现要放到程序中，函数可能需要传递很多参数，效率低下。
2)把不同报表的控制放到脚本中，可以实现报表的模块化，程序只是简单的设置数据集的关系，
并加载硬盘上的报表文件，不同报表的不同实现方式，显示方式，均放到报表文件中，程序简洁
，易维护，易升级。
当然，这样的缺点就是程序中加载报表时的数据集别名必须与设计报表时的别名一致。
脚本的使用与通常程序的使用并没有太多的区别，就是像正常的程序那样引用控件的名称即可。
但注意对变量的使用，需要把变量名或表达式用<>括起来。
实现打印分组的页数。基本的原理就是：
1）必须使用二遍报表，因为FS算总页数就是需要二遍报表的。
2）在第一遍报表中，在GroupBand打印前，动态的建立整数型数组变量，用以保存上一个分组的
总页数。
3）在最后一遍报表时，需要显示分组页数的Tfrxmemoview取得数组中的数据，但最后一个分组
不会有总数，可以通过总页数减去GroupBand事件中保存的页数来取得。
4）代码中处理了一页多组，及一组多页打印分组头的情况。可以看到这些特殊处理的代码说明
。
5）我特意在分组尾及页脚都用了Tfrxmemoview来显示这些数据，说明在不同情况下的显示。
8.FastReport中如何在脚本中根据字段名改变Tfrxmemoview的内容？
假设有数据表“用户”，字段ID为用户标识，Name为用户名，打印时要求，如果用户名为空，则
打印“无用户名”，否则打印出“用户名：实际的用户”，则可以在ID的Tfrxmemoview控件的
OnAfterData事件中写如下脚本。
if=''then
Memo2.Text:='无用户名'
else
Memo2.Text:='用户名：[frxDBDataSet1."Name"]'
Memo2是放置用户名称数据的Tfrxmemoview控件。
这里注意，要在脚本中访问变量需要把变量用<>包括起来。
9.FastReport中如何动态调整高度？
我经常使用下面的几个函数来实现Band及Tfrxmemoview高度的动态调整，需要注意的是：下面的
函数只能调整一个Band中多行的最后一行，如果只有一行（多数情况下应该是这样）就无所谓了
，而且这是在宽度已经固定的前提下。在想要调整高度的Band的OnBeforePrint事件中写
SetMemo(Sender);，代码如下，粘贴到代码页中就可以使用。
下面的代码也可以演变一些，实现动态宽度等。我多处都判断了Tag是否为7635,因为我经常需要
单独调用其中的某个函数。
//7635为保留数字，表示不作任何调整，通常用在多行的最上方
functionBiger(Old:Extended):Integer;
begin
Result:=Trunc(Old);
ifFrac(Old)>0then
Result:=Result+1;
end;
procedureJustHeight(Sender:TfrxComponent);
var
RealHeight:Integer;
begin
RealHeight:=Biger(TFrxMemoView(Sender).CalcHeight+TFrxMemoView(Sender).Top);
ifBiger(TfrxBand(Sender.Parent).Height)begin
//若MEMO的高度小于BAND但计算高度大于BAND，则在调整BAND的函数中就会被调整
TfrxBand(Sender.Parent).Height:=Biger(RealHeight);
JustBandHeight(Sender.Parent);
end
else
TfrxMemoView(Sender).Height:=TfrxBand(Sender.Parent).Height
-TfrxMemoView(Sender).Top;
end;
procedureJustBandHeight(Sender:TfrxComponent);
var
I:Integer;
begin
forI:=0toSender.Objects.Count-1do
ifTObject(Sender.Objects.Items[I])isTFrxMemoViewthen
ifTFrxMemoView(Sender.Objects.Items[I]).Tag=7635thenContinue
else
//如果小才改变，如果大则不能改变
ifBiger(TfrxMemoView(Sender.Objects.Items[I]).Height+
TfrxMemoView(Sender.Objects.Items[I]).Top)<>Biger(TfrxBand(Sender).Height)then
TfrxMemoView(Sender.Objects.Items[I]).Height:=
Biger(TfrxBand(Sender).Height-TfrxMemoView(Sender.Objects.Items[I]).Top);
end;
procedureJustMemo(Sender:TfrxComponent);
begin
ifnotEngine.FinalPassthenExit;
ifSender.Tag<>7635then
JustHeight(Sender);
end;
procedureSetMemo(Sender:TfrxComponent);
var
I:Integer;
begin
forI:=0toSender.Objects.Count-1do
ifTObject(Sender.Objects.Items[I])isTFrxMemoViewthen
ifTfrxMemoView(Sender.Objects.Items[I]).Tag<>7635then
TfrxMemoView(Sender.Objects.Items[I]).OnAfterData:='JustMemo';
end;
10.FastReport中如何实现套打？
纸张是连续的带锯齿的已经印刷好的，类似于通信公司发票这里设计的是客户销售记录。
客户有两个要求：
1、因为打印纸张是印刷的，明细记录只有8行，所以，如果明细记录如果不到8行，就将公司名称
、销售记录打印在上面，下一个公司的信息打印在下一页，而不能接在该页上（呵呵，是啊，如
果接在一起，那印刷单就失去意义了）
2、如果销售记录超过8行，则从第9行开始的销售记录打印在下一页（所谓下一页，其实就是锯齿
分割的下一*，称呼“下一份”比较妥切？），并且抬头（也就是公司名称）也要打上（如果不打
印抬头，撕下了后，可能弄混淆了，不知道这一页是哪个公司的）
问题描述标准说法是不是应该叫“打印固定行”、“强制换页”？
回答：每页打印抬头的问题，就是把包含公司名称的Band每页重复打印即可。属性中有一个的。
勾选就行了。
至于固定行，实际上设计套打时，页面大小都是固定的，每一行的高度也都是固定的，页眉与页
脚也是固定的，这样设计出来的报表可打印的行数自然就是你要求的8行了。根本不需要什么强
制换页。因为根据纸张会自动换页的。你要做的就是设计好纸张尺寸、页面布局，就得了，套打
是一种最简单的打印，不用想的太复杂。
11.FastReport中如何实现连续打印？
很多人认为Fr不能实现连续打印，以为只能通过自己写函数调用打印函数来实现连续打印，实际
上，Fr可以轻易的实现连续打印，同时，实现时又是非常简单，你甚至可以在你的程序的打印设
置中简单的让客户选择是否连续打印，其它都可以保持不变。
functionPelsTomm(Pels:Extended):Extended;
begin
Result:=Pels/Screen.PixelsPerInch*25.4;
end;
procedurePrintSerial(Frx:TFrxReport;SequencePage:Byte=0);
var
P:TfrxReportPage;
R,R1:Extended;
begin
{必须是二遍报表，否则无法计算总页数。
下面的方法只适用于没有页脚的情况，因为如果有页脚的话
FreeSpace就始终为0了。可以用报表脚来代替。
因为是连续打印，也可以看作只有一页，报表脚也就相当于页脚了}
ifnotFrx.Engine.DoublePassthenExit;
//SequencePage指要连续打印的页面，普通报表就是0
P:=TfrxReportPage(Frx.Pages[SequencePage]);
R1:=P.TopMargin+P.BottomMargin;
whileFrx.PrepareReportdo
begin
if(Frx.Engine.TotalPages<=1)thenBreak;
R:=Pelstomm(Frx.Engine.TotalPages*Frx.Engine.PageHeight-
Frx.Engine.FreeSpace)+R1;
P.PaperHeight:=R;
end;
{必须用上面的循环代码来得到准确的空白区域
不能用通过计算总页数减去各页的页边距的方法来获得空白区域
因为如果碰到一条记录过宽的情况导致换页，就不准确了。}
R:=Pelstomm(Frx.Engine.TotalPages*Frx.Engine.PageHeight-
Frx.Engine.FreeSpace)+R1;
P.PaperHeight:=R;
end;
在预览或打印前先调用PrintSerial即可。
12.如何在程序中指定打印机名称?
frxReport1.Report.PrintOptions.Printer:='打印机名称';
13.如何使用打印机直接打印?
implementation
usesPrinters;
{$R*.dfm}
procedureTForm1.Button1Click(Sender:TObject);
begin
Printer.PrinterIndex:=0;{网络打印机也是要安装在你本地的操作系统中的，直接使用顺序
试试吧}
Printers.Printer.SetPrinter('HP1020','HP1020','LPT1',0);{打印机名字，驱动，端口等，
自查，我是用虚拟打印机测试的}
Printers.Printer.BeginDoc;
Printers.Printer.Canvas.TextOut(10,10,'打印这一行字');
Printers.Printer.EndDoc;
end;
14.如何打印空白处？
在打印报表的Band处的OnBeforePrint事件中添加代码：
whileFreeSpace>20do
ShowBand(Child1)
15.如何打印指定行数后换页？
在masterband中OnBeforePrint事件中写代码：
var
vLineCount:integer;
begin
vLineCount:=vLineCount+1;
ifvLineCount=10then
begin
vLineCount:=0;
NewPage;
end;
end;
16.fastreport中如何把数据显示为百分比
DisplayFormat属性，其中的Kind你设置成fkNumeric,FormatStr
[*100#n%2.2f]%”。
17.FastReport如何打印表格式的空行？
var
PageLine:integer;//在页列印到第几行
PageMaxRow:integer=15;//设定每页列数
procedureMasterData1OnBeforePrint(Sender:TfrxComponent);
begin
PageLine:=modPageMaxRow;
if(PageLine=1)and(>1)then
Engine.newpage;
child1.visible:=False;
end;
//Footer1高度设为0
procedureFooter1OnBeforePrint(Sender:TfrxComponent);
var
i:integer;
begin
i:=iif(PageLine=0,PageMaxRow,PageLine);
child1.visible:=True;
whileibegin
i:=i+1;
Engine.ShowBand(Child1);//印空白表格
end;
child1.visible:=False;
end;
begin
end.
========================================================================
早期版本
----------------使用自定义函数----------------------------------------
Q:我怎样添加我的自定义函数?
A:使用TfrReport.OnUserFunction事件.这里有一个简单的例子:
procedureTForm1.frReport1UserFunction(constName:String;
p1,p2,p3:Variant;varval:Variant);
begin
ifAnsiCompareText('SUMTOSTR',Name)=0then
val:=My_Convertion_Routine(frParser.Calc(p1));
end;
然后，你就可以在报表（任何表达式或脚本）的任何地方使用SumToStr函数了。
Q:但是它仅仅能工作在一个TfrReport组件中。可我想在任何地方（在所有的TfrReport组件中）
使用的我的自定义函数？
A:使OnUserFunctionevent句柄作为所有组件的公用句柄。如果你不能做到这一点，你需要创
建函数库：
type
TMyFunctionLibrary=class(TfrFunctionLibrary)
public
constructorCreate;override;
procedureDoFunction(Fno:Integer;p1,p2,p3:Variant;
varval:Variant);override;
end;
constructorTMyFunctionLibrary.Create;
begin
inheritedCreate;
withListdo
begin
Add('DATETOSTR');
Add('SUMTOSTR');
end;
end;
procedureTMyFunctionLibrary.DoFunction(Fno:Integer;p1,p2,p3:Variant;
varval:Variant);
begin
val:=0;
caseFnoof
0:val:=My_DateConvertion_Routine(frParser.Calc(p1));
1:val:=My_SumConvertion_Routine(frParser.Calc(p1));
end;
end;
要注册函数库，调用
frRegisterFunctionLibrary(TMyFunctionLibrary);
要卸载函数库，调用
frUnRegisterFunctionLibrary(TMyFunctionLibrary);
Q:我怎样将我的函数添加到函数列表中(用表达式生成器)?
A:使用frAddFunctionDesc过程(在FR_Class单元中):
frAddFunctionDesc(FuncLib,'SUMTOSTR','Myfunctions',
'SUMTOSTR()/Convertsnumbertoitsverbalpresentation.');
注意:"/"符号是必须的!它从它的描述中分隔函数语法。
FuncLib被声明为你自己的函数库(如果你不使用函数库可以将其设置为nil).当函数库未注册
时，所有它的函数将自动从函数列表中删除。
----------------使用变量-------------------------------------
Q:我怎样编程实现填充变量列表（在数据词典中）?
A:数据词典中的所有变量及分类都被存储在TfrReport.Dictionary.Variables中.
withfrReport1.Dictionarydo
begin
//创建分类(名称用空白)
Variables['Newcategory']:='';
//创建变量
Variables['NewVariable']:='CustomerData.Customers."CustNo"';
Variables['AnotherVariable']:='Page#';
end;
Q:我定义了字符串变量:
withfrReport1.Dictionarydo
Variables['Month']:='March';
但是当我运行报表是，出现了错误，为什么?
A:因为FastReport假定数据词典中的字符串变量值是一个表达式，它需要分析、计算它。
可以使用其它的方法:
withfrReport1.Dictionarydo
Variables['Month']:=''''+'March'+'''';
或者,使用frVariables来传输固定数据到报表。
Q:我不想在数据词典中显示某些数据集？
A:使用TfrReport.Dictionary.DisabledDatasets:
withfrReport1.Dictionarydo
begin
//关闭该数据集
DisabledDatasets.Add('CustomerData.Bio');
//或者,关闭整个数据模块/窗体
DisabledDatasets.Add('CustomerData*');
end;
Q:我怎样将数据传送到报表?
A:有几个方法可以实现它.第一是使用全局对象frVariables(在FR_Class单元中被定义):
frVariables['Myvariable']:=10;
这段代码创建了一个名称为“Myvariable”，值为10的变量。这是最好的传输固定数据的报表
的方法。
第二种方法是使用TfrReport.OnGetValue事件.这可以使用这个方法来传送动态数据、记录等
。
procedureTForm1.frReport1GetValue(ParName:String;varParValue:Variant);
begin
ifParName='MyField'then
ParValue:=Table1MyField.Value;
end;
最后,第三种方法是通过编程在数据词典中定义变量（可以参考以前的问题）:
withfrReport1.Dictionarydo
begin
Variables['MyVariable']:='CustomerData.Customers."CustNo"';
Variables['AnotherVariable']:=’10’;
end;
Q:我能在报表和程序间传送数据吗?
A:使用frVariables对象.如果你在报表的任何对象的脚本中写入以下代码：
MyVariable:=10
那么，在你的程序中，你可以使用以下代码来获取MyVariable的值:
v:=frVariables['MyVariable'];
----------------脚本(FastReportPascal)---------------------------------
Q:Band中是否可以使用脚本?
A:当然.选择band，然后按Ctrl+Enter或在对象浏览器中选择"OnBeforePrint"属性。
Q:报表页中是否可以使用脚本?
A:当然.选择页(在空白处单击)，然后在对象浏览器中选择"OnBeforePrint"属性。如果该
页是一个对话框窗体，那么这个属性就是"OnActivate".
Q:我有两个对象:Memo1和Memo2.我能否在Memo1的脚本中调用Memo2的属性和方法？
A:当然，例如，你可以这样做：对象名.属性名.
Q:在脚本中，我可以使用对象的哪些属性?
A:几乎所有你能在对象浏览器中看到的属性。例如，可以使用Font.Name,Font.Size等来存取
字体属性。
----------------其它问题--------------------------------------------
Q:怎样改变多页报表中某一页的顺序?
A:拖动页标签到目的位置。
Q:我想查看所有的字段及变量，我想在报表中使用列表来实现它？
A:设置TfrReport.MixVariablesAndDBFields:=True.所有的数据字段及变量可在“插
入数据字段”对话框中可存取了。
Q:我不想显示导入选项对话框？
A:在导入组件（比如，TfrTextExport)中设置所有必需的选项，然后通过设置ShowDialog属性为
False来关闭此对话框。
Q:为什么TotalPages变量不起作用?它总是返回0.
A:在你的报表中设置Two-pass选项.要设置它，你需要在报表设计器的“文件”菜单中，打开
“报表选项”对话框。
Q:我用BLOB字段来存储我的报表。当我运行报表设计器时，它显示我的报表未命名？
A:在运行报表设计器前，这样做:
frReport1.FileName:='Nameofmyreport';
Q:我想在重新定义报表设计器中的“打开”及“保存”按钮的功能？
A:查看TfrDesigner组件.它有几个必需的事件:OnLoadReport和
OnSaveReport.这里有一小段代码例子:
procedureTForm1.frDesigner1LoadReport(Report:TfrReport;
varReportName:String;varOpened:Boolean);
begin
withMyOpenDialogdo
begin
Opened:=ShowModal=mrOk;
ifOpenedthen
begin
Report.LoadFromBlobField(…);
ReportName:=…;
end;
end;
end;
procedureTForm1.frDesigner1SaveReport(Report:TfrReport;
varReportName:String;SaveAs:Boolean;varSaved:Boolean);
begin
ifSaveAsthen
withMySaveDialogdo
begin
Saved:=ShowModal=mrOk;
ifSavedthen
begin
Report.SaveToBlobField(…);
ReportName:=…;
end;
end
else
Report.SaveToBlobField(…);
end;
Q:在QR中,我可以写这样的代码：QRLabel1.Caption:=’Sometext’.我可以用FR这样做
吗？
A:FR对象并不是一个组件(这并不像QR,RB).但使用TfrReport.FindObject方法可以通过
对象名称找到该对象。
var
t:TfrMemoView;
begin
t:=TfrMemoView(frReport1.FindObject(’Memo1’));
ift<>nilthen
t.Memo.Text:=’FastReport’;
end;
Q:我想在用户预览（TfrPreview组件）中自定义热键？
A:这个组件有个窗口:Tform属性.将自定义句柄指定到Window.OnKeyDown属性.
Q:FastReport2.4不能装载FreeReport2.21文件？
A:这仅需要使用16进制数改变报表文件的第一字节，然后在源代码中修改下面的部分。在这些修
改之后，装载报表并保存它.最后，返回到源代码处.
FR_Class:
functionReadString(Stream:Tstream):String;
begin
{iffrVersion>=23then}
Result:=frReadString(Stream){else
Result:=frReadString22(Stream);}
end;
procedureReadMemo(Stream:Tstream;Memo:Tstrings);
begin
{iffrVersion>=23then}
frReadMemo(Stream,Memo){else
frReadMemo22(Stream,Memo);}
end;
FR_Utils:
procedurefrReadMemo(Stream:Tstream;l:Tstrings);
var
s:String;
b:Byte;
n:Word;
begin
l.Clear;
l.Text:=frReadString(Stream);exit;
Stream.Read(n,2);
ifn>0then
repeat
Stream.Read(n,2);
SetLength(s,n);
Stream.Read(s[1],n);
l.Add(s);
Stream.Read(b,1);
untilb=0
else
Stream.Read(b,1);
end;
functionfrReadString(Stream:Tstream):String;
var
s:String;
n:Integer;
b:Byte;
begin
Stream.Read(n,4);
SetLength(s,n);
Stream.Read(s[1],n);
if(n>0)and(s[n]=#$0A)then
SetLength(s,n-2);
//Stream.Read(b,1);
Result:=s;
end;
Q:怎样不在打印预览中打印报表？
A:这里有一段代码:
frReport1.PrepareReport;
frReport1.PrintPreparedReport('',1,True,frAll);
或
frReport1.PrintPreparedReportDlg;
Q:我想在报表中旋转图片。问题是这张图片是由我的应用程序生成的。是否有方法可以在打印前
将这幅图片装载到报表中？
A:使用TfrReport.OnBeforePrint事件:
ifView.Name='Picture1'then
TfrPictureView(View).Picture.LoadFromFile(…)或
.Assign或
.你所想要做的任何事情
FastReport套打全攻略
//以设计套打行为6行为例进行说明
一、定义变量
TaoDa0是套打1不套打
cPage系统变量页#
caPage系统变量总页数
二、TfrPage.OnBeforePrint事件中写
{
ifTaoDa='0'then
begin
title.visible:=false;//不用打印的设置Visible为False;
danweiv.frametyp:=0;//只打印数据的不需要打印边框的设置frametyp为0;
...
end;
i:=0;//定义一个变量并进行初始化。
}
二、主项数据.OnBeforePrint事件中写
{
ifTaoDa='0'then
begin
i:=i+1;
bm.memo:=i;
if(i>5)then
if((i-1)mod6)=0thennewpage;
end;
}
三、主项脚.OnBeforePrint事件中写
{
j:=imod6;
ifj<>0then
begin
fork:=jto5do
begin
ShowBand(Child1);//Child1是子的名称显示空白行
end;
end;
}
四、栏目脚.OnBeforePrint事件中写
{
ifcpage<>capagethen
begin
shi.memo:='';//十
bai.memo:='';//百
qian.memo:='';//千
wan.memeo:='';//万
end
elsebegin
shi.memo:=v1;
bai.memo:=v2;
qian.memo:=v3;
wan.memo:=v4;
end;
}
这段代码是用来控制在有多页情况下，在最后一页上显示总金额。
其中：v1,v2,v3,v4是自定义变量。
报表结构组成：
栏目头//画报表的标头
主项数据//显示的数据，会与数据源进行绑定
主项脚//什么也不用放，只用来控制visible:=false;
子//画出空白行显示的组件
栏目脚//显示总的金额、数量
页脚//显示页数
调用方法：
frReportA.LoadFromFile(s);s是文件
frReportA.Dictionary.Variables['taoda']:='1';
进行查询
打印：
frReportA.PrepareReport;
frreportA.PrintPreparedReport('',1,true,frall);
预览：
frReportA.ShowReport;
FastReport打印CxGrid数据
用惯了FastReport，就不愿意再使用其他的PrintComponent。用FastReport打印CxGridFilter后的数据，网上一直没有很好的办法和例程。看到有将CxGrid的FileterText取出后再赋给DataSet的说明，没有具体去试验，太麻烦。如此著名的Component肯定有解决此问题的方法。于是今天到DevExpress英文站点去浏览了一番，在该站上搜索了一下，居然出来N多此问题的提问者，看了几个这类的问题后，终于解决了。
解决此问题可以使用以下方法：
1、将View的datacontroller.filter.autodatasetfilter属性设为True。
此方法需要DataSet支持才能设置。
2、是在FastReport的frDBDataSet的CheckEofEvent里写如下代码：
EOF:=frUserDataset1.RecNo>=Grid.ViewData.RecordCount;
在frReport的GetValueEvent里写代码：
ifParName='Field1'then
ParValue:=Grid.ViewData.Records[frDataset1.RecNo].Values[2]);
此代码也可这样写：
ParValue:=Grid.ViewData.Records[frDataset1.RecNo].Values[View.GetColumnByFieldName(ParName).Index]);
ReportMachine
1.如何使用代码指定打印机？
RMReport1.LoadFromFile('Untitled.rmf');
rmreport1.PrinterName:='\\192.168.10.1\HPLaserJet1022';

牛铺软件园提供《fastreport》v2017.3 正式版下载，该软件为免费版，文件大小为42.1MB，推荐指数4颗星，作为行业管理中的顶尖厂商，完全可以放心下载哦！