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內或哪裡就可以想辦法解決 目前暫時無解 我也找不出註冊檔有地方存放這些路徑~! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |