控制打印时页眉角的代码

复制代码 代码如下:

  <script language="JScript">

  var hkey_root,hkey_path,hkey_key

  hkey_root="HKEY_CURRENT_USER"

  hkey_path="\\Software\\Microsoft\\Internet Explorer\\PageSetup\\"

  //设置网页打印的页眉页脚为空

  function pagesetup_null()

  {

  try{

  var RegWsh = new ActiveXObject("WScript.Shell")

  hkey_key="header"

  RegWsh.RegWrite(hkey_root+hkey_path+hkey_key,"")

  hkey_key="footer"

  RegWsh.RegWrite(hkey_root+hkey_path+hkey_key,"")

  }catch(e){alert(e.name+"  "+e.message)}

  }

  //设置网页打印的页眉页脚为默认值

  function pagesetup_default()

  {

  try{

  var RegWsh = new ActiveXObject("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")

  }catch(e){alert(e.name+"  "+e.message)}

  }

  </script>

  <body >

  <input type="button" value="恢复页码" onclick=pagesetup_default()>

  <input type="button" value="清空页码" onclick=pagesetup_null()>

  </body>

  </html>