📄 如何在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=38911 -->
<HTML lang=zh-cn><HEAD><TITLE>NB联盟</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="NB联盟27.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联盟27.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>E<BR> 目前，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")
<BR>Set xlBook = xlApp.Workbooks.Open("c:\book1.xlt")<BR>set
xlsheet1 = xlBook.ActiveSheet</P>
<P><%<BR> ii=1<BR> do while
ii<11<BR>
response.write"n"&ii&"=fmp.n"&ii&".value"<BR>
%><BR><A
href="file://隔/">file://隔/</A>一行！<BR> <%response.write"xlSheet1.cells("&ii+4&",2).value=n"&ii%><BR><A
href="file://隔/">file://隔/</A>一行！<BR> <%response.write"m"&ii&"=fmp.m"&ii&".value"%></P>
<P><A
href="file://隔/">file://隔/</A>一行！<BR> <%response.write"xlSheet1.cells("&ii+4&",3).value=m"&ii%>
<BR><A
href="file://隔/">file://隔/</A>一行！<BR> <%<BR> ii=ii+1<BR> loop%><BR>xlSheet1.Application.Visible
= True </P>
<P>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>
n=1<BR> do while not rsd.eof<BR>
%><BR> <tr align=center>
<BR> <td>
<BR> <input
name="<%="n"&n%>" type="hidden"
value="<%=rsd("姓名")%>"> <BR>
<%=rsd("姓名")%><BR>
</td><BR> <td>
<BR> <input
name="<%="m"&n%>" type="hidden"
value="<%=rsd("学号")%>"><BR>
<%=rsd("学号")%><BR>
</td><BR>
</tr><BR> <%<BR>
m=m+1<BR> n=n+1<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><BR>------------------------------------------------------------</P>
<P>
在程序写好后，你必须在 C 盘根目录下建个Excel模板文件！ 在IE的安全设置中将安全级别调为最低或自定义安全级别中启用第二项就可以了!<BR>
本程序由Andylee(火星)提供,如果有意见请联系：<BR> <A
href="mailto:Email:andy2001p@hotmail.com">Email:andy2001p@hotmail.com</A><BR>
QQ:16685104<BR>
</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 + -