又一个痛苦的问题:如何把水晶报表内容导出后直接保存到客户端

Question

请问tvrxk (魏強)：把水晶报表导出到服务端是怎么导，谢谢！

Answer 1

强烈推荐：Crystal Decisions 官方示例程序——Underground Office Supply（搜集：海波.NET）
http://ftp.crystaldecisions.com/outgoing/devzone/office_supply_demo.zip示例程序: Underground Office Supply (ZIP - 12 MB)该程序精选了丰富的报表，它们都可以使用 Crystal Reports 9 和 Visual Studio .NET 2003 开发。该示例呈现了真实场景，演示了最佳的实践：创建动态、高质量呈现的报表，以及把它们发布到多种设备。请注意：这个例子需要 SQL 2000 或者 MSDE。

Answer 2

大家一起去这个贴子支持一下！！！
http://expert.csdn.net/Expert/TopicView1.asp?id=2291055
ＣＳＤＮ　开个　Ｃｒｙｓｔａｌ　Ｒｅｐｏｒｔ 版吧！！！＆＆＆我与水晶报表……
haibodotnet 海波.NET想了解更多水晶报表的知识和技巧，请到
NET专栏 -> 水晶报表专栏
http://218.56.11.178:8009/
jpyc(九品御厨-进军嵌入式)

Answer 3

'水晶报表导出
  Public Function Export(ByVal rptDoc As ReportDocument, ByVal exportType As String, ByVal filename As String) As Boolean
        Try
            Dim diskoptions As CrystalDecisions.Shared.DiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions()
            rptDoc.ExportOptions.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
            Select Case exportType
                Case "word"
                    rptDoc.ExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.WordForWindows
                Case "html"
                    rptDoc.ExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.HTML40
                Case "excel"
                    rptDoc.ExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.Excel
                Case "pdf"
                    rptDoc.ExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
            End Select            diskoptions.DiskFileName = filename
            rptDoc.ExportOptions.DestinationOptions = diskoptions
            rptDoc.Export()
            Return True
        Catch
            _ErrorMessage = Err.Description
            Return False
        End Try
    End Function
水晶报表打印显示:        Dim rptdoc As New ReportDocument()
            rptDoc.Load(Server.MapPath("../") + "report\rpt_a300m.rpt")
            rptDoc.SetDataSource(dset1)
            rptDoc.OpenSubreport("子报表名").SetDataSource(dset2)
            Return rptDoc
还有服务器端要装一个web安装包,我自己做了一个.但没有支持图片显示的.如果大家要，可以共享

Answer 4

我现在想把报表直接导出到客户端:
  Dim fi As System.IO.FileInfo = New System.IO.FileInfo(filename)
        Response.Clear()
        Response.ClearHeaders()
        Response.Buffer = False
        Response.ContentType = "application/octet-stream"
        Response.AppendHeader("Content-Disposition", "attachment;filename=" + HttpUtility.UrlEncode(fi.FullName, System.Text.Encoding.UTF8))
        Response.AppendHeader("Content-Length", fi.Length.ToString())
        Response.WriteFile(fi.FullName)
        Response.Flush()
        Response.End()
上述代码并不是我要的.我是想直接保存到客户端.文件名和路经有客户输入.或者以附件方式发送出去.不想让客户每次再在IE中看到报表内容,兄弟门如何做了?

Answer 5

tvrxk(魏強) :能不能说说你是怎么打印水晶报表

Answer 6

水晶报表在 Web 上应用的详细资料
Crystal Reports for Visual Studio .NET高级编程
英文版 Ebook 下载：
http://www.crystaldecisions.com/products/dev_zone/downloads/wrox4_report_integration_web.pdf