ASP环境下轻松实现报表的打印

最新推荐文章于 2019-05-09 08:29:42 发布

zcg2000

最新推荐文章于 2019-05-09 08:29:42 发布

阅读量1.7k

点赞数

文章标签：报表 asp report microsoft vbscript 脚本

本文链接：https://blog.csdn.net/zcg2000/article/details/13277

版权

本文介绍了如何在ASP环境中利用Report Server Page脚本解释器，结合Visual Report Design工具，实现报表的显示和打印。通过创建报表脚本并调用特定的ASP页面，实现了从Access数据库获取数据并展示在报表中，同时支持报表的打印功能。

摘要由CSDN通过智能技术生成

一、前言
    ASP在电子商务上应用广泛，报表的处理又有一些麻烦。本文介绍了在ASP中利用
本人写的Report Server Page脚本解释器实现报表的显示、打印。
二、准备工作
    (1)安装Visual Reprort Design软件
       Visual Report Design是本人写的一个免费的报表设计器，程序的发行只需要
    安装一个60K的控件即可。
    想要的网友可以到http://go.163.com/reportpro/下载
    (2)设计报表
       通过Visual Report Design 的可视化界面可以生成报表的脚本:mxb.rsp。
三、实现报表的打印、显示
   下面是调用的文档:
    printmx.asp
<%Option Explicit%>
<%
dim ReportName,ret
dim ReportAtl
dim name
set ReportAtl=Session("ReportAtl")
ReportName=Server.MapPath("mxb.rsp")
ret=reportatl.XMLToVBS(ReportName)
if ret=-1 then
  response.write reportatl.ErrorMsg
  response.end
end if

ReportName=Server.MapPath("mxb.vbs")
ret=reportatl.DoScript(ReportName)
if ret=-1 then
  response.write reportatl.ErrorMsg
  set ReportAtl=nothing
  response.end
end if
set ReportAtl=nothing
     %>
     <html>
     <OBJECT id=reportatl classid="clsid:D3F064E5-F4C0-4C52-9E7F-263D96B7EA11" codebase="Report.cab#version=1,0,0,1">
     </OBJECT>
     <script language=vbscript>
dim ret
ret=reportatl.DoPrintReport("mxb.zcg")
if ret=-1 then
  msgbox reportatl.ErrorMsg
end if
     </script>
    </html>

用Visual Report Design 产生的报表脚本mxb.rsp：