如何除到最顶上的页名和页码(web打印)

1.如何除到最顶上的页名和页码  
  文件->打印设置  
  把页眉和页脚都清除掉..  
   
  用JavaScript实现,会有提示的..  
   
  <HTML>    
  <HEAD>    
  <TITLE>   New   Document   </TITLE>    
  <META   NAME="Generator"   CONTENT="EditPlus">    
  <META   NAME="Author"   CONTENT="YC">    
  <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>    
  </HEAD>    
   
  <BODY>    
  <br>    
  <br>    
  <br>    
  <br>    
  <br>    
  <br><p   align=center>    
  <input   type="button"   value="清空页码"   onclick=pagesetup_null()>   <input   type="button"   value="恢复页吗"   onclick=pagesetup_default()><br>    
   
  </p>    
  </BODY>    
  </HTML>     
 

你可能感兴趣的:(如何除到最顶上的页名和页码(web打印))