全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2265
推到 Plurk!
推到 Facebook!

D5 QuickReport 透過cutepdf另存pdf問題

答題得分者是:t27
isthatu1999
一般會員


發表:3
回覆:3
積分:1
註冊:2010-06-29

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-12-11 17:41:02 IP:124.11.xxx.xxx 訂閱
最近user需求需要將報表另存pdf檔

小弟打算直接用cutepdf這類虛擬印表機讓報表直接轉存pdf

但是有個問題

有辦法去設定在cutepdf另存新檔時 給它存檔路預設存檔檔名嗎?

因為user都是懶人 而且會有上百個人會用到這程式 每個人素質都不一樣

所以想說如果能讓指定路徑及存檔檔名可以省掉很多麻煩

而且後續我程式要處理這些檔案也可以按我預設的路徑 再做後續處理~~

不知道是否有方法解決?

smallfox
高階會員


發表:2
回覆:113
積分:128
註冊:2003-02-19

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-12-12 01:12:17 IP:175.180.xxx.xxx 訂閱
基本上, 除非這些外掛的虛擬印表機程式, 有提供參數傳輸 or Ini File 設定 or API
讓你傳輸 or 呼叫來更改 or 指定你要的檔名及路徑,
否則你就只能接受它的 "遊戲規則".
愚兄拙見, 謝謝參考.
t27
中階會員


發表:34
回覆:95
積分:90
註冊:2002-06-19

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-12-15 10:11:23 IP:61.228.xxx.xxx 訂閱
 可以參考一下
http://www.pdfforge.org/

以下是部份程式
PrinterName := 'PDFCreator';
if GetPrinter(PrinterName) then
begin
InFname := cOutFile;
cExt := ExtractFileExt(InFname);
OutFname := StringReplace(InFname,cExt,'',[]);
OutFname := ExtractFileName(OutFname);
OutDir := ExtractFilePath(InFname);
PDFCreator := CreateOleObject('PDFCreator.clsPDFCreator');
PDFCreator.cStart('/NoProcessingAtStartup');
PDFCreator.cOption('UseAutosave') := 1;
PDFCreator.cOption('UseAutosaveDirectory') := 1;
PDFCreator.cOption('AutosaveDirectory') := OutDir;
PDFCreator.cOption('AutosaveFilename') := OutFname;
PDFCreator.cOption('AutosaveFormat') := 0; //0:PDF
PDFCreator.cOption('AutosaveStartStandardProgram') := nProgram;//1;
PDFCreator.cOption('ShowAnimation') := 0;
PDFCreator.cOption('NoConfirmMessageSwitchingDefaultprinter') := 1;
PDFCreator.cVisible := False;
PDFCreator.cWindowState := 1;
PDFCreator.cClearcache;
PDFCreator.cDefaultPrinter := PrinterName;
PDFCreator.cPrinterStop := False;
end
else
begin
ShowMsg(MTInfo,'未裝設 PDFCreator Driver !', self.Name);
end;
isthatu1999
一般會員


發表:3
回覆:3
積分:1
註冊:2010-06-29

發送簡訊給我
#4 引用回覆 回覆 發表時間:2012-02-24 02:10:02 IP:124.11.xxx.xxx 訂閱

===================引 用 smallfox 文 章===================
基本上, 除非這些外掛的虛擬印表機程式, 有提供參數傳輸 or Ini File 設定 or API
讓你傳輸 or 呼叫來更改 or 指定你要的檔名及路徑,
否則你就只能接受它的 "遊戲規則".
愚兄拙見, 謝謝參考.
-----------------------------------------------
透過cutepdf一開始另存檔案時 他是打開(我的文件)這個目錄
之後另存到新的目錄時 再另存時 就會以前次的目錄當預設
所以我在想 如果可以在系統找出這個路徑存放的地方
可能存在reg key內或哪裡就可以想辦法解決

目前暫時無解 我也找不出註冊檔有地方存放這些路徑~!



系統時間:2017-10-24 1:02:49
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!