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
        
         //恢复默认设置

[1] [2] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:增强记忆 给系统换个强力剪贴板

下一篇:WEB打印设置解决方案二（利用ScriptX.cab控件改变IE打印设置）