巧用ASP实现Web数据统计、报表和打印

or 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循环输出表格实际内容

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>



5、 结束语

以上程序在Windows2000及IIS5.0下运行通过，数据库采用Access2000。执行打印之前，需要将浏览器的安全级别设为低，或在中级安全级别下将ActiveX控件设为启用。该方法的优点在于实现统计报表十分简单，调用Word打印非常方便，并且可以按用户要求对表格属性进行设置;不足之处是需要调节浏览器的安全设置，且不支持图片和特殊字体的打印，同时客户端必须安装Microsoft Word软件。



参考文献：

《Active Server Page & WEB数据库》,王国荣著，人民邮电出版社，2000。

MSDN Library Visual Basic文档



参考网址：

动感教育网  www.activeedu.net