如题

解决方案 »

  1.   

    <script  language=vbscript>
                dim hkey_root,hkey_path,hkey_key
                hkey_root="HKEY_CURRENT_USER"
                hkey_path="\Software\Microsoft\Internet Explorer\PageSetup"
                
                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,""
                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>
    不知道行不行..
      

  2.   

    用Js/VB的做法不太安全,最好还是用户自己设置,
    js代码如楼上的,设置<body onload="pagesetup_null"></body>
    用户设置在页面设置里
      

  3.   

    下载个printer的一个ActiveX里面有设置的好象是用Javascript设置,具体好久没用了.