如何使用脚本调用浏览器的页面设置和打印预览功能？

<OBJECT classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 id=WebBrowser width=0>
  </OBJECT> 
  <input onclick=document.all.WebBrowser.ExecWB(1,1) type=button value=打开 name=Button1>
  <input onclick=document.all.WebBrowser.ExecWB(4,1) type=button value=另存为 name=Button2>        
  <input onclick=document.all.WebBrowser.ExecWB(10,1) type=button value=属性 name=Button3>        
  <input onclick=document.all.WebBrowser.ExecWB(6,1) type=button value=打印 name=Button>        
  <input onclick=document.all.WebBrowser.ExecWB(8,1) type=button value=页面设置 name=Button4>               
  <input onclick=window.location.reload() type=button value=刷新 name=refresh>        
  <input onclick="window.external.ImportExportFavorites(true,'');" type=button value=导入收藏夹 name=Button5>        
  <input onclick="window.external.ImportExportFavorites(false,'');" type=button value=导出收藏夹 name=Button32>        
  <input onclick="window.external.AddFavorite(location.href, document.title)" type=button value=加入收藏夹 name=Button22>

解决方案 »

  1.   

    谢谢，我再补充一个
    <input type="button" onclick="document.all.WebBrowser.ExecWB(7,1)" value="打印预览">
    这个只有IE6以上支持
      

  2.   

    <html>
    <head>
    <title></title>
    <script language="javascript">
       function printsetup()
       {
       //打印页面设置
         wb.execwb(8,1);
       }
       function printpreview()
       {
       //打印页面预览
          wb.execwb(7,1);
        }
       function printit()
       {
          if (confirm('确定打印吗？')) 
           {
     wb.execwb(6,1)
    }
        }
    </script><script language=javascript>
      //浮动帧打印
      function fudong() 
      {
       var odoc=window.document;
       var r=odoc.body.createTextRange();
       var stxt=r.htmlText;
       alert(stxt)
       var pwin=window.open("","print");
       pwin.document.write(stxt);
       pwin.print();
      }
    </script><script language="VBScript">
      dim hkey_root,hkey_path,hkey_key
      hkey_root="HKEY_CURRENT_USER"
      hkey_path="\Software\Microsoft\Internet Explorer\PageSetup"  '//设置网页打印的页眉页脚为空
      function pagesetup_null()
        on error resume next
        Set RegWsh = CreateObject("WScript.Shell")
        hkey_key="\header"    
        RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
        hkey_key="\footer"
        RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
      end function  '//设置网页打印的页眉页脚为默认值
      function pagesetup_default()
        on error resume next
        Set RegWsh = CreateObject("WScript.Shell")
        hkey_key="\header"    
        RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&w&b页码，&p/&P"
        hkey_key="\footer"
        RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&u&b&d"
      end function
    </script>