取消IE打印时出现的页眉和页脚

最新推荐文章于 2022-02-18 17:58:25 发布

Arthur

最新推荐文章于 2022-02-18 17:58:25 发布

阅读量1.5k

点赞数

分类专栏： VBScript 文章标签： ie vbscript function html

本文链接：https://blog.csdn.net/dingbaosheng/article/details/623836

版权

VBScript 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>取消页眉页脚</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="5" marginwidth="0" marginheight="0">
<script language=vbscript>
function setup_page
Msgbox "本页是为取消IE打印时出现的页眉和页脚而设置,"+Chr(13)+"通过修改注册表实现的,可能会引起IE安全警告,"+Chr(13)+"请在下面可能出现的提示框中按[是(Y)],取消操作"+chr(13)+"请按[否(N)]!",48+0,"提示"
Dim wsh
Set wsh = CreateObject("WScript.Shell")
on error resume next
wsh.RegWrite "HKCU/Software/Microsoft/Internet explorer/PageSetup/header", "", "REG_SZ"
wsh.RegWrite "HKCU/Software/Microsoft/Internet Explorer/PageSetup/footer", "", "REG_SZ"
IF wshErrors.Count=0 Then
Msgbox "成功取消IE打印时出现的页眉和页脚!",48+0,"恭喜"
end if
end function
setup_page()
</script>
</body>
</html>

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

Arthur

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
取消IE打印时出现的页眉和页脚

取消页眉页脚 function setup_page Msgbox "本页是为取消IE打印时出现的页眉和页脚而设置,"+Chr(13)+"通过修改注册表实现的,可能会引起IE安全警告,"+Chr(13)+"请在下面可能出现的提示框中按[是(Y)],取消操作"+chr(13)+"请按[否(N)]!",48+0,"提示" Dim wsh Set
复制链接

扫一扫