利用vbs脚本设置IE的打印页眉页脚信息
2007-02-25 09:45
726 查看
将下面的内容保存成.vbs文件,然后双击执行,在打开ie页面,在页面中点击右键,看看菜单中多了个什么!!:)
Option Explicit
dim hkey_root,hkey_path,hkey_key,filePath
dim fs,fso,RegWsh
hkey_root="HKEY_CURRENT_USER"
hkey_path="/Software/Microsoft/Internet Explorer"
'//先创建文件
set fs=Wscript.CreateObject("Scripting.FileSystemObject")
filePath="C:/pagesetup_default.htm"
set fso=fs.CreateTextFile(filePath,true)
fso.write("<script language=""VBScript"">"+vbcrlf _
+"dim hkey_root,hkey_path,hkey_key,filePath,RegWsh" +vbcrlf _
+"hkey_root=""HKEY_CURRENT_USER""" +vbcrlf _
+"hkey_path=""/Software/Microsoft/Internet Explorer""" +vbcrlf _
+"filePath=""C:/pagesetup_null.htm""" +vbcrlf _
+"'//设置网页打印的页眉页脚为默认值"+vbcrlf _
+"Set RegWsh = CreateObject(""WScript.Shell"")" +vbcrlf _
+"hkey_key=""/PageSetup/header""" +vbcrlf _
+"RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""&w&b页码:&p/&P""" +vbcrlf _
+"hkey_key=""/PageSetup/footer""" +vbcrlf _
+"RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""&u&b&d""" +vbcrlf _
+"'//设置右键菜单上的显示文字" +vbcrlf _
+"'//首先删除原来的项,然后再设置新的项"+vbcrlf _
+"on error resume next" +vbcrlf _
+"hkey_key=hkey_root+hkey_path+""/MenuExt/打印时恢复页眉页脚/""" +vbcrlf _
+"RegWsh.RegDelete hkey_key" +vbcrlf _
+"hkey_key=hkey_root+hkey_path+""/MenuExt/打印时去掉页眉页脚/""" +vbcrlf _
+"RegWsh.RegWrite hkey_key,filePath" +vbcrlf _
+"'//关闭RegWsh" +vbcrlf _
+"set RegWsh=nothing"+vbcrlf _
+"</script>")
fso.close
filePath="C:/pagesetup_null.htm"
set fso=fs.CreateTextFile(filePath,true)
fso.write("<script language=""VBScript"">" +vbcrlf _
+"dim hkey_root,hkey_path,hkey_key,filePath,RegWsh" +vbcrlf _
+"hkey_root=""HKEY_CURRENT_USER""" +vbcrlf _
+"hkey_path=""/Software/Microsoft/Internet Explorer""" +vbcrlf _
+"filePath=""C:/pagesetup_default.htm""" +vbcrlf _
+"'//设置网页打印的页眉页脚为空" +vbcrlf _
+"Set RegWsh =CreateObject(""WScript.Shell"")" +vbcrlf _
+"hkey_key=""/PageSetup/header""" +vbcrlf _
+"RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""""" +vbcrlf _
+"hkey_key=""/PageSetup/footer""" +vbcrlf _
+"RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""""" +vbcrlf _
+"'//设置右键菜单上的显示文字" +vbcrlf _
+"'//首先删除原来的项,然后再设置新的项" +vbcrlf _
+"on error resume next"+vbcrlf _
+"hkey_key=hkey_root+hkey_path+""/MenuExt/打印时去掉页眉页脚/""" +vbcrlf _
+"RegWsh.RegDelete hkey_key"+vbcrlf _
+"hkey_key=hkey_root+hkey_path+""/MenuExt/打印时恢复页眉页脚/""" +vbcrlf _
+"RegWsh.RegWrite hkey_key,filePath" +vbcrlf _
+"'//关闭RegWsh" +vbcrlf _
+"set RegWsh=nothing"+vbcrlf _
+"</script>")
fso.close
set RegWsh=WScript.CreateObject("WScript.Shell")
hkey_key=hkey_root+hkey_path+"/MenuExt/打印时去掉页眉页脚/"
RegWsh.RegWrite hkey_key,"C:/pagesetup_null.htm"
Option Explicit
dim hkey_root,hkey_path,hkey_key,filePath
dim fs,fso,RegWsh
hkey_root="HKEY_CURRENT_USER"
hkey_path="/Software/Microsoft/Internet Explorer"
'//先创建文件
set fs=Wscript.CreateObject("Scripting.FileSystemObject")
filePath="C:/pagesetup_default.htm"
set fso=fs.CreateTextFile(filePath,true)
fso.write("<script language=""VBScript"">"+vbcrlf _
+"dim hkey_root,hkey_path,hkey_key,filePath,RegWsh" +vbcrlf _
+"hkey_root=""HKEY_CURRENT_USER""" +vbcrlf _
+"hkey_path=""/Software/Microsoft/Internet Explorer""" +vbcrlf _
+"filePath=""C:/pagesetup_null.htm""" +vbcrlf _
+"'//设置网页打印的页眉页脚为默认值"+vbcrlf _
+"Set RegWsh = CreateObject(""WScript.Shell"")" +vbcrlf _
+"hkey_key=""/PageSetup/header""" +vbcrlf _
+"RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""&w&b页码:&p/&P""" +vbcrlf _
+"hkey_key=""/PageSetup/footer""" +vbcrlf _
+"RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""&u&b&d""" +vbcrlf _
+"'//设置右键菜单上的显示文字" +vbcrlf _
+"'//首先删除原来的项,然后再设置新的项"+vbcrlf _
+"on error resume next" +vbcrlf _
+"hkey_key=hkey_root+hkey_path+""/MenuExt/打印时恢复页眉页脚/""" +vbcrlf _
+"RegWsh.RegDelete hkey_key" +vbcrlf _
+"hkey_key=hkey_root+hkey_path+""/MenuExt/打印时去掉页眉页脚/""" +vbcrlf _
+"RegWsh.RegWrite hkey_key,filePath" +vbcrlf _
+"'//关闭RegWsh" +vbcrlf _
+"set RegWsh=nothing"+vbcrlf _
+"</script>")
fso.close
filePath="C:/pagesetup_null.htm"
set fso=fs.CreateTextFile(filePath,true)
fso.write("<script language=""VBScript"">" +vbcrlf _
+"dim hkey_root,hkey_path,hkey_key,filePath,RegWsh" +vbcrlf _
+"hkey_root=""HKEY_CURRENT_USER""" +vbcrlf _
+"hkey_path=""/Software/Microsoft/Internet Explorer""" +vbcrlf _
+"filePath=""C:/pagesetup_default.htm""" +vbcrlf _
+"'//设置网页打印的页眉页脚为空" +vbcrlf _
+"Set RegWsh =CreateObject(""WScript.Shell"")" +vbcrlf _
+"hkey_key=""/PageSetup/header""" +vbcrlf _
+"RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""""" +vbcrlf _
+"hkey_key=""/PageSetup/footer""" +vbcrlf _
+"RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""""" +vbcrlf _
+"'//设置右键菜单上的显示文字" +vbcrlf _
+"'//首先删除原来的项,然后再设置新的项" +vbcrlf _
+"on error resume next"+vbcrlf _
+"hkey_key=hkey_root+hkey_path+""/MenuExt/打印时去掉页眉页脚/""" +vbcrlf _
+"RegWsh.RegDelete hkey_key"+vbcrlf _
+"hkey_key=hkey_root+hkey_path+""/MenuExt/打印时恢复页眉页脚/""" +vbcrlf _
+"RegWsh.RegWrite hkey_key,filePath" +vbcrlf _
+"'//关闭RegWsh" +vbcrlf _
+"set RegWsh=nothing"+vbcrlf _
+"</script>")
fso.close
set RegWsh=WScript.CreateObject("WScript.Shell")
hkey_key=hkey_root+hkey_path+"/MenuExt/打印时去掉页眉页脚/"
RegWsh.RegWrite hkey_key,"C:/pagesetup_null.htm"
相关文章推荐
- 利用vbs脚本实现设置IE的打印页眉页脚信息
- 利用vbs脚本设置IE的打印页眉页脚信息(zhuan)
- IE打印设置页眉和页脚
- 使用VBS实现打印页眉和页脚设置
- IE中设置页眉和页脚的打印格式
- 使用VBS实现打印页眉和页脚设置
- IE打印设置 页眉和页脚文本框中的符号及含义
- 如何控制IE打印中页眉和页脚
- JavaScript IE 打印 以及如何去掉页眉页脚
- jquery.PrintArea 局部打印 去掉页眉页脚,但在IE有些版本中不管用。
- Javascript页面打印的页眉页脚的清除与设置
- @media print打印把页眉和页脚全设置为空
- 打印html时设置去掉页眉页脚 简单一行代码搞定(记录一下)
- VBS设置打印页眉
- 使用window.print打印frame框架,可以设置页眉页脚
- js 设置网页打印的页眉页脚和页边距
- 通过javascript设置打印网页时去掉页眉页脚
- WEB打印设置 方案二(利用ScriptX.cab控件改变IE打印设置)
- Windows API 更改注册表键值 + 修改注册表去除IE打印页面的页眉页脚
- js 设置网页打印的页眉页脚和页边距