JavaScript打印页面去除页眉页脚 VBScriptWEB打印,去页眉和页脚

//注册表路径

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_key1="header";

hkey_key2="footer";

RegWsh.RegWrite(hkey_root+hkey_path+hkey_key1,"");

RegWsh.RegWrite(hkey_root+hkey_path+hkey_key2,"");

}catch(e)...{}

}

//设置页眉页脚为默认值

function PageSetup_Default()

...{

try...{

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

hkey_key1="header";

hkey_key2="footer";

RegWsh.RegWrite(hkey_root+hkey_path+hkey_key1,"&w&b页码，&p/&P");

RegWsh.RegWrite(hkey_root+hkey_path+hkey_key2,"&u&b&d");

}catch(e)...{}

}

function printReport()...{

PageSetup_Null();//设置页眉页脚为空

window.print();//打印页面

PageSetup_Default();//设置页眉页脚为默认值

}

1. IE浏览器. 文件->页面设置.

把页脚去掉就行了.

2.用代码.

//有提示的..

<HEAD>

<TITLE> New Document </TITLE>

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>

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

="button" value="恢复页吗" onclick=pagesetup_default()><br>

</p>

</BODY>

</HTML>