如何判斷TQuickRep.PrinterSetup之按鍵 |
尚未結案
|
spawn417
一般會員 發表:1 回覆:0 積分:0 註冊:2002-11-13 發送簡訊給我 |
請問各位高手:
我在撰寫報表列印處理時,先執行TQuickRep.PrinterSetup; 再執行TQuickRep,print; ... 目的是為了讓使用者能先行設定列印格式再列印。但是當按下視窗[取消]鍵仍會執行列印命 令!請問是否能判斷列印設定視窗的[確定]或[取消]鍵被按下,當作判斷條件? 程式如下: Try QuickRep1 := TQuickRep.Create(Self); QuickRep1.Prepare; QuickRep1.PrinterSetup; QuickRep1.Print; Finally QuickRep1.qyRptData.Active := False; QuickRep1.Free; End; |
shinjie
資深會員 發表:12 回覆:275 積分:287 註冊:2003-03-19 發送簡訊給我 |
|
dino
一般會員 發表:20 回覆:73 積分:23 註冊:2002-07-29 發送簡訊給我 |
if MessageDlg('即將列印發票,請選擇列印的印表機。', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin QReport := TQuickRep.Create(self); try QReport.PrinterSetup; //PrinterIndex := QReport.Printer.Printers.IndexOf('印表機名稱'); //指定印表機 by name PrinterIndex := QReport.PrinterSettings.PrinterIndex; finally QReport.Free; end; end else exit; if PrinterIndex = -1 then Exit //index = -1 表示按下取消 |
fireflybug
一般會員 發表:18 回覆:36 積分:15 註冊:2008-07-17 發送簡訊給我 |
Dear
我正在找這個訊息,在下面網站看到,所有借花獻佛貼來這: 文章出處:http://www.programmer-club.com.tw/showSameTitleN/delphi/20351.html =================================== 看了一下題目,我居然還有點映象。 可查閱 KB 到 QuickReport 下載。 with Quickrep1 do begin tag := -1; PrinterSetup; if tag = 0 then Print; end; ===================================
------
今天的事,留到後天再說.... |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |