• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• This code snippet helps u in creating crystal reports, without writing the often repeating lines. J

This code snippet helps u in creating crystal reports, without writing the often repeating lines. J

This code snippet helps u in creating crystal reports, without writing the often repeating lines. Just include it in module, get a crviewer

API Declarations


add a crystal report to project




Rate This code snippet helps u in creating crystal reports, without writing the often repeating lines. J

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'1. first create a form by any name you like
'2. insert a crViewer control (it is a crystal report control)
 'and name it crViewer. This name is generally by default.
'3. While Calling the parameter would be
'   a.The name of the form which contains the crViewer control
'   b.Title of Report which is optional
'   c.Record selection formula which is optional
'4. The setloginfo property of the cReport Changes according to the
'server which you are connecting, so set it accordingly
'5. To make report dynamic set the location of the server
'6. include it project as module
Public cReport As CRAXDRT.Report
Public Sub PrintReport(ByRef frmPrintPreview As Form, Optional ByVal ReportTitle As String, Optional ByVal strCondition As String)
     Dim iCtr As Integer
       For iCtr = 1 To cReport.Database.Tables.count
            cReport.Database.Tables(iCtr).SetLogOnInfo "The name of Server", "Name of database", "<Username>","<password if any>"
            cReport.Database.Tables(iCtr).Location = "Nameofdatabase.Owner(for ex:dbo)." & cReport.Database.Tables(iCtr).Name
        Next
        If Len(ReportTitle) > 0 Then cReport.ReportTitle = ReportTitle
        If Len(strCondition) > 0 Then cReport.RecordSelectionFormula = strCondition
        frmPrintPreview.CRViewer.Zoom (100)
        frmPrintPreview.CRViewer.ReportSource = cReport
        frmPrintPreview.CRViewer.ViewReport
        frmPrintPreview.Refresh
        
        If frmPrintPreview.Visible = False Then frmPrintPreview.Show vbModal
        
End Sub

' call this function before calling the PrintReport 

Public Sub setReport(ByRef RepoName As Report, ByVal printname As Boolean)
        Set cReport = RepoName
        If printlotname = True Then RepoName.<labelname on report>.SetText UCase(<the text u want to insert>)
End Sub