|
|
以前做過Excel相關(guān)的東西,所以對OFFICE的COM有一些了解,很順利的找到了需要引用的COM和其幫助文檔~具體做法是在引用里添加 COM --------Microsoft word 11.0 object library, 然后引入命名空間:
復(fù)制代碼 代碼如下:
using WordApplication = Microsoft.Office.Interop.Word.Application;
using Document = Microsoft.Office.Interop.Word.Document;
using Bookmark = Microsoft.Office.Interop.Word.Bookmark;
具體實(shí)現(xiàn)代碼:
WordApplication word = null;
/**//// <summary>
/// 實(shí)現(xiàn)動態(tài)添加數(shù)據(jù)打印預(yù)覽
/// </summary>
/// <param name="path">word模板路徑</param>
/// <param name="adStu">調(diào)劑學(xué)生相關(guān)信息對象</param>
private void PrintPreview(string path, AdStuInfo adStu)
...{
if (word == null)
...{
word = new WordApplication();
}
object oMissing = System.Reflection.Missing.Value; //這個東西找了好久,不像操作Excel,用Type.mising還不行.
object path1 = (object)path;
Document doc = null;
doc = word.Documents.OpenOld(ref path1, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing);
替換書簽#region 替換書簽
object markName = "報(bào)考單位";
Bookmark bm = doc.Bookmarks.get_Item(ref markName);
bm.Range.Text = adStu.SiSch;
markName = "報(bào)考專業(yè)";
bm = doc.Bookmarks.get_Item(ref markName);
bm.Range.Text = adStu.SiMa;
markName = "考生姓名1";
bm = doc.Bookmarks.get_Item(ref markName);
bm.Range.Text = adStu.Name;
markName = "考生編號";
bm = doc.Bookmarks.get_Item(ref markName);
bm.Range.Text = adStu.No;
markName = "調(diào)劑專業(yè)";
bm = doc.Bookmarks.get_Item(ref markName);
bm.Range.Text = adStu.AdMa;
markName = "打印時(shí)間";
bm = doc.Bookmarks.get_Item(ref markName);
bm.Range.Text = GetDate().ToString();
markName = "考生姓名2";
bm = doc.Bookmarks.get_Item(ref markName);
bm.Range.Text = adStu.Name;
#endregion
word.Visible = true;
doc.PrintPreview();
}
具體解釋: 首先有一個模板.doc文件,在該模板內(nèi)需要添加數(shù)據(jù)的地方設(shè)置成書簽,.NET程序所要的事情就是打開該模板,用具體需要添加的值去替換先設(shè)定好的書簽,然后返回Word的打印預(yù)覽頁面,思路很簡單~但是問題也是有滴~~
這個程序是做打印我們學(xué)院研究生辦發(fā)復(fù)試生調(diào)卷函用的,但是表格是從學(xué)校研究生部那弄來的,主要還是在那邊蓋的章~所以就只能用那些表格來打,但是給的表格留的空實(shí)在太小,沒法用同樣的字體給打上去,怪就只能怪研究生部根本沒想到我們這會有這個高級的東西~~哈哈~估計(jì)一般都是手工填的~~~明天過去不知道具體要怎么弄,估計(jì)這東西在打印調(diào)卷函是發(fā)揮不出作用了~~~留著以后肯定有用!
4月16日修改:
幾天前做的仔細(xì)想想還是有需要改進(jìn)的地方.我前面做的只是一個個文檔的填,一個個的打印,考慮資料上百個以后這樣做打印機(jī)的打印的效率不高,因?yàn)槊看沃唤o打印機(jī)發(fā)送一個打印任務(wù),它接受下一個任務(wù)是需要時(shí)間的,所以我的想法是把需要打印的文檔生成成一個文檔,這樣不但可以保存文檔,還可以只要向打印機(jī)發(fā)送一個任務(wù)就可以打印資料了,NB的打印機(jī)打印速度是很快的~~
把具體的操作寫下來吧~思路是打開兩個word文檔(當(dāng)然,生成過程中全不可見),一個還是按照前面說的替換書簽,但是不做打印處理,而是復(fù)制到另外一個文檔(該文檔存儲所有已經(jīng)生成好的表格,最后得到的就是這個word文檔,打印或者保存隨便他們).具體的代碼如下:
先在using里引如:
using Range = Microsoft.Office.Interop.Word.Range;
doc.Content.Copy(); //復(fù)制doc里的內(nèi)容,doc是每次做替換書簽的文檔.
object save = false;
doc.Close(ref save, ref oMissing, ref oMissing); //關(guān)閉doc.
Range range = printDoc.Content; //全中printDoc里的全部內(nèi)容,printDoc是目標(biāo)保存文檔.
range.Collapse(ref oMissing); //確定粘貼的位置,其實(shí)這個地方我想放一個有效的參數(shù),把粘貼的位置設(shè)為文檔的末尾,而不是用默認(rèn)的文檔的最前面,但是幫助文檔是VB寫的,傳了一個Direction:=wdCollapseEnd的東東,我弄半天沒弄出來,虧我還是懂VB的~~傷心~以至于我都忘了傳個空值過去,卡了老半天!謝謝某人和我發(fā)了幾條短信,就一下把我打通了~
range.Paste(); //粘貼到目標(biāo)位置,一次填寫就完成了.
雖然是這樣,但是在生成目標(biāo)文檔的時(shí)候也是很耗資源的,我看了一下那程序竟然占了100多M的內(nèi)存!!而且~~而且~~我的機(jī)器在前兩次實(shí)驗(yàn)都沒頂住!死機(jī)了~~當(dāng)時(shí)真是在抓狂了~誰知道后來幾次竟然無聲無息的成功!可是想想學(xué)院那機(jī)器能扛住么~~哎繼續(xù)優(yōu)化吧!這次把界面也改了一下,上面的生成在一的單獨(dú)線程里,以至于主界面不會像死了樣的,而且在主界面上還做了個顯示生成狀態(tài)的Lable,這東西還真管用~后面兩次的實(shí)驗(yàn),看著已生成數(shù)目超過前兩次死機(jī)的數(shù)目~~緊張的心情緩解了~再看著數(shù)目超過100~~高興了~最后慢慢接近完成數(shù)目時(shí)~~興奮得抓狂!!!!!哈~~
哎~廢話多了點(diǎn)~有用的就那么幾行代碼~
AspNet技術(shù)：.net下實(shí)現(xiàn)Word動態(tài)填加數(shù)據(jù)打印，轉(zhuǎn)載需保留來源！
鄭重聲明：本文版權(quán)歸原作者所有，轉(zhuǎn)載文章僅為傳播更多信息之目的，如作者信息標(biāo)記有誤，請第一時(shí)間聯(lián)系我們修改或刪除，多謝。
