VBS设置打印页眉
2004-10-21 23:36
393 查看
<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,""
window.alert "成功清空打印页眉和页脚!"
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"
window.alert "成功恢复打印页眉和页脚!"
end function
</script>
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,""
window.alert "成功清空打印页眉和页脚!"
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"
window.alert "成功恢复打印页眉和页脚!"
end function
</script>
相关文章推荐
- VBS设置打印页眉
- 利用vbs脚本设置IE的打印页眉页脚信息(zhuan)
- 利用vbs脚本实现设置IE的打印页眉页脚信息
- 利用vbs脚本设置IE的打印页眉页脚信息
- 使用VBS实现打印页眉和页脚设置
- 使用VBS实现打印页眉和页脚设置
- IE浏览器打印的页眉页脚设置解决方法
- IE浏览器打印的页眉页脚设置解决方法
- WEB 打印 页眉页脚设置
- js 设置网页打印的页眉页脚和页边距
- JS调用打印方法设置页眉页脚的实例
- 打印html时设置去掉页眉页脚 简单一行代码搞定(记录一下)
- IE浏览器打印的页眉页脚设置解决方法
- 设置网页打印的页眉页脚
- 浏览器菜单打印页眉页脚的设置
- WebBrowser设置打印页眉页眉和页边距
- IE打印设置 页眉和页脚文本框中的符号及含义
- Javascript页面打印的页眉页脚的清除与设置
- 设置html页面打印的页眉页脚
- IE中设置页眉和页脚的打印格式