VBSCRIPT控制网页打印页眉和页脚

 

代码

<meta content="EditPlus" name="Generator" />
<meta content="YC" name="Author" />
<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 
'//
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><table id="tb1" cellspacing="1" cellpadding="1" width="100%" align="center" border="2">
    <tbody>
        <tr>
            <td><br />
            <br />
            <br />
            <p align="center"><input onclick="pagesetup_null()" type="button" value="Clean"> <input onclick="pagesetup_default()" type="button" value="Reset"><br />
            </p>
            </td>
        </tr>
    </tbody>
</table>

 

 

转载于:https://www.cnblogs.com/seamanhy/archive/2010/03/31/1701448.html