FastReport 使用技巧篇

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.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

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.

========================================================================

早期版本

---------------- 使用自定義函數----------------------------------------

Q: 我怎樣添加個人自定義函數?

A: 使用TfrReport.OnUserFunction 事件. 這裏有一個簡單的例子:

procedureTForm1.frReport1UserFunction(const Name: String;

p1, p2, p3: Variant; var val: Variant);

begin

if AnsiCompareText('SUMTOSTR', Name) = 0 then

val :=My_Convertion_Routine(frParser.Calc(p1));

end;

而後，你就能夠在報表（任何表達式或腳本）的任何地方使用 SumToStr 函數了。

Q: 可是它僅僅能工做在一個TfrReport組件中。可我想在任何地方（在全部的TfrReport組件中）

使用的個人自定義函數？

A: 使 OnUserFunctionevent 句柄做爲全部組件的公用句柄。若是你不能作到這一點，你須要創

建函數庫：

type

TMyFunctionLibrary =class(TfrFunctionLibrary)

public

constructor Create; override;

procedure DoFunction(Fno: Integer; p1, p2,p3: Variant;

var val: Variant); override;

end;

constructor TMyFunctionLibrary.Create;

begin

inherited Create;

with List do

begin

Add('DATETOSTR');

Add('SUMTOSTR');

end;

end;

procedureTMyFunctionLibrary.DoFunction(Fno: Integer; p1, p2, p3: Variant;

var val: Variant);

begin

val := 0;

case Fno of

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(<Number>)/Converts number toits verbal presentation.');

注意: "/" 符號是必須的! 它從它的描述中分隔函數語法。

FuncLib 被聲明爲你本身的函數庫 (若是你不使用函數庫能夠將其設置爲nil). 當函數庫未註冊

時，全部它的函數將自動從函數列表中刪除。

---------------- 使用變量-------------------------------------

Q: 我怎樣編程實現填充變量列表（在數據詞典中）?

A:數據詞典中的全部變量及分類都被存儲在TfrReport.Dictionary.Variables 中.

with frReport1.Dictionary do

begin

// 建立分類(名稱用空白)

Variables[' New category'] := ' ';

// 建立變量

Variables['New Variable'] := 'CustomerData.Customers."CustNo"';

Variables['Another Variable'] := 'Page#';

end;

Q: 我定義了字符串 變量:

with frReport1.Dictionary do

Variables['Month'] := 'March';

可是當我運行報表是，出現了錯誤，爲何?

A: 由於 FastReport 假定 數據詞典中的字符串 變量值是一個 表達式，它須要分析、計算它。

可使用其它的方法:

with frReport1.Dictionary do

Variables['Month'] := '''' +'March' + '''';

或者, 使用 frVariables 來傳輸固定數據到報表。

Q: 我不想在數據詞典中顯示某些數據集？

A: 使用TfrReport.Dictionary.DisabledDatasets:

with frReport1.Dictionary do

begin

// 關閉該數據集

DisabledDatasets.Add('CustomerData.Bio');

// 或者, 關閉整個數據模塊/ 窗體

DisabledDatasets.Add('CustomerData*');

end;

Q: 我怎樣將 數據傳送到報表?

A: 有幾個方法能夠實現它. 第一是使用全局對象frVariables (在 FR_Class 單元中被定義):

frVariables['My variable'] := 10;

這段代碼建立了一個名稱爲「My variable」，值爲 10 的變量。這是最好的傳輸固定數據的報表

的方法。

第二種方法是使用 TfrReport.OnGetValue 事件. 這可使用這個方法來傳送 動態數據、記錄等

。

procedure TForm1.frReport1GetValue(ParName:String; var ParValue: Variant);

begin

if ParName = 'MyField' then

ParValue := Table1MyField.Value;

end;

最後, 第三種方法是經過 編程在 數據詞典中定義 變量（能夠參考之前的問題）:

with frReport1.Dictionary do

begin

Variables['MyVariable'] :='CustomerData.Customers."CustNo"';

Variables['Another Variable'] := ’10’;

end;

Q: 我能在報表和程序間傳送數據嗎?

A: 使用 frVariables 對象. 若是你在報表的任何對象的腳本中寫入如下代碼：

MyVariable := 10

那麼，在你的程序中，你可使用如下代碼來獲取 MyVariable 的值:

v := frVariables['MyVariable'];

----------------腳本(FastReport Pascal) ---------------------------------

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 := 'Name of my report';

Q: 我想在從新定義報表設計器中的「打開」及「保存」按鈕的功能？

A: 查看 TfrDesigner 組件. 它有幾個必需的事件:OnLoadReport 和

OnSaveReport. 這裏有一小段代碼例子:

procedureTForm1.frDesigner1LoadReport(Report: TfrReport;

var ReportName: String; var Opened:Boolean);

begin

with MyOpenDialog do

begin

Opened := ShowModal = mrOk;

if Opened then

begin

Report.LoadFromBlobField(…);

ReportName := …;

end;

end;

end;

procedureTForm1.frDesigner1SaveReport(Report: TfrReport;

var ReportName: String; SaveAs: Boolean;var Saved: Boolean);

begin

if SaveAs then

with MySaveDialog do

begin

Saved := ShowModal = mrOk;

if Saved then

begin

Report.SaveToBlobField(…);

ReportName := …;

end;

end

else

Report.SaveToBlobField(…);

end;

Q: 在 QR 中, 我能夠寫這樣的代碼：QRLabel1.Caption := ’Some text’. 我能夠用FR這樣作

嗎？

A: FR 對象並非一個組件 (這並不像 QR, RB).但使用 TfrReport.FindObject 方法能夠經過

對象名稱找到該對象。

var

t: TfrMemoView;

begin

t :=TfrMemoView(frReport1.FindObject(’Memo1’));

if t <> nil then

t.Memo.Text := ’FastReport’;

end;

Q: 我想在用戶預覽（TfrPreview組件）中自定義 熱鍵？

A: 這個組件有個窗口: Tform 屬性. 將自定義句柄指定到Window.OnKeyDown 屬性.

Q: Fast Report 2.4 不能裝載FreeReport 2.21 文件？

A: 這僅須要使用16進制數改變報表文件的第一 字節，而後在 源代碼中修改下面的部分。在這些修

改以後，裝載報表並保存它. 最後，返回到 源代碼處.

FR_Class:

function ReadString(Stream: Tstream):String;

begin

{ if frVersion >= 23 then}

Result := frReadString(Stream) {else

Result := frReadString22(Stream);}

end;

procedure ReadMemo(Stream: Tstream; Memo:Tstrings);

begin

{ if frVersion >= 23 then}

frReadMemo(Stream, Memo){ else

frReadMemo22(Stream, Memo);}

end;

FR_Utils:

procedure frReadMemo(Stream: Tstream; l:Tstrings);

var

s: String;

b: Byte;

n: Word;

begin

l.Clear;

l.Text := frReadString(Stream); exit;

Stream.Read(n, 2);

if n > 0 then

repeat

Stream.Read(n, 2);

SetLength(s, n);

Stream.Read(s[1], n);

l.Add(s);

Stream.Read(b, 1);

until b = 0

else

Stream.Read(b, 1);

end;

function frReadString(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 事件:

if View .Name = 'Picture1' then

TfrPictureView(View).Picture.LoadFromFile(…) 或

.Assign 或

.你所想要作的任何事情

FastReport套打全攻略

//以設計套打行爲6行爲例進行說明

1、定義變量

TaoDa 0 是套打1 不套打

cPage 系統變量頁#

caPage系統變量總頁數

2、TfrPage.OnBeforePrint事件中寫

{

ifTaoDa = '0' then

begin

title.visible:=false; //不用打印的設置Visible爲False;

danweiv.frametyp := 0; //只打印數據的不須要打印邊框的設置 frametyp 爲 0;

...

end;

i :=0 ; //定義一個變量並進行初始化。

}

2、主項數據.OnBeforePrint事件中寫

{

ifTaoDa = '0' then

begin

i:= i + 1;

bm.memo := i;

if(i > 5 ) then

if ((i-1) mod 6 ) = 0 then newpage;

end;

}

3、主項腳.OnBeforePrint事件中寫

{

j :=i mod 6;

if j<> 0 then

begin

for k := j to 5 do

begin

ShowBand(Child1); //Child1是子的名稱 顯示空白行

end;

end;

}

4、欄目腳.OnBeforePrint事件中寫

{

ifcpage <> capage then

begin

shi.memo := ''; //十

bai.memo := ''; //百

qian.memo := ''; //千

wan.memeo := ''; //萬

end

else begin

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，就不肯意再使用其餘的Print Component。用FastReport打印CxGrid Filter後的數據，網上一直沒有很好的辦法和例程。看到有將CxGrid的Fileter Text取出後再賦給DataSet的說明，沒有具體去試驗，太麻煩。如此著名的Component確定有解決此問題的方法。因而今天到Dev Express英文站點去瀏覽了一番，在該站上搜索了一下，竟然出來N多此問題的提問者，看了幾個這類的問題後，終於解決了。

解決此問題可使用如下方法：

一、將View的datacontroller.filter.autodatasetfilter屬性設爲True。

此方法須要DataSet支持才能設置。

二、是在FastReport的frDBDataSet的CheckEofEvent裏寫以下代碼：

EOF := frUserDataset1.RecNo >=Grid.ViewData.RecordCount;

在frReport的GetValue Event裏寫代碼：

if ParName='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\HP LaserJet 1022';