Crystal Reports or other for ASP.NET web

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello, I am looking for a web reporting solution. I have researched some
things on crystal reports but read that the version that is bundled with
Visual Studio 2003 does not allow you to print them. I was able to create a
sample looking report in ASP.NET using VS2003 but not able to print it. Is
there some specific code a person could use as I did not see a print button.
I was thinking of creating my own reports but having a hard time with all the
page break formatting.

Does the version of Crystal Reports bundled with VS2003 allow printing the
report from a ASP.NET web page? If so, what are the steps or do I need to
upgrade to another version of Cyrstal reports.

Otherwise, are there any other options out there for reporting. The biggest
issue I have is setting the proper page breaks for a report that is sub
nested.

Any ideas or input would be appreciated.

Thanks,

Darrin
 
HI i'm in a bit of a rush so sorry for the breif post.

I'm posting a chunk of code i have used and works to a degree, but i'm in
the process of trying to migrate to SQL Reporting Services.

Hopefully you can work your way through the logic (it isn't pretty but it
works in a production environment!)
Imports CrystalDecisions.Shared

Public Class AdobePrint

Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init

'CODEGEN: This method call is required by the Web Form Designer

'Do not modify it using the code editor.

InitializeComponent()

If Not Session("ReportLoc") Is Nothing Then

Dim FileName As String

Dim ExportPath As String

Dim dfdOptions As DiskFileDestinationOptions

Dim ExportOpts As ExportOptions

Dim OutputURL As String

Dim myreport As New ReportDocument()

If Not Session("ReportLoc") Is Nothing Then

FileName = Session("ReportLoc")

' FileName = FileName.Replace("Crystal_Reports", "Adobe_Reports")

If viewstate("ReportDoc") Is Nothing Then

viewstate.Add("ReportDoc", myreport)

myreport.Load(FileName)

SetDatabase(myreport)

SetParmaeters(myreport)

SetSelectionFourmula(myreport)

ExportPath = (Server.MapPath("AdobePrint.aspx").Replace("AdobePrint.aspx",
"")) & "temp\" & Session("Username") & ".pdf"

'OutputFile = Server.MapPath("..\Reports\ExportedReports\" &
txtFileName.Text & OutputFileExtension)

OutputURL = "./temp/" & Session("Username") & ".pdf"
'Session.SessionID.ToString

dfdOptions = New DiskFileDestinationOptions

dfdOptions.DiskFileName = ExportPath

ExportOpts = myreport.ExportOptions

With ExportOpts

..DestinationOptions = dfdOptions

..ExportDestinationType = .ExportDestinationType.DiskFile

..ExportFormatType = .ExportFormatType.PortableDocFormat

End With

myreport.Export()

'With Response

' .ClearContent()

' .ClearHeaders()

' .ContentType = "application/pdf"

' .WriteFile(ExportPath)

' .Write("<HTML><HTML>")

' .Flush()

' .Close()

'End With

' System.IO.File.Delete(ExportPath)

Session.Remove("ReportLoc")

Response.Redirect(OutputURL)

End If

End If

End If

End Sub

#End Region



Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

'Put user code to initialize the page here


End Sub



Private Sub SetParmaeters(ByRef myreport As ReportDocument)

' If Not (Session("ReportDataDef") Is Nothing) Then

' 'Dim Param As CrystalDecisions.Shared.ParameterValues

' Dim DataDef As CrystalDecisions.CrystalReports.Engine.DataDefinition =
Session("ReportDataDef")

' Dim ParamFields As
CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinitions

' Dim ParamFD As ParameterFieldDefinition

' Dim ParamDis As New ParameterDiscreteValue()

' Dim i As Integer

' ParamFields = DataDef.ParameterFields

' For i = 0 To ParamFields.Count - 1

' myReport.DataDefinition.ParameterFields.apply()

'..CurrentValues(0) = ParamFields(i).CurrentValues(0)

' Next

' End If

If Not (Session("ReportDataDef") Is Nothing) Then

Dim DataDef As CrystalDecisions.CrystalReports.Engine.DataDefinition =
Session("ReportDataDef")

Dim ParamFields As ParameterFieldDefinitions

Dim paramValues As ParameterValues

Dim crParameterDiscreteValue As ParameterDiscreteValue

Dim i As Integer

ParamFields = DataDef.ParameterFields

For i = 0 To ParamFields.Count - 1

paramValues = ParamFields(i).CurrentValues

myReport.DataDefinition.ParameterFields.Item(i).ApplyCurrentValues(paramValues)

Next

End If

End Sub

Private Sub SetSelectionFourmula(ByRef myreport As ReportDocument)

If Not (Session("ReportDataDef") Is Nothing) Then

Dim DataDef As CrystalDecisions.CrystalReports.Engine.DataDefinition =
Session("ReportDataDef")

myReport.DataDefinition.RecordSelectionFormula =
DataDef.RecordSelectionFormula

End If

End Sub

Private Sub SetDatabase(ByRef myreport As ReportDocument)

Dim CCI As Global.CrystalConnection = Application("CrystalDBInfo")

Dim RPTConnInfo As New ConnectionInfo()

With RPTConnInfo

..ServerName = CCI.Servername

..DatabaseName = CCI.Database

..UserID = CCI.UserID

..Password = CCI.PW

End With

Dim tblLogOnInfo As New TableLogOnInfo()

Dim myDB = myReport.Database

Dim myTbl = myDB.tables

Dim tbl As CrystalDecisions.CrystalReports.Engine.Table

For Each tbl In myReport.Database.Tables

tblLogOnInfo = tbl.LogOnInfo

tblLogOnInfo.ConnectionInfo = RPTConnInfo

tbl.ApplyLogOnInfo(tblLogOnInfo)

Next

End Sub

End Class
 
Back
Top