小弟我的 WEB 打印报表错在哪里

我的 WEB 打印报表错在哪里？

<%
sql = "Select department,count(department) From personnel group by department "
Set Rs = Server.CreateObject( "ADODB.Recordset ")
Rs.Open sql,conn,1,1
If Rs.EOF Then
Response.End
End If

%>

<html>

 公司员工统计表 
<div align= "center ">

<table id= "data " border= "1 " width= "606 " height= "53 " cellpadding= "0 " cellspacing= "0 " style= "border-collapse: collapse " bordercolor= "#111111 ">
<tr>
<td width= "93 " height= "24 ">
 部门 </td>
<td width= "78 " height= "24 ">
 合计 </td>
<td width= "413 " height= "24 ">
 员工姓名 </td>
</tr> <%

hj=0
while (not rs.eof)
departmenttmp=rs( "department ")
sqlstr= "select * from personnel where department= ' "&departmenttmp& " ' "
Set rss = Server.CreateObject( "ADODB.Recordset ")
rss.Open sqlstr, conn ,1,1
number=0
while(not rss.eof)
rss.movenext
number=number+1
wend
hj=hj+number
rss.movefirst
flag=0
while(not rss.eof)%>
<tr>
<%if (flag=0) then%>
<td width= "93 " height= "24 "> <%=departmenttmp%> </td>
<td width= "78 " height= "24 "> <%=number%> </td>
<%else%>
<td width= "93 " height= "24 "> </td>
<td width= "78 " height= "24 "> </td>
<%end if%>
<td width= "413 " height= "24 "> <%=rss( "name ")%> </td>
<%rss.movenext
flag=flag+1
wend%>
</tr>
<%rs.movenext
wend%>
<tr>
<td width= "93 " height= "24 "> 员工合计 </td>

<td width= "78 " height= "24 "> <%=hj%> </td>
<td width= "413 " height= "24 "> </td>
</tr>
</table>
</div>

<input type=button onclick= "vbscript:buildDoc " value= "打印 ">

</html>

<script language= "vbscript ">
Sub buildDoc
set table = document.all.data
row = table.rows.length
column = table.rows(1).cells.length
Set objWordDoc = CreateObject( "Word.Document ")
Dim theArray(10,10000)
for i=0 to row-1
for j=0 to column-1
theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT
next
next

objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore( "公司员工统计表 ")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore( " ")
Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
With rngPara
.Bold = True
.ParagraphFormat.Alignment = 1
.Font.Name = "Arial "
.Font.Size = 12
End With

Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)
for i = 1 to column
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1
next
For i =1 to column
For j = 2 to row
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1
Next
Next
objWordDoc.Application.ActiveDocument.SaveAs
End Sub

</script>

[解决办法]
http://hi.baidu.com/see7di/blog/item/7dca1a238bd3594f93580742.html
[解决办法]
报表打印控件wsReport4.6
http://www.wave12.com/web/home.asp
[解决办法]
ATGrid报表控件/WEB插件,支持asp .net jsp java php

ATGrid报表控件/WEB插件[专业版],对EtCell进行了进行了全面的改革，将会彻彻底底的解决你的报表问题，让你开发达到从未有过的轻松和喜悦......
是专业的报表工具，提供了丰富的报表分析方法，具有可视化的报表设计器WinTable,更好的支持WEB报表打印，连续打印、报表套打，对aspx.net、asp、Java报表、jsp、pphp提供了专门的类库，方便WEB报表开发人员进行快速开发.
网址：http://www.etcell.com/
下载地址：http://www.etcell.com/download.asp?ID=51
支持的报表功能如下：
1、支持主从报表
2、交叉报表
3、支持分组报表：小计、汇总自由设置
4、支持的套打报表，让套打简单灵活
5、支持分组报表的每组打印控制
6、支持连续打印，解决了票据打印的难题
7、支持自定义报表
8、支持MIS开发的各种开发工具：如VC、VB、Delphi、C Bulider、InterDev

9、支持WEB开发，FrontPage、InterDev、ASP.NEt、C#
10、EtCell内置支持VBScript脚本包括事件
11、在WEB上支持VBScript、JavaScript脚本
12、支持URL连接
13、支持的WEB服务器：NT的WEB服务器、Linux、Unix、WebLogic、TOMCAT、IIS；
14、在MIS开发中直接支持数据库，让程序开发更方便快捷
15、WEB插件和浏览器紧密融合，完全成为浏览器的一个分子！
16、一个页面安放多个ATGrid报表插件，再也不会出现其他控件的闪烁变动的效果！
17、完全支持XML，后台程序可以通过XML控制报表的每一部分！
18、让WEB开发变的更加简单，在WEB页[html]可以不用写一行代码.......
19、报表的单元格类型多大几十种,如：Text,Num,Button,Radio,CheckBox,Combox.....
20、不但实现报表展示功能，更重要突破了报表在线编辑功能........
21、和后端服务器程序的交互更加简单...............
22、可以把多个ATGrid控件的数据打印到一起，在也不用担心页眉和页脚问题......
功能多多，肯定会让你满意,不必再为选择报表控件发愁！！！

小弟我的 WEB 打印 报表 错在哪里

热点推荐

小弟我的 WEB 打印报表错在哪里