Print a report in crystal Report using SDK

Question

Hi Dear;
any body can publish a sample code how can i print a report built in crystal report using SDK?
regards;

Answer 1

Hi Dany,
Hope the following code will help u .
before calling the function make a XML by using dataset.writexml, in which you have to pass the name of your stored procedure.
for this you have to decalre commantype as stored procedure.
first parameter of this is rpt name . asecon paramer is ur xml name which you got from DAtaset.writexml.
Sub ShowReport(ByVal rptName As String, ByVal SourceXML As String)
        Try
            Dim oSubReport As CrystalDecisions.CrystalReports.Engine.SubreportObject
            Dim rptSubReportDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
            Dim rptView As New CrystalDecisions.Windows.Forms.CrystalReportViewer
            Dim rptPath As String = System.Windows.Forms.Application.StartupPath & "\" & rptName
            Dim rptDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
            rptDoc.Load(rptPath)
            For Each oMainReportTable As CrystalDecisions.CrystalReports.Engine.Table In rptDoc.Database.Tables
                oMainReportTable.Location = System.Windows.Forms.Application.StartupPath & "\" & SourceXML
            Next
            For Each rptSection As CrystalDecisions.CrystalReports.Engine.Section In rptDoc.ReportDefinition.Sections
                For Each rptObject As CrystalDecisions.CrystalReports.Engine.ReportObject In rptSection.ReportObjects
                    If rptObject.Kind = CrystalDecisions.Shared.ReportObjectKind.SubreportObject Then
                        oSubReport = rptObject
                        rptSubReportDoc = oSubReport.OpenSubreport(oSubReport.SubreportName)
                        For Each oSubTable As CrystalDecisions.CrystalReports.Engine.Table In rptSubReportDoc.Database.Tables
                            oSubTable.Location = System.Windows.Forms.Application.StartupPath & "\" & SourceXML
                        Next
                    End If
                Next
            Next
            rptView.ReportSource = rptDoc
            rptView.Show()
            Dim oFrm As New System.Windows.Forms.Form
            rptView.DisplayGroupTree = False
            rptView.Dock = System.Windows.Forms.DockStyle.Fill
            rptView.Location = New System.Drawing.Point(0, 0)
            oFrm.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
            oFrm.Controls.Add(rptView)
            oFrm.Name = "rptForm"
            oFrm.Text = "rptForm"
            oFrm.ResumeLayout(False)
            oFrm.WindowState = System.Windows.Forms.FormWindowState.Maximized
            oFrm.TopMost = True
            oFrm.ShowDialog()
        Catch ex As Exception
            oApplication.MessageBox(ex.Message)
        End Try
    End Sub