2010-06-01 4 views

답변

0
Imports CrystalDecisions 
Imports CrystalDecisions.CrystalReports 
Imports CrystalDecisions.CrystalReports.Engine 
Imports CrystalDecisions.Shared 
Imports System.IO 

Public Class _Default 
    Inherits System.Web.UI.Page 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

    End Sub 

    Protected Sub LinkButton1_Click(sender As Object, e As EventArgs) Handles LinkButton1.Click 

     OpenPDF(Request.ApplicationPath + "/Reports/Report.pdf") 

    End Sub 


    Private Sub OpenPDF(downloadAsFilename As String) 
     Dim RptDoc As New ReportDocument() 
     RptDoc.Load(Server.MapPath(Request.ApplicationPath + "/Reports/myreport.rpt")) 
     RptDoc.SetDatabaseLogon("user", "password", "server", "database") 

     Dim stream As New BinaryReader(RptDoc.ExportToStream(CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat)) 
     Response.ClearContent() 
     Response.ClearHeaders() 
     Response.ContentType = "application/pdf" 
     Response.AddHeader("content-disposition", Convert.ToString("attachment; filename=") & downloadAsFilename) 
     Response.AddHeader("content-length", stream.BaseStream.Length.ToString()) 
     Response.BinaryWrite(stream.ReadBytes(Convert.ToInt32(stream.BaseStream.Length))) 
     Response.Flush() 
     Response.Close() 
    End Sub 
End Class 
ASP.NET에서 여러 테이블과 크리스탈 보고서 만들기

관련 문제