copperkitten
MIS
Hello, I am creating a program in vb 6.0 together with the crystal report viewer.here is the code.
Public rptApp As New CRAXDRT.Application
Public rpt As New CRAXDRT.Report
Private Sub Command1_Click()
CRV.Height = Form1.Height - 900
CRV.Width = Form1.Width - 150
rptpath = "F:\databse3\Purchasing\Reports&Printouts\crptPO_Sheet_com.rpt"
Set rpt = rptApp.OpenReport(rptpath, 0)
CRV.ReportSource = rpt
CRV.DisplayTabs = False
CRV.EnableSelectExpertButton = False
CRV.EnableDrillDown = False
CRV.EnableGroupTree = False
CRV.EnableAnimationCtrl = False
CRV.EnableSearchExpertButton = False
CRV.EnableCloseButton = True
CRV.ViewReport
End Sub
The problem here is that when i run the program a message appears telling that
"compile error:
user-defined type not defined" on
rptApp As New CRAXDRT.Application
rpt As New CRAXDRT.Report
I have put the crystal viewer object on the form named it as CRV.
Please help.Thanks.
Public rptApp As New CRAXDRT.Application
Public rpt As New CRAXDRT.Report
Private Sub Command1_Click()
CRV.Height = Form1.Height - 900
CRV.Width = Form1.Width - 150
rptpath = "F:\databse3\Purchasing\Reports&Printouts\crptPO_Sheet_com.rpt"
Set rpt = rptApp.OpenReport(rptpath, 0)
CRV.ReportSource = rpt
CRV.DisplayTabs = False
CRV.EnableSelectExpertButton = False
CRV.EnableDrillDown = False
CRV.EnableGroupTree = False
CRV.EnableAnimationCtrl = False
CRV.EnableSearchExpertButton = False
CRV.EnableCloseButton = True
CRV.ViewReport
End Sub
The problem here is that when i run the program a message appears telling that
"compile error:
user-defined type not defined" on
rptApp As New CRAXDRT.Application
rpt As New CRAXDRT.Report
I have put the crystal viewer object on the form named it as CRV.
Please help.Thanks.