<HTML> <HEAD> <TITLE>New Document </TITLE> <META NAME="Generator" CONTENT="EditPlus"> <META NAME="Author" CONTENT="YC"> <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> </HEAD> <BODY> <table width="100%" border=2 cellspacing=1 align=center cellpadding=1 id=tb1> <tr> <td> <br> <br> <br> <p align="center"> <input type="button" value="Clean" onclick="pagesetup_null()"> <input type="button" value="Reset" onclick="pagesetup_default()"><br> </p> </td> </tr> </table> </BODY> </HTML>
除了以上键值以外还有 duplex orientation paper_size paper_source printer
注意:上面对页边距的设置为:1,实际设置值为25.4。 
|