How to call Crystal Reports from Access

First you must add a Crystal Report Control and a CRViewer Control to your project (you do this under projects and then references. Then you can add the code below.
Dim crxApplication As New CRAXDRT.Application
Public Report As CRAXDRT.Report
Dim crxDatabaseTable As CRAXDRT.DatabaseTable
Dim crxParameterField As CRAXDRT.ParameterFieldDefinition
Dim crxFormulaField As CRAXDRT.FormulaFieldDefinition

strReport = ("G:\ACCESS\SIS\RPTRSG02\" & frmMain.GetFileName & " CUST ALL DATES.rpt")
Set Report = crxApplication.OpenReport(strReport, 1)
frmViewer.Show vbModal

Add a new form and put a CRViewer control on it then code it as follows:

Option Explicit

Private Sub Form_Load()
'Screen.MousePointer = vbHourglass
CRViewer.ReportSource = frmCustReports.Report
CRViewer.ViewReport
End Sub

Private Sub Form_Resize()
CRViewer.Top = 0
CRViewer.Left = 0
CRViewer.Height = ScaleHeight
CRViewer.Width = ScaleWidth
End Sub
Private Sub Form_Unload(Cancel As Integer)
Hide

End Sub

If you need anymore info, email me at:
covcat@riverstonegrp.com
I'll be glad to help you.
Cathy

WHY WOULD YOU?
Access has a report gerator as good if not better than Crystal Reports!

Use the tool provided and save yourself time and effort.

This question was auto closed due to inactivity