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

列印Word文件檔時如何設定欲列印的範圍!?

尚未結案
m8815010
版主


發表:99
回覆:372
積分:289
註冊:2003-11-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-03-04 17:09:39 IP:61.63.xxx.xxx 未訂閱
嗯,try了一下,下面的code可以列出文件全部的頁面,但要如何才能印出選擇性的範圍呢?    例如我要印第 5~9頁或111~113頁 或甚至 3,5,33-36....這種不規則的範圍!    請教大家一下,感恩! < class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { if (OpenDialog1->Execute()) { Variant WordApp,WordDoc; Variant Doc; //Variant arg[6]; //arg[0]=NULL; //arg[1]=NULL; //arg[2]=rng; //arg[3]=NULL; //arg[4]=2; //arg[5]=2; WordApp=CreateOleObject("Word.Application"); WordApp.OlePropertySet("Visible",true); WordDoc=WordApp.OlePropertyGet("Documents"); Doc=WordDoc.OleFunction("Open",OpenDialog1->FileName.c_str()); //Doc.OleProcedure("PrintOut",arg); Doc.OleProcedure("PrintOut"); } }
wyndog
資深會員


發表:7
回覆:362
積分:348
註冊:2004-10-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-03-23 00:32:22 IP:61.62.xxx.xxx 未訂閱
首先,先 #include <word_2k.h> 如果不喜歡的話,就去把裡面的列舉挖出來,或者是找 msdn 也行    
    Doc.OleProcedure("PrintOut",
        True, False,
        wdPrintRangeOfPages,    // 這個值是 4
        "XXXX.DOC", "0", "0",   // 這個 XXX.DOC 隨便打都行,不過...
                                // 不能是空的,BCB 不給過啊 >"<
        wdPrintDocumentContent, // 這個值是 0
        "1",
        "2-3,5");               // 你要列印的範圍
詳細的說明,請見 MSDN http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_wrcore/html/wrtskhowtosenddocumentstoprinter.asp 發表人 - wyndog 於 2005/03/23 00:34:10
m8815010
版主


發表:99
回覆:372
積分:289
註冊:2003-11-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-06-03 11:53:33 IP:61.63.xxx.xxx 未訂閱
引言: 首先,先 #include 如果不喜歡的話,就去把裡面的列舉挖出來,或者是找 msdn 也行
    Doc.OleProcedure("PrintOut",
        True, False,
        wdPrintRangeOfPages,    // 這個值是 4
        "XXXX.DOC", "0", "0",   // 這個 XXX.DOC 隨便打都行,不過...
                                // 不能是空的,BCB 不給過啊 >"<
        wdPrintDocumentContent, // 這個值是 0
        "1",
        "2-3,5");               // 你要列印的範圍
詳細的說明,請見 MSDN http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_wrcore/html/wrtskhowtosenddocumentstoprinter.asp 發表人 - wyndog 於 2005/03/23 00:34:10
reptile你好< >: 一直以為這題已經回應完畢了,真是抱歉....感謝你的回覆,謝謝啦< >!
系統時間:2024-06-29 23:19:03
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!