1.对IE浏览器进行设置
文件-〉页面设置-〉将里面的页眉和页脚的内容清空 就OK了
2.页面代码实现 Javascript
<!--<br /><br />Code highlighting produced by Actipro CodeHighlighter (freeware)<br />http://www.CodeHighlighter.com/<br /><br />-->
<!--
startprint
-->
// 您要打印的部分;
<!-- endprint -->
< div >< input tupe = botton name = " Print " value = " 打印 " onclick = " prit() " < / div>
// 教本如下:
< script language = " javascript " >
function prit()
{ bdhtml = window.document.body.innerHtml;
strstart = " <!-- startprint --> " ;
strend = " <!-- end --> " ;
prnstr = bdhtml.substr(bdhtml,indexof(strstart) + 17 )
prnstr = bdhtml.substring( 0 ,prnstr.indexof(strend))
window.document.body.innerHtml = prnstr;
window.print();
}
< / script>
// 您要打印的部分;
<!-- endprint -->
< div >< input tupe = botton name = " Print " value = " 打印 " onclick = " prit() " < / div>
// 教本如下:
< script language = " javascript " >
function prit()
{ bdhtml = window.document.body.innerHtml;
strstart = " <!-- startprint --> " ;
strend = " <!-- end --> " ;
prnstr = bdhtml.substr(bdhtml,indexof(strstart) + 17 )
prnstr = bdhtml.substring( 0 ,prnstr.indexof(strend))
window.document.body.innerHtml = prnstr;
window.print();
}
< / script>
把要打印的内容用HTML读出来,然后去掉里面的页眉页脚,然后打印去掉之后的html代码
3.
<!--<br /><br />Code highlighting produced by Actipro CodeHighlighter (freeware)<br />http://www.CodeHighlighter.com/<br /><br />-->
<
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 />< p align =center >
< input type ="button" value ="清空页码" onclick =pagesetup_null() > < input type ="button" value ="恢复页吗" onclick =pagesetup_default()>
< 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 />< p align =center >
< input type ="button" value ="清空页码" onclick =pagesetup_null() > < input type ="button" value ="恢复页吗" onclick =pagesetup_default()>