内容显示页

window.print vbscript 设置打印页眉页脚为空

类别：JavaScript　|　浏览(2397)　|　2007-11-8 10:53:51

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>WEB打印,去页眉和页脚</title> <script language="VBScript"type="text/vbscript"> '//设置网页打印的页眉页脚为空 function pagesetup_null() on error resume next Set RegWsh = CreateObject("WScript.Shell") hkey_root="HKEY_CURRENT_USER" hkey_path="\Software\Microsoft\Internet Explorer\PageSetup" 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_root="HKEY_CURRENT_USER" hkey_path="\Software\Microsoft\Internet Explorer\PageSetup" 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 /> <div></div> <br /> <br /> <p align="center"> <input type="button" value="去页眉页脚并打印本页" onclick="vbscript:me.style.visibility ='hidden':pagesetup_null():window.print" /> <input type="button" value="清空页码" onclick="pagesetup_null()" /> <input type="button" value="恢复页吗" onclick="pagesetup_default()" /> <br /> </p> </body> </html>
可修改代码后再运行

他的实现方法与手动实现方法是一样的：

打开IE--》页面设置--》页眉，页脚，把里面的字符删除。

引用本页地址：http://www.yongfa365.com/item/windowprintvbscript-She-Zhi-Da-Yin-Ye-Mei-Ye-Jiao-Wei-Kong.html

上一篇：CSS一个网页多种链接的写法
下一篇：柳永法：网站设计杂谈