Exporting crystal report generated from vb6 straight to pdf without the viewing...

Private Sub cmdView_Click(Index As Integer)
Select Case Index
Case 0
If Me.optRR(0).Value = True Then irisreports (16)
If Me.optRR(1).Value = True Then irisreports (17)
If Me.optRR(2).Value = True Then irisreports (18)
If Me.optRR(3).Value = True Then irisreports (19)
If Me.optRR(4).Value = True Then irisreports (20)
If Me.optRR(5).Value = True Then irisreports (21)
If Me.optRR(6).Value = True Then irisreports (22)

If Me.optTransfer(0).Value = True Then irisreports (23)
If Me.optTransfer(1).Value = True Then irisreports (24)
If Me.optTransfer(2).Value = True Then irisreports (25)
If Me.optTransfer(3).Value = True Then irisreports (26)
If Me.optTransfer(4).Value = True Then irisreports (27)
If Me.optTransfer(5).Value = True Then irisreports (28)
If Me.optTransfer(6).Value = True Then irisreports (29)
Case 1
If Me.optEndingInv(0).Value = True Then irisreports (12)
If Me.optEndingInv(1).Value = True Then irisreports (13)
If Me.optEndingInv(2).Value = True Then irisreports (14)
If Me.optEndingInv(3).Value = True Then irisreports (15)
If Me.optEndingInv(4).Value = True Then irisreports (33)
Case 2
If Me.optCGS.Value = True Then
generateAverageCost
irisreports (30)
End If
If Me.optSalesSummary(0).Value = True Then irisreports (31)
If Me.optSalesSummary(1).Value = True Then irisreports (32)
'mat 08082006
If Me.optReportToGenerate(6).Value = True Then irisreports (46)

If Me.optReportToGenerate(0).Value = True Then irisreports (35) 'product breakdown
If Me.optReportToGenerate(1).Value = True Then irisreports (36) 'daily sales report net
If Me.optReportToGenerate(2).Value = True Then irisreports (40) 'daily sales report gross
If Me.optReportToGenerate(3).Value = True Then irisreports (37) 'tender department
If Me.optReportToGenerate(4).Value = True Then irisreports (38) 'sales register
If Me.optReportToGenerate(5).Value = True Then irisreports (39) 'gross profit

If Me.optSalesReceiptsWithTender.Value = True Then irisreports (60)
If Me.optSalesReceiptNumbers.Value = True Then irisreports (61)
If Me.optVATSales.Value = True Then irisreports (63)


Case 3
If Me.optJournal.Value = True Then irisreports (34)
Case 4
If Me.OptInventoryAdjustment.Value = True Then irisreports (62)


End Select

End Sub