Crystal Report Error

[saliya1000]

button eka Click karama Crystal Report eka Print wenna denna ona code eka VB.net walin danna kenek kiyanawda??

danne nathnam bump 1 hari denna??

 

[K_ZONE]

දැනට report එක view කරගන්න පුලුවන් ද ?
එහෙම නම් දැනට Report එක load කරගන්න Codes ටික post කරන්න,

Direct Print කරගන්න පුලුවන් විදියට Edit කරලා දෙන්නම් ​

 

[lkzombie]

Dim report As New ReportDocument
report.PrintOptions.PrinterName = "HP Deskjet D4200 series"
report.Load(CrystalReport, OpenReportMethod.OpenReportByDefault)
report.PrintToPrinter(1, False, startpage, endpage)

me mama code karapu app ekaka kallak (Access db)

Public Sub printView()

            Dim frmRptViewer As New frmReportViewer
            Dim rptReport As New ReportDocument
            rptReport = rptName

            For Each tbl In rptReport.Database.Tables
                tbl.LogOnInfo.ConnectionInfo.ServerName = clsData.DatabasePath
                tbl.LogOnInfo.ConnectionInfo.DatabaseName = clsData.DatabaseName
                tbl.LogOnInfo.ConnectionInfo.Password = clsData.DatabasePassword
                tbl.LogOnInfo.ConnectionInfo.UserID = clsData.DatabaseUser
                tbl.ApplyLogOnInfo(tbl.LogOnInfo)
            Next
            If strFormula.Length() <> 0 And strReportID.Length() <> 0 Then
                rptReport.RecordSelectionFormula = strFormula & "'" & strReportID & "'" & strSubFormula
            End If

            frmRptViewer.rptViewer.ReportSource = rptReport
            rptReport.PrintOptions.PrinterName = "HP Deskjet D4200 series"

            rptReport.PrintToPrinter(1, False, 1, 1)


            frmRptViewer.MdiParent = MainForm
            frmRptViewer.Show()
        End Sub

100% working tested!!