asp开发:通过修改注册表改变IE打印设置

以下是IE打印设置脚本bEf中国设计秀
 <script language="VBScript"> bEf中国设计秀
         Dim hkey_root,hkey_path,hkey_keybEf中国设计秀

         hkey_root  = "HKEY_CURRENT_USER" bEf中国设计秀
         hkey_path = "SoftwareMicrosoftInternet ExplorerPageSetup"   //IE打印设置的注册表地址bEf中国设计秀

         //设置修改函数bEf中国设计秀
         function pagesetup_null() bEf中国设计秀
               On Error Resume NextbEf中国设计秀

               Set RegWsh = CreateObject("WScript.Shell") bEf中国设计秀
               hkey_key="header" bEf中国设计秀
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"" //页眉bEf中国设计秀

               hkey_key="footer" bEf中国设计秀
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""  //页脚bEf中国设计秀

               hkey_key="margin_left" bEf中国设计秀
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1"  //键值设定--左边边界bEf中国设计秀

               hkey_key="margin_top" bEf中国设计秀
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1" //键值设定--上边边界bEf中国设计秀

               hkey_key="margin_right" bEf中国设计秀
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1" //键值设定--右边边界bEf中国设计秀

               hkey_key="margin_bottom" bEf中国设计秀
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1" //键值设定--下边边界bEf中国设计秀
         end function bEf中国设计秀
         bEf中国设计秀
         //恢复默认设置bEf中国设计秀
         function pagesetup_default() bEf中国设计秀
               On Error Resume Next bEf中国设计秀
               Set RegWsh = CreateObject("WScript.Shell")bEf中国设计秀

               hkey_key="header" bEf中国设计秀
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&w&b页，&p/&P"  //页数-bEf中国设计秀

               hkey_key="footer" bEf中国设计秀
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&u&b&d"  //网址，日期等信息bEf中国设计秀
         end function bEf中国设计秀
  </script>bEf中国设计秀

  除了以上键值以外还有以下几项，其值有待确认。bEf中国设计秀
  duplexbEf中国设计秀
  orientationbEf中国设计秀
  paper_sizebEf中国设计秀
  paper_sourcebEf中国设计秀
  PRinterbEf中国设计秀

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