<!--高手还没起床呢!我试下 -->
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="Microsoft FrontPage 6.0">
<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"
'//设置网页打印的页眉页脚为空
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>
</HEAD><BODY>
<br>
<br>
<br>
<br>
<br>
<br><p align=center>
<input type="button" value="清空页码" onclick=pagesetup_null()> <input type="button" value="恢复页吗" onclick=pagesetup_default()><br></p>
</BODY>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="Microsoft FrontPage 6.0">
<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"
'//设置网页打印的页眉页脚为空
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>
</HEAD><BODY>
<br>
<br>
<br>
<br>
<br>
<br><p align=center>
<input type="button" value="清空页码" onclick=pagesetup_null()> <input type="button" value="恢复页吗" onclick=pagesetup_default()><br></p>
</BODY>
就是将打印内容写入到word或excel,利用它们强大的打印功能打印
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<SCRIPT language=javascript>
function SetPrint(){
document.bgColor='#848284';
document.all('PrintM').style.display="none";
document.all('Hidden1').style.display="none";
document.all('Hidden2').style.display="none";
document.all('ok').style.display="";
}
function StarPrint(){
document.all('ok').style.display="none";
document.all('bg').border="0";
newstr = document.all.xxx.innerHTML;
document.body.innerHTML = newstr;
window.print();
window.close();
}
</SCRIPT>
<style>
A:link {
FONT-SIZE: 9pt; COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
FONT-SIZE: 9pt; COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
FONT-SIZE: 9pt; COLOR: #ff0000; TEXT-DECORATION: none
}</style><title>新闻中心</title></HEAD><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table id="Hidden1" style="border-collapse: collapse" border=5 cellpadding=0 cellspacing=0 align="center" width=85% bordercolor="#60b428">
<tr>
<td bgcolor=#60b428> <font size="2" color="#FFFFFF">当前位置:新闻中心 > 阅读新闻 </font></td>
</tr>
<tr>
<td bgcolor=#b0dc98 align="center"><font size="2">阅读选项:
<script language=JavaScript>
<!--
document.write("文字 <select name=selcolor onchange=setFontColor(this.value)><option value=#000000 selected>黑色</option><option value=#FF0000>红色</option><option value=#FFFFFF>白色</option><option value=#555555>灰色</option><option value=#00FF00>绿色</option><option value=#0000FF>蓝色</option><option value=#00cccc>青色</option><option value=#ffff00>黄色</option></select>背景 <select name=select onchange=setBgColor(this.value)><option style='BACKGROUND-COLOR: #FFFFFF' value=#FFFFFF selected>白色</option><option style='BACKGROUND-COLOR: #FFCCFF' value=#FFCCFF>粉红</option><option style='BACKGROUND-COLOR: #CCCCCC' value=#CCCCCC>灰色</option><option style='BACKGROUND-COLOR: #CCFFCC' value=#CCFFCC>绿色</option><option style='BACKGROUND-COLOR: #99CCFF' value=#99CCFF>蓝色</option><option style='BACKGROUND-COLOR: #000000' value=#000000>黑色</option><option style='BACKGROUND-COLOR: #CCFFFF' value=#CCFFFF>青色</option><option style='BACKGROUND-COLOR: #FFCCCC' value=#FFCCCC>棕色</option></select>");
document.write("字号 <select name=selsize onchange=setFontSize(this.value)><option value=9pt selected>9 pt</option><option value=10pt>10 pt</option><option value=12pt>12 pt</option><option value=14pt>14 pt</option><option value=16pt>16 pt</option><option value=18pt>18 pt</option><option value=24pt>24 pt</option><option value=30pt>30 pt</option></select>字型 <select name=selxing onchange=setFontstyle(this.value)><option value=''>正常</option><option value='bold'>加粗</option></select>");
//-->
</script>
<script language=JavaScript>
<!--
function showad(){document.write(strad);}
function showct(){document.write(strct);}
function setBgColor(color){window.setcolor.bgColor=color;}
function setFontSize(size){window.setcolor.style.fontSize=size;}
function setFontstyle(bold){window.setcolor.style.fontWeight=bold;}
function setFontColor(color){window.setcolor.style.color=color;}function click()
{
if (event.button==2)
{
if(document.all.auto.status==true){document.all.auto.status=false;}
scroller();
alert("已经停止自动滚屏!")
}
}
document.onmousedown=clickvar position = 0;
function scroller()
{
if (document.all.auto.status==true)
{
position++;
scroll(0,position);
clearTimeout(timer);
var timer = setTimeout("scroller()",120);
timer;
}
else
{
clearTimeout(timer);
}
}function Action(jsStr)
{
return eval(jsStr)
}
//--></script>
<input onClick="Action('scroller();')" type=checkbox value=on name=auto>
自动滚屏[右键停止]</font></td>
</tr>
</table>
<div id="xxx" align=center>
<table id="bg" width="85%" border="5" style="border-collapse: collapse" align="center" cellpadding="0" cellspacing="0" bgcolor="#fffff0" bordercolor="#60b428">
<tr>
<td>
<table border=0 style="border-collapse: collapse" align="center" cellpadding="0" cellspacing="0" width="99%">
<tr>
<td align=center height="80"><font size="5" color="#FF0000"><b> <font size="4">云南省企业清洁生产代表团到三环公司参观学习</font></b></font>
<hr align=center noShade size=1 width="100%">
<font color="#006600" size="2">时间:<font color="#FF0000" size="2">2003-10-25
17:55:23</font> 来源:<font color="#FF0000" size="2">信息部</font> 作者
:<font color="#FF0000" size="2">耳闻</font> </font></td>
</tr>
<tr id="setcolor" style="line-height:150%;">
<td >
<div id=htmdiv> 10月24日,由云南省30个企业的50余名人员组成的清洁生产代表团到三环公司进行了实地参观学习。<br>
三环公司总经理明大增、总经理助理薛毅对代表团的到来表示欢迎。他们希望大家在参观过程中多提宝贵的意见和建议,以便公司进一步做好清洁生产工作,为社会、为股东、为员工创造更大的价值。<br>
安全环保部经理许景明从公司实施清洁生产的阶段、经验及存在的不足等方面,向代表团成员介绍了公司实施清洁生产的情况。代表团成员就环保的一些技术问题与许经理交换了意见。<br>
在许经理和廖靖华工程师的陪同下,代表团成员分成两个组到生产现场进行了参观。(倩文)<br>
</div>
</td>
</tr>
</table>
<table id="Hidden2" align=center bgcolor=#b0dc98 border=0 cellpadding=0
cellspacing=1 width="100%">
<tr >
<td height=1 colspan="3" background="../Images/line1.gif"></td>
</tr>
<tr id="PrintM">
<td bgcolor=#b0dc98 align="center" colspan="3"> <font face="Wingdings 2" color="#FF6600" size="3">7</font>
<a class=top4 href="#" onClick="SetPrint()">打印预览</a> <font face="Wingdings 2" color="#FFFFFF"><font color="#FF0000" size="3"><b><font color="#FF6600">S</font></b></font></font><a class=top4 href="#" onClick="javascript:window.close();">
关闭窗口</a> </td>
</tr>
</table>
</td>
</tr>
</table></div>
<p id="ok" style="display:none" align="center">
<input type="button" name="Prin" value="打印" onClick="StarPrint();" >
<input type="button" name="cancel" value="取消" onClick="history.go(0)">
</p>
<br>
<script language="JavaScript">
var HKEY_Root,HKEY_Path,HKEY_Key;
HKEY_Root="HKEY_CURRENT_USER";
HKEY_Path="\\Software\\Microsoft\\Internet Explorer\\PageSetup\\";
//设置网页打印的页眉页脚为空
function PageSetup_Null()
{
try
{
var Wsh=new ActiveXObject("WScript.Shell");
HKEY_Key="header";
Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,"");
HKEY_Key="footer";
Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,"");
}
catch(e){}
}
//设置网页打印的页眉页脚为默认值
function PageSetup_Default()
{
try
{
var Wsh=new ActiveXObject("WScript.Shell");
HKEY_Key="header";
Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,"&w&b页码,&p/&P");
HKEY_Key="footer";
Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,"&u&b&d");
}
catch(e){}
}
</script>
<input type="button" value="清空页码" onclick=PageSetup_Null()>
<input type="button" value="恢复页码" onclick=PageSetup_Default()>
<script language="JavaScript">
var hkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="\\Software\\Microsoft\\Internet Explorer\\PageSetup\\"
//设置网页打印的页眉页脚为空
function pagesetup_null()
{
try{
var RegWsh = new ActiveXObject("WScript.Shell")
hkey_key="header"
RegWsh.RegWrite(hkey_root+hkey_path+hkey_key,"")
hkey_key="footer"
RegWsh.RegWrite(hkey_root+hkey_path+hkey_key,"")
}catch(e){}
}
//设置网页打印的页眉页脚为默认值
function pagesetup_default()
{
try{
var RegWsh = new ActiveXObject("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")
}catch(e){}
}
</script>
</HEAD><BODY><br/><br/><br/><br/><br/><br/><p align=center>
<input type="button" value="清空页码" onclick=pagesetup_null()>
<input type="button" value="恢复页码" onclick=pagesetup_default()><br>
</p></BODY></HTML>