I am trying to print a report using the report viewer automatically without having to view it first with the following code.

Dim presNum As String
Dim Appl As New CRAXDRT.Application
Dim report As New CRAXDRT.report

Set report = Appl.OpenReport("..\..Report.rpt")

report.ParameterFields.GetItemByName
CrystalActiveXReportViewer1.ReportSource = report
CrystalActiveXReportViewer1.DisplayGroupTree = False
CrystalActiveXReportViewer1.Refresh
CrystalActiveXReportViewer1.PrintReport
problem is the PrintReport method is giving the following error

Method 'PrintReport' of object 'ICrystalReportViewer10' failed
i have been stuck on this for two days now. i need help.