在ASP程序中打印Excel表格的新方法

来源：阅读：692 次日期：2014-11-01 14:14:52

温馨提示：小编为您整理了“在ASP程序中打印Excel表格的新方法”,方便广大网友查阅！

在ASP程序中打印Excel报表的新方法

目前，B/S模式（浏览器/服务器模式）成为企业网上首选的计算模式。由于B/S模式的特殊性，在C/S下相对较易实现的Excel报表打印功能在B/S下却成为一个难点。本人通过研究写了一个基于ASP程序的打印Excel报表的程序。本程序的特点是无须任何组件。

Print.asp

------------------------------------------------

<html><title>打印Excel报表</title>

'控制脚本语言

response.write"<script language="&"VBScript"&">"

//*****************本程序由火星工作室提供(andy2001p@hotmail.com)******************

function ccprint()

Set xlApp = CreateObject("EXCEL.APPLICATION")

//打开工作表！

Set xlBook = xlApp.Workbooks.Open("c:book1.xlt")

set xlsheet1 = xlBook.ActiveSheet

<% db="zhk.mdb"

Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")

conn.Open connstr

set rsd=server.createobject("adodb.recordset")

str="select * from cjb00"

rsd.open str,conn

ii=1

do while not rsd.eof and ii<11

<%response.write"xlSheet1.cells("&ii+4&",2).value="%>"<%=rsd("姓名")%>"

<%response.write"xlSheet1.cells("&ii+4&",3).value="%>"<%=rsd("学号")%>"

rsd.movenext

ii=ii+1

loop

rsd.close

set rsd=nothing

xlSheet1.Application.Visible = True

end function

//*****************本程序由火星工作室提供******************

response.write"</script>"

<html><title>打印Excel报表</title>

<body>

db="zhk.mdb"

Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")

conn.Open connstr

set rsd=server.createobject("adodb.recordset")

str="select * from cjb00"

rsd.open str,conn

</tr>

do while not rsd.eof

</td>

</td>

</tr>

rsd.MoveNext

loop

<% rsd.close

set rsd=nothing

conn.close

set cnn=nothing %>

</table>

<p>

<br>

</p>

</form>

</center>

</body>

</html>

更多信息请查看IT技术专栏

上一篇：asp 读取 json 列表解决思路

下一篇：ASP中http状态跳转返回错误页的问题

手机网站地址：在ASP程序中打印Excel表格的新方法

由于各方面情况的不断调整与变化，提供的所有考试信息和咨询回复仅供参考，敬请考生以权威部门公布的正式信息和咨询为准！