加载中…WEB打印,去页眉和页脚
(2009-01-14 17:35:02)
标签：
it |
分类： 网络技术 |
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="\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,""
hkey_key="\margin_left"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1" //键值设定--左边边界
hkey_key="\margin_top"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1" //键值设定--上边边界
hkey_key="\margin_right"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1" //键值设定--右边边界
hkey_key="\margin_bottom"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1" //键值设定--下边边界
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>
<br><p
align=center>
<input type="button" value="清空页码"
onclick=pagesetup_null()> <input
type
="button" value="恢复页吗"
onclick=pagesetup_default()><br>
</p>
</BODY>
</HTML>
除了以上键值以外还有以下几项，其值有待确认。
duplex
orientation
paper_size
paper_source
printer
注意：上面对页边距的设置为：1，实际设置值为25.4。
喜欢
0
赠金笔