<html>
          <head>
          <style media=print> 
          /*
          * @breif: 用本樣式在打印時(shí)隱藏非打印項(xiàng)目
          */
          .Noprint
          {
           display:none;
          }
          /*
          * @breif: 控制分頁(yè)
          */
          .PageNext
          {
           page-break-after: always;
          }
          </style>

          <script  type="text/javascript">  
          var HKEY_root,HKEY_Path,HKEY_Key;
          HKEY_Root="HKEY_CURRENT_USER";
          HKEY_Path="\\Software\\microsoft\\Internet Explorer\\PageSetup\\";
          //設(shè)置網(wǎng)頁(yè)打印的頁(yè)眉頁(yè)腳為空
          function PageSetup_Null()
          {
           try
           {
            var Wsh=new ActiveXObject("WScript.shell");
            HKEY_Key="header";
            Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,"");
            HKEY_Key="footer";
            Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,"");
           }
           catch(e)
           {
            alert(e.message);
           }
          }
          //設(shè)置網(wǎng)頁(yè)打印的頁(yè)眉頁(yè)腳為默認(rèn)值
          function  PageSetup_Default()
          {  
           try
           {
            var Wsh=new ActiveXObject("WScript.Shell");
            HKEY_Key="header";
            Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,"&w&b頁(yè)碼,&p/&P");
            HKEY_Key="footer";
            Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,"&u&b&d");
           }
           catch(e)
           {
            alert(e.message);
           }
          }
          </script>
          </head>
          <body>
          <p>Web.ExecWB(2,1):關(guān)閉現(xiàn)在所有的IE窗口,并打開一個(gè)新窗口</p> 
          <p>webBrowser.ExecWB(1,1): 打開</p> 
          <p>Web.ExecWB(4,1): 保存網(wǎng)頁(yè)</p> 
          <p>Web.ExecWB(6,1): 打印</p> 
          <p>Web.ExecWB(7,1): 打印預(yù)覽</p> 
          <p>Web.ExecWB(8,1): 打印頁(yè)面設(shè)置</p> 
          <p>Web.ExecWB(10,1): 查看頁(yè)面屬性</p> 
          <p>Web.ExecWB(15,1): 好像是撤銷,有待確認(rèn)</p> 
          <p>Web.ExecWB(17,1): 全選</p> 
          <p>Web.ExecWB(22,1): 刷新</p> 
          <p>Web.ExecWB(45,1): 關(guān)閉窗體無提示</p> 
          <object  id="WebBrowser"  width=0  height=0  classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2">    
          </object>    
          <center class="Noprint" >
          <br>
          <input type=button value=打印 onclick=document.all.WebBrowser.ExecWB(6,1)> 
          <br>
          <input type=button value=直接打印 onclick=document.all.WebBrowser.ExecWB(6,6)> 
          <br>
          <input type=button value=頁(yè)面設(shè)置 onclick=document.all.WebBrowser.ExecWB(8,1)> 
          <br>
          <input type=button value=打印預(yù)覽 onclick=document.all.WebBrowser.ExecWB(7,1)> 
          <br>
          </center> 
          <br>
          <input type="button" value="清空頁(yè)碼" onclick=PageSetup_Null()>
          <br>
          <input type="button" value="恢復(fù)頁(yè)碼" onclick=PageSetup_Default()>
          </body>
          </html>

          posted on 2007-09-19 08:55 -274°C 閱讀(1855) 評(píng)論(3)  編輯  收藏 所屬分類: 計(jì)算機(jī)綜合web前端


          FeedBack:
          # re: 關(guān)于網(wǎng)頁(yè)上支持打印的一些腳本總結(jié)
          2007-09-19 08:58 | -274°C
          var Wsh=new ActiveXObject("WScript.Shell"); 看著這些,感覺這是比較危險(xiǎn)的操作。  回復(fù)  更多評(píng)論
            
          # re: 關(guān)于網(wǎng)頁(yè)上支持打印的一些腳本總結(jié)
          2007-09-28 16:33 | 千里冰封
          JS還是很強(qiáng)大的  回復(fù)  更多評(píng)論
            
          # re: 網(wǎng)頁(yè)打印腳本
          2011-05-09 15:27 | 月建
          請(qǐng)問 我怎么不能直接打印 不管點(diǎn)"打印" 還是"直接打印" 都會(huì)show出一個(gè)選擇打印機(jī)的 窗口出來...我的 郵箱284085406@qq.com; 知道問題的 請(qǐng)幫我解決一下 謝謝  回復(fù)  更多評(píng)論
            

          常用鏈接

          留言簿(21)

          隨筆分類(265)

          隨筆檔案(242)

          相冊(cè)

          JAVA網(wǎng)站

          關(guān)注的Blog

          搜索

          •  

          積分與排名

          • 積分 - 914107
          • 排名 - 40

          最新評(píng)論

          主站蜘蛛池模板: 皮山县| 余姚市| 疏勒县| 阜新市| 农安县| 灌阳县| 沁水县| 东明县| 安顺市| 苗栗县| 女性| 天门市| 广水市| 陆川县| 钟祥市| 巫山县| 文昌市| 濮阳县| 砀山县| 黔南| 房山区| 石渠县| 四会市| 阳信县| 阿拉善盟| 苏尼特右旗| 沭阳县| 旬邑县| 西华县| 凉城县| 福贡县| 泗洪县| 天等县| 土默特右旗| 深泽县| 开原市| 安丘市| 大关县| 彰化县| 陈巴尔虎旗| 南昌县|