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

【 tulaoshi.com - Web开发 】

//注册表路径
var hkey_root,hkey_path,hkey_key;
hkey_root="HKEY_CURRENT_USER";
hkey_path="SoftwareMicrosoftInternet ExplorerPageSetup";
 
//设置页眉页脚为空  
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
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="SoftwareMicrosoftInternet ExplorerPageSetup"
'//设置网页打印的页眉页脚为空
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
brp align=center
input type="button" value="清空页码" onclick=pagesetup_null() input type

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

/p
/BODY
/HTML