📄 在asp程序中打印excel报表的新方法 .htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0055)http://www.51base.com/article/view_article.asp?id=38961 -->
<HTML lang=zh-cn><HEAD><TITLE>NB联盟</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="NB联盟26.files/style.css" rel=stylesheet>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
<BODY><!-- start page body -->
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 class=td id=position
width=773>
<TBODY>
<TR>
<TD class=shadow colSpan=2 height=20 width=262> <A
href="http://www.51base.com/"><IMG border=0
src="NB联盟26.files/logo1.gif"></A> </TD>
<TD align=right width=505>
<P align=left></P></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 id=main width=770>
<TBODY>
<TR>
<TD class=tdlbr vAlign=top>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 id=welcome
style="TABLE-LAYOUT: fixed" width="98%">
<TBODY>
<TR>
<TD style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all"
vAlign=top><FONT color=red><B>文章标题</B></FONT><FONT color=red><B>:
在ASP程序中打印Excel报表的新方法 </B></FONT>
<HR noShade SIZE=1>
<BR>
<P> </P>
<P> 目前，B/S模式（浏览器/服务器模式）成为企业网上首选的计算模式。由于B/S模式的特殊性，在C/S下相对较易实现的Excel报表打印功能在B/S下却成为一个难点。本人通过研究写了一个基于ASP程序的打印Excel报表的程序。本程序的特点是无须任何组件。<BR> <BR>Print.asp<BR>------------------------------------------------</P>
<P><html><title>打印Excel报表</title><BR><%<BR>'控制脚本语言<BR>response.write"<script
language="&"VBScript"&">"<BR>%><BR><A
href="file://*****************/">file://*****************/</A>本程序由火星工作室提供(<A
href="mailto:andy2001p@hotmail.com">andy2001p@hotmail.com</A>)******************<BR><A
href="file://*******************/">file://*******************/</A>版权所有 随意拷贝********************************<BR>function
ccprint()<BR>Set xlApp = CreateObject("EXCEL.APPLICATION")
</P>
<P>//打开工作表！<BR>Set xlBook =
xlApp.Workbooks.Open("c:\book1.xlt")<BR>set xlsheet1 =
xlBook.ActiveSheet<BR><% db="zhk.mdb"<BR>Set conn =
Server.CreateObject("ADODB.Connection")<BR>connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & Server.MapPath(""&db&"")<BR>conn.Open
connstr<BR>set
rsd=server.createobject("adodb.recordset")<BR>str="select * from
cjb00"<BR>rsd.open str,conn<BR>ii=1<BR>do while not rsd.eof and
ii<11<BR> %><BR>
<%response.write"xlSheet1.cells("&ii+4&",2).value="%>"<%=rsd("姓名")%>"<BR>
<%response.write"xlSheet1.cells("&ii+4&",3).value="%>"<%=rsd("学号")%>"
<BR> <%<BR> rsd.movenext<BR>
ii=ii+1<BR> loop<BR> rsd.close<BR> set
rsd=nothing<BR> %><BR>xlSheet1.Application.Visible = True
<BR>end function<BR><A
href="file://*****************/">file://*****************/</A>本程序由火星工作室提供******************<BR><%<BR>response.write"</script>"<BR>%></P>
<P><BR><html><title>打印Excel报表</title><BR><body><BR><center><BR>
<h2><font
color=red>学生表（Demo)</font></h2><BR>
<p>&nbsp;</p><BR><form name="fmp" method="post"
action=""><BR> <%<BR>
db="zhk.mdb"<BR>Set conn =
Server.CreateObject("ADODB.Connection")<BR>connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & Server.MapPath(""&db&"")<BR>conn.Open
connstr<BR> set
rsd=server.createobject("adodb.recordset")<BR>
str="select * from cjb00"<BR> rsd.open
str,conn<BR>%><BR> <table width="396"
height="58" border="1" bordercolor="#00FF00"
bgcolor=lightyellow><BR> <tr
bgcolor=deepskyblue>
<BR>
<th><b>姓名</b></th><BR>
<th><b>学号</b></th><BR>
</tr><BR>
<%<BR> do while not
rsd.eof<BR>
%><BR> <tr align=center>
<BR> <td>
<%=rsd("姓名")%><BR>
</td><BR> <td>
<%=rsd("学号")%><BR>
</td><BR>
</tr><BR> <%<BR>
rsd.MoveNext<BR> loop<BR>
%><BR> <%
rsd.close<BR> set
rsd=nothing<BR>
conn.close<BR> set
cnn=nothing %><BR>
</table><BR> <p>
<BR> <input name="Submit2"
type="button" onclick="ccprint()" onDblClick="ccprint()"
value="打印"><BR>
<br><BR> </p><BR>
</form><BR>
</center><BR></body><BR></html></P>
<P>------------------------------------------------------------</P>
<P>
在程序写好后，你必须在 C 盘根目录下建个Excel模板文件！ 在IE的安全设置中将安全级别调为最低或自定义安全级别中启用第二项,因为只有这样，IE才能创建EXCEL对象！</P>
<P> 本程序由Andylee(火星)提供,如果有意见请联系：<BR> <A
href="mailto:Email:andy2001p@hotmail.com">Email:andy2001p@hotmail.com</A><BR>
QQ:16685104<BR> TEL:0595-2092139 </P>
<P> </P>
<P> </P>
<P> </P><BR></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
<TABLE align=center border=0 cellPadding=2 cellSpacing=0 id=footer width=770>
<TBODY>
<TR>
<TD align=middle class=tdt>
<P align=center></P></TD></TR></TBODY></TABLE><BR></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -