WEB打印设置解决方案一（通过修改注册表改变IE打印设置）

以下是IE打印设置脚本
 <script language="VBScript">
　　　　 Dim hkey_root,hkey_path,hkey_key

　　 hkey_root  = "HKEY_CURRENT_USER"
　　　　 hkey_path = "\Software\Microsoft\Internet Explorer\PageSetup"　 //IE打印设置的注册表地址

　　 //设置修改函数
　　　　 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>

  除了以上键值以外还有以下几项，其值有待确认。
  duplex
  orientation
  paper_size
  paper_source
  PRinter

  注意：上面对页边距的设置为：1，实际设置值为25.4。