【图】如何使Excel标题跨列居中

如何使Excel标题跨列居中

如何使Excel标题跨列居中图老师

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

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

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

htmltitle打印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 ii11
%
%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"
%

htmltitle打印Excel报表/title
body
center
h2font color=red学生表（Demo)/font/h2
p /p
form name="fmp" method="post" action=""
%
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
%
ta(图老师整理)ble width="396" height="58" border="1" bordercolor="#00FF00" bgcolor=lightyellow
tr bgcolor=deepskyblue
thb姓名/b/th
thb学号/b/th
/tr
%
do while not rsd.eof
%
tr align=center
td %=rsd("姓名")%
/td
td %=rsd("学号")%
/td
/tr
%
rsd.MoveNext
loop
%
% rsd.close
set rsd=nothing
conn.close
set cnn=nothing %
/table
p
input name="Submit2" type="button" onclick="ccprint()" onDblClick="ccprint()" value="打印"
br
/p
/form
/center
/body
/html