如何得到FastReport的總頁數

發文回覆瀏覽次數：2226

推到 Plurk!

推到 Facebook!

缺席

kuf41
中階會員

發表：14
回覆：45
積分：51
註冊：2006-12-03

發送簡訊給我

#1 引用回覆回覆

發表時間：2010-03-09 09:43:36

IP:114.42.xxx.xxx 訂閱

[code delphi]
frxReport1.LoadFromFile('E:\Temp\Test\test.fr3');
frxReport1.PrepareReport;
frxReport1.Export(frxJPEGExport1);
[/code]

需求:
直接匯出jpg圖檔,有時資料超過1頁時,會有2個以上的圖檔,
需要抓到所有圖檔的檔名然後作為附件寄信出去

問題:
如何知道匯出了N個檔案,或共有N頁?

------
一切都為了明天

Victor4022
中階會員

發表：0
回覆：76
積分：90
註冊：2011-02-20

發送簡訊給我

#2 引用回覆回覆

發表時間：2011-02-21 12:26:24

IP:210.68.xxx.xxx 訂閱

關鍵參數名稱: frxReport1.PreviewPages.Count

示意程式:
[code delphi]
var
sFileName : String;
begin
frxReport1.FileName := 'YourFileName.xxx';
frxReport1.LoadFromFile('E:\Temp\Test\test.fr3');
frxReport1.PrepareReport;
frxReport1.Export(frxJPEGExport1);

for I:=0 to frxReport1.PreviewPages.Count-1 do
begin
sFileName:= Format('%s.%d%s',[
frxReport1.FileName.FileName, I 1, 'your file ext-format');
YourFileList.Add(sFileName); // YourFileList : TStringList
end;
end;
[/code]

===================引用 kuf41 文章===================
[code delphi]
frxReport1.LoadFromFile('E:\Temp\Test\test.fr3');
frxReport1.PrepareReport;
frxReport1.Export(frxJPEGExport1);
[/code]

需求:
直接匯出jpg圖檔,有時資料超過1頁時,會有2個以上的圖檔,
需要抓到所有圖檔的檔名然後作為附件寄信出去

問題:
如何知道匯出了N個檔案,或共有N頁?

編輯記錄

Victor4022 重新編輯於 2011-02-20 21:28:19，註解無‧
Victor4022 重新編輯於 2011-02-20 21:29:30，註解無‧

系統時間：2024-04-23 14:15:07

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！