線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1720
推到 Plurk!
推到 Facebook!

怎么在程式中將報表保存為 JPG,PDF,TIF文件?

答題得分者是:Fishman
dialog
一般會員


發表:33
回覆:18
積分:10
註冊:2002-09-07

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-04-12 08:08:42 IP:219.133.xxx.xxx 未訂閱
報表生成器﹕QuickReport 或 FastRepot 或 ReportBuild 怎么在程式中將報表保存為 JPG,PDF,TIF文件?
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-04-12 08:22:58 IP:210.65.xxx.xxx 未訂閱
Hi dialog,    請參考以下討論:    http://delphi.ktop.com.tw/topic.php?topic_id=40801 ---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman
dialog
一般會員


發表:33
回覆:18
積分:10
註冊:2002-09-07

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-04-12 09:18:00 IP:218.18.xxx.xxx 未訂閱
Fishman 感謝提供鏈接﹐我遇到與您當時的情況一樣﹐但是這些鏈都連不上了, http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&inlang=zh-TW&th=3293737e593a1cb0&rnum=29 http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&inlang=zh-TW&th=93ada631d63769a&rnum=1 能否將您的資料上傳 或 E-Mail 給我 lxg_liu@163.com ﹐感激不盡﹗
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-04-12 10:03:12 IP:210.65.xxx.xxx 未訂閱
Hi dialog,    Sorry !! 我也沒有該元件,你用 Google 索引擎去找找看吧!    以下連結是找到的一個,不知道能不能用,不過連結沒有問題    http://shareware.pcmag.com/category.php%5Baction%5Dbrowse&i=90&id=60&f=%7C%7C%7C%7C&s=product.date_released%7CDESC%5BSiteID%5Dpcmag 至於 BMP 轉 JPG 網站上似乎有不少討論 http://delphi.ktop.com.tw/topic.php?topic_id=42185 ---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman
cmc92
一般會員


發表:3
回覆:13
積分:3
註冊:2003-11-14

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-05-25 09:34:53 IP:163.13.xxx.xxx 未訂閱
請問 1.我根據 bmp 轉 JPG 的作法試過, 但出來的圖型只有報表右上角一小塊,而不是整個報表,問題在那呢? 2.請問 QuickRep1.Units:=Pixels ; Pixels 在那一Unit內, 我用 Delphi7 編譯會有問題... Save QReports pages as BMP: http://www.nsonic.de/Delphi/txt_WIS00489.htm procedure TForm5.Button4Click(Sender: TObject); var BMP: TBitMap; StoredUnits: TQRUnit; i: integer; StoreDir: string; begin StoreDir:=''; {!!! Assign folder to store here (with ending '\'), leave blank to store in the .exe's folder} QuickRep1.Prepare; StoredUnits:=QuickRep1.Units; QuickRep1.Units:=Pixels; try for i:=1 to QuickRep1.QRPrinter.PageCount do begin BMP:=TBitMap.Create; try BMP.Width:=Round(QuickRep1.Page.Width); BMP.Height:=Round(QuickRep1.Page.Length); QuickRep1.QRPrinter.PageNumber:=i; BMP.Canvas.Draw(0, 0, QuickRep1.QRPrinter.Page); BMP.SaveToFile(StoreDir 'Page' IntToStr(i) '.bmp'); finally BMP.Free; end; end; finally QuickRep1.Units:=StoredUnits; end; end;
系統時間:2024-05-02 12:45:46
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!