WEB打印设置解决方案一

     以下是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