网页打印时如何去掉页面底部的路径和顶端的页码编号

最新推荐文章于 2024-12-27 16:34:00 发布

原创最新推荐文章于 2024-12-27 16:34:00 发布 · 6.5k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#function #path #vbscript #generator #button

.NET 专栏收录该内容

13 篇文章

订阅专栏

这篇博客介绍了一个使用VBScript实现的功能，通过修改注册表来清除或恢复网页打印时的页码和路径信息。提供了两个按钮，分别用于清空页眉页脚和恢复默认设置，便于用户自定义打印样式。

（1）最简单的就是设置IE属性了------在ie浏览器的页面设置中除掉页眉、页角的内容，打印就不出来了。
（2）写代码实现

<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()
          _disibledevent=   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()
          _disibledevent=   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="清空页码"   _disibledevent=pagesetup_null()>   <input   type="button"   value="恢复页吗"   _disibledevent=pagesetup_default()><br/>

</p>
</BODY>
</HTML>