FastReport報表控件使用技巧總結

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('Function GetName(Old:String):String;');

2)腳本中使用函數。

在腳本中或報表中使用自定義函數，就像使用其它Fastreport內置函數同樣。

3)程序中處理函數。

使用函數是經過frxreport1的OnUserFunction函數來實現的。

OnUserFunction的聲明以下：Function(constMethodName: String;var Params: Variant): Variant;

好比上面的函數，首先要有一個函數，這個函數是GetName的實現部分。若有一個在程序中實現的函數。

function RealGetName(Old:String):String;這個函數名是無所謂的，也能夠是GetName。

在OnUserFunction的事件處理中有以下代碼便可完成自定義函數在報表中的使用。

if CompareText(MethodName,'GetName')=0 thenResult:=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<frxDBDataSet1."Name">='' then

Memo2.Text:='無用戶名'

else

Memo2.Text:='用戶名：[frxDBDataSet1."Name"]'

Memo2是放置用戶名稱數據的Tfrxmemoview控件。

這裏注意，要在腳本中訪問變量須要把變量用<>包括起來。

9.FastReport中如何動態調整高度？

我常用下面的幾個函數來實現Band及Tfrxmemoview高度的動態調整，須要注意的是：下面的函數只能調整一個Band中多行的最後一行，若是隻有一行（多數狀況下應該是這樣）就無所謂了
，並且這是在寬度已經固定的前提下。在想要調整高度的Band的OnBeforePrint事件中寫SetMemo(Sender);，代碼以下，粘貼到代碼頁中就可使用。

下面的代碼也能夠演變一些，實現動態寬度等。我多處都判斷了Tag是否爲7635,由於我常常須要單獨調用其中的某個函數。

//7635爲保留數字，表示不做任何調整，一般用在多行的最上方

function Biger(Old:Extended):Integer;
begin
Result:=Trunc(Old);
if Frac(Old)>0 then
Result:=Result+1;
end;
procedure JustHeight(Sender:TfrxComponent);
var
RealHeight:Integer;
begin
RealHeight:=Biger(TFrxMemoView(Sender).CalcHeight+TFrxMemoView(Sender).Top);
ifBiger(TfrxBand(Sender.Parent).Height)<RealHeight then
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
for I:=0 to Sender.Objects.Count-1 do
if TObject(Sender.Objects.Items[I]) isTFrxMemoView then
ifTFrxMemoView(Sender.Objects.Items[I]).Tag=7635 then Continue
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;
procedure JustMemo(Sender:TfrxComponent);
begin
if not Engine.FinalPass then Exit;
if Sender.Tag<>7635 then
JustHeight(Sender);
end;
procedure SetMemo(Sender:TfrxComponent);
var
I:Integer;
begin
for I:=0 to Sender.Objects.Count-1 do
if TObject(Sender.Objects.Items[I]) isTFrxMemoView then
ifTfrxMemoView(Sender.Objects.Items[I]).Tag<>7635 then
TfrxMemoView(Sender.Objects.Items[I]).OnAfterData:='JustMemo';
end;

10.FastReport中如何實現套打？

紙張是連續的帶鋸齒的已經印刷好的，相似於通訊公司發票這裏設計的是客戶銷售記錄。

客戶有兩個要求：

一、由於打印紙張是印刷的，明細記錄只有8行，因此，若是明細記錄若是不到8行，就將公司名稱、銷售記錄打印在上面，下一個公司的信息打印在下一頁，而不能接在該頁上（呵呵，是啊，如
果接在一塊兒，那印刷單就失去意義了）

二、若是銷售記錄超過8行，則從第9行開始的銷售記錄打印在下一頁（所謂下一頁，其實就是鋸齒分割的下一*，稱呼「下一份」比較妥切？），而且擡頭（也就是公司名稱）也要打上（若是不打印擡頭，撕下了後，可能弄混淆了，不知道這一頁是哪一個公司的）

問題描述標準說法是否是應該叫「打印固定行」、「強制換頁」？

回答：每頁打印擡頭的問題，就是把包含公司名稱的Band每頁重複打印便可。屬性中有一個的。

勾選就好了。

至於固定行，實際上設計套打時，頁面大小都是固定的，每一行的高度也都是固定的，頁眉與頁腳也是固定的，這樣設計出來的報表可打印的行數天然就是你要求的 8行了。根本不須要什麼強
制換頁。由於根據紙張會自動換頁的。你要作的就是設計好紙張盡寸、頁面佈局，就得了，套打是一種最簡單的打印，不用想的太複雜。

11.FastReport中如何實現連續打印？

不少人認爲Fr不能實現連續打印，覺得只能經過本身寫函數調用打印函數來實現連續打印，實際上，Fr能夠輕易的實現連續打印，同時，實現時又是很是簡單，你甚至能夠在你的程序的打印設
置中簡單的讓客戶選擇是否連續打印，其它均可以保持不變。

function PelsTomm(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了。能夠用報表腳來代替。由於是連續打印，也能夠看做只有一頁，報表腳也就至關於頁腳了}

if not Frx.Engine.DoublePass then Exit;
//SequencePage指要連續打印的頁面，普通報表就是0
P:=TfrxReportPage(Frx.Pages[SequencePage]);
R1:=P.TopMargin+P.BottomMargin;
while Frx.PrepareReport do
begin
if (Frx.Engine.TotalPages<=1) thenBreak;
R:=Pelstomm(Frx.Engine.TotalPages*Frx.Engine.PageHeight-
Frx.Engine.FreeSpace)+R1;
P:=TfrxReportPage(Frx.Pages[SequencePage]);
P.PaperHeight:=R;
end;

{必須用上面的循環代碼來獲得準確的空白區域不能用經過計算總頁數減去各頁的頁邊距的方法來得到空白區域由於若是碰到一條記錄過寬的狀況致使換頁，就不許確了。}

R:=Pelstomm(Frx.Engine.TotalPages*Frx.Engine.PageHeight-
Frx.Engine.FreeSpace)+R1;
P:=TfrxReportPage(Frx.Pages[SequencePage]);
P.PaperHeight:=R;
end;

在預覽或打印前先調用PrintSerial便可。

12.如何在程序中指定打印機名稱?

frxReport1.Report.PrintOptions.Printer := '打印機名稱';

13.如何使用打印機直接打印?

implementation
uses Printers;
{$R *.dfm}
procedure TForm1.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事件中添加代碼：

while FreeSpace > 20 do
ShowBand(Child1)

15.如何打印指定行數後換頁？

在master band中OnBeforePrint事件中寫代碼：

var
vLineCount: integer;
begin
vLineCount := vLineCount + 1;
if vLineCount = 10 then
begin
vLineCount := 0;
NewPage;
end;
end;

16.fastreport中如何把數據顯示爲百分比

DisplayFormat屬性，其中的Kind你設置成fkNumeric,FormatStr [<frxDBDataset1."sjl">*100#n%2.2f]%」。

17.FastReport如何打印表格式的空行？

var
PageLine: integer; //在如今頁列印到第幾行
PageMaxRow: integer=15; //設定每頁列數
procedure MasterData1OnBeforePrint(Sender:TfrxComponent);
begin
PageLine := <Line> mod PageMaxRow;
if(PageLine = 1) and (<line> > 1) then
Engine.newpage;
child1.visible := False;
end;
//Footer1高度設爲0
procedure Footer1OnBeforePrint(Sender:TfrxComponent);
var
i:integer;
begin
i:= iif(PageLine=0, PageMaxRow, PageLine);
child1.visible := True;
while i < PageMaxRow do
begin
i:= i + 1;
Engine.ShowBand(Child1); //印空白表格
end;
child1.visible := False;
end;
begin
end.

相關連接

FastReport中文官網

FastReport最新版下載