I am using vb6 and Crystal 10. I am trying to print my report without displaying the report. When I do I get the printer prompt. Does anyone know how to get around this. I have had no luck searching the forum. Below is a sample of my code.

Set rst_Crystal = g_cls_Data.SelectTicketData(g_str_Conn, g_lng_TicketNum)

Set CRXReport = CRXApplication.OpenReport(App.Path & "\Ticket.rpt", 1)
Set CRXDatabase = CRXReport.Database
CRXDatabase.SetDataSource rst_Crystal, 3, 1


Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = CRXReport
'CRViewer1.ViewReport

CRXReport.PrintOut

Any Help would be appreciated.

thanks,

Jason