冷面閻羅

          低調做人&&高調做事
          隨筆 - 208, 文章 - 3, 評論 - 593, 引用 - 0
          數據加載中……

          javasript打印word表格

          題前:
                  前段時間由于某些原因,短暫離開這里,期間收到不好BLOG自動回復的郵件,發現仍有很多人在關注我,關注我之前寫的文章,自己想想還是舍不得這里,舍不得BLOGJAVA,舍不得這里的朋友,交口.....不知道你們還好吧。

               今天我寫的是這樣的一篇文章,前幾天打印word報表,客戶要求打印報告的時候將多個表格連在一起,每個表的頭要求換頁依舊能顯示。

               后面一個要求比較容易實現,word中自帶了一個標題行重復,就可以實現“每個表的頭要求換頁依舊能顯示”,這個功能有一個前提:重復的行必須帶表格的第一行,這也正好是我客戶的要求之一。

                但是多個表格連在一起的時候,打印的時候上下表格如何怎么接近,都會顯示出兩條非常接近的線,不滿足客戶的要求,而且還不美觀。
               后來我就想到這樣的方法,將前一個表的最后一行的下線去掉,這樣上下表格之間只有一條線,雖然中間還是有一點點短的地方,客戶看了非常滿意。
               這樣做有個BUG:如果表A正好一頁,下一頁是另一張表,那表A的最后一行沒有,打印的時候表格少了下行,實在難看,也不是表格。

               解決的部分:先通過word的宏看了一下怎么畫表格的下線,判斷光標所在的頁,javascript打印的時候判斷一個表的最后一行和下一個表格的第一行是不是在一頁上,如果不在一頁上,那前一個表格就增加下線。

                判斷的這個方法如下:
          function Page (table1,row1,table2,row2){
                  myDoc.Tables(table1).Rows(row1).Select(); 
                  var page
          =wordApp.Selection.Information(3) ;
                    myDoc.Tables(table2).Rows(row2).Select();
                  var page1
          =wordApp.Selection.Information(3) ;  
                  
          if(page1>page) 
                    myDoc.Tables(table1).Borders.OutsideLineStyle
          =1;    
          }
            
               非常難伺候的客戶大爺,看了打印后的報表,終于笑了,不容易啊,幾天的努力總算沒有白費。

          posted on 2008-07-08 20:28 冷面閻羅 閱讀(1534) 評論(2)  編輯  收藏

          評論

          # re: javasript打印word表格  回復  更多評論   

          今天還看到其它一篇介紹js導出到word的文章,加上你這篇,都很不錯,只是我想知道的是一些api方法,比如myDoc.Tables(table2).Rows(row2).Select();
          很簡單的一個Select(),先前不知道,這些內容可以到哪里去學習呢?
          我本來想訪問microsoft的網站看看的,無奈現在訪問不了啊
          2008-07-09 13:14 | 44you

          # re: javasript打印word表格  回復  更多評論   

          呵呵,又學到了一招。
          2008-07-10 07:03 | @beyondwcm

          只有注冊用戶登錄后才能發表評論。


          網站導航:
           
          主站蜘蛛池模板: 安塞县| 嵩明县| 崇左市| 喀喇沁旗| 府谷县| 东兰县| 探索| 蓬莱市| 施甸县| 报价| SHOW| 阿尔山市| 沾益县| 房产| 湟中县| 灌阳县| 楚雄市| 衡阳市| 海阳市| 界首市| 基隆市| 丰都县| 慈溪市| 孟村| 安岳县| 锡林浩特市| 宁德市| 额济纳旗| 金堂县| 衡水市| 蒙山县| 六安市| 桃园市| 丰城市| 河源市| 彰化市| 舒城县| 枣庄市| 铜鼓县| 安乡县| 濮阳县|