嘟嘟鱼<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″ />
<title>页面控制</title>
</head>
<style media=”print”>
.pageNext{
page-break-after:always
}
</style>
<script language=”vbscript”>
function pageSet()//设置页眉页脚为空
dim hkey_root,hkey_path,hkey_key,RegWsh
hkey_root=”HKEY_CURRENT_USER”
hkey_path=”\Software\Microsoft\Internet Explorer\PageSetup”
Set RegWsh = CreateObject(“WScript.Shell”)
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,””
hkey_key=”\footer”
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,””
end function
function pagesetup_default()//设置页眉页脚为默认值
dim hkey_root,hkey_path,hkey_key,RegWsh
hkey_root=”HKEY_CURRENT_USER”
hkey_path=”\Software\Microsoft\Internet Explorer\PageSetup”
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>
<body>
<OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0></OBJECT>
<input type=”button” value=”打开” onclick=”document.all.WebBrowser.ExecWB(1,1)”>
<input type=”button” value=”新建” onclick=”document.all.WebBrowser.ExecWB(2,1)”>
<input type=”button” value=”保存” onclick=”document.all.WebBrowser.ExecWB(3,1)”>
<input type=”button” value=”另存为” onclick=”document.all.WebBrowser.ExecWB(4,1)”>
<input type=”button” value=”属性” onclick=”document.all.WebBrowser.ExecWB(10,1)”>
<input type=”button” value=”打印” onclick=”document.all.WebBrowser.ExecWB(6,1)”>
<input type=”button” value=”直接打印” onclick=”document.all.WebBrowser.ExecWB(6,6)”>
<input type=”button” value=”打印预览” onclick=”document.all.WebBrowser.ExecWB(7,1)”>
<input type=”button” value=”页面设置” onclick=”document.all.WebBrowser.ExecWB(8,1)”>
<input type=”button” value=”撤消” onclick=”document.all.WebBrowser.ExecWB(15,1)”>
<input type=”button” value=”全选” onclick=”document.all.WebBrowser.ExecWB(17,1)”>
<input type=”button” value=”刷新” onclick=”document.all.WebBrowser.ExecWB(22,1)”>
<input type=”button” value=”无提示关闭” onclick=”document.all.WebBrowser.ExecWB(45,1)”>
</body>
</html>
