D5 QuickReport 透過cutepdf另存pdf問題 |
|
答題得分者是：t27
|
|
isthatu1999
一般會員   發表：3 回覆：3 積分：1 註冊：2010-06-29 發送簡訊給我 |
|
|
smallfox
高階會員  發表：2 回覆：113 積分：128 註冊：2003-02-19 發送簡訊給我 |
|
|
t27
中階會員 發表：34 回覆：95 積分：90 註冊：2002-06-19 發送簡訊給我 |
可以參考一下
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 發送簡訊給我 |
===================引 用 smallfox 文 章=================== 基本上, 除非這些外掛的虛擬印表機程式, 有提供參數傳輸 or Ini File 設定 or API 讓你傳輸 or 呼叫來更改 or 指定你要的檔名及路徑, 否則你就只能接受它的 "遊戲規則". 愚兄拙見, 謝謝參考. ----------------------------------------------- 透過cutepdf一開始另存檔案時 他是打開（我的文件）這個目錄 之後另存到新的目錄時 再另存時 就會以前次的目錄當預設 所以我在想 如果可以在系統找出這個路徑存放的地方 可能存在reg key內或哪裡就可以想辦法解決 目前暫時無解 我也找不出註冊檔有地方存放這些路徑～！ |
發表時間：2011-12-11 17:41:02
IP:124.11.xxx.xxx 訂閱
系統時間：2024-04-26 3:55:58
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |