System crashes when I attempt to print crystal reports

42 Views

Dim Report As New CRAXDDRT.ReportDim App As New CRAXDDRT.ApplicationPrivate Sub Command1_Click() Set Report = App.OpenReport("C:\SBWBWIN\Report1.rpt")    Report.Database.Tables(1).Location = "C:\sbwbwin\NewDatabase.mdb"    CRViewer.ReportSource = ReportRViewer.ViewReport    CRViewer.Zoom (100)    Screen.MousePointer = vbDefault    'CRViewer.PrintReport    Report.PrintOut False, nocopies    End Sub

my vb6(sp6) crashes every time I try to print a crystal report .listed below is the code that i am using. can anyone help me on what could be the cause of this I have googled all over the place on what could cause my system to crash but up to no i am still looking.my sample project is available on : http://www.vbforums.com/showthread.php?t=676102

Dim Report As New CRAXDDRT.ReportDim App As New CRAXDDRT.ApplicationPrivate Sub Command1_Click() Set Report = App.OpenReport("C:\SBWBWIN\Report1.rpt")    Report.Database.Tables(1).Location = "C:\sbwbwin\NewDatabase.mdb"    CRViewer.ReportSource = Report    CRViewer.ViewReport    CRViewer.Zoom (100)    Screen.MousePointer = vbDefault    'CRViewer.PrintReport    Report.PrintOut False, nocopies    End Sub