WEB打印设置解决方案一

发表于:2007-07-14来源:作者:点击数: 标签:
以下是IE打印设置脚本 script language=" VB Script" Dim hkey_root,hkey_path,hkey_key hkey_root = "HKEY_CURRENT_USER" hkey_path = "\Software\Microsoft\Inte .net Explorer\PageSetup" //IE打印设置的注册表地址 //设置修改函数 function pagesetup_nu
以下是IE打印设置脚本
 <script language="VBScript">
         Dim hkey_root,hkey_path,hkey_key

         hkey_root  = "HKEY_CURRENT_USER"
         hkey_path = "\Software\Microsoft\Inte.net 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。


原文转自:http://www.ltesting.net