<html>
<head>
<base href="<%=basePath%>">
<title></title>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="cache-control" content="no-cache">
<meta http-equiv="expires" content="0">
<meta http-equiv="keywords" content="keyword1,keyword2,keyword3">
<meta http-equiv="description" content="This is my page">
<!--
<link rel="stylesheet" type="text/css" href="styles.css">
-->
<style media="print" type="text/css">...
.Noprint{...}{display:none;}
.PageNext{...}{page-break-after: always;}
</style>

<script type="text/javascript">...
//导出到Excel
function toExcel()
...{
var elTable = document.getElementById("tb");
var oRangeRef = document.body.createTextRange();
oRangeRef.moveToElementText( elTable );
oRangeRef.execCommand( "Copy" ); 
var appExcel = new ActiveXObject( "Excel.Application" );
appExcel.Visible = true;
appExcel.Workbooks.Add().Worksheets.Item(1).Paste();
appExcel = null;
}
//打印
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>
</head>
<body onload="PageSetup_Null()">
<div id='block'>
<table id="tb">
<tr>
<td>ID</td>
<td>Name</td>
<td>Describ</td>
</tr>
<tr>
<td>1</td>
<td>name1</td>
<td>describ1</td>
</tr>
<tr>
<td>2</td>
<td>name2</td>
<td>describ2</td>
</tr>
</table>
</div>
<object id="WebBrowser" classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height="0"
width="0">
</object>
<center class="Noprint" >
<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(8,1)" />
<input type="button" value="打印预览" onclick="document.all.WebBrowser.ExecWB(7,1)" />
</center>
<input type="button" value="导出到Excel" name="button1" onclick="printScreen(block)">
</body>
</html>
本文介绍了一种网页打印和导出为Excel的方法。通过JavaScript实现网页内容的复制,并使用ActiveXObject将内容粘贴到新的Excel文件中。同时,通过修改注册表的方式实现了网页打印时的页眉页脚设置。
884

被折叠的 条评论
为什么被折叠?



