CRYSTAL REPORT

        frmMain.printStat = 0
        frmMain.ReportId = 1
        frmMain.FDate = Format(Me.dtpFromDate.Value, "dd/MM/yyyy")
        frmMain.TDate = Format(Me.dtpToDate.Value, "dd/MM/yyyy")
        frmReportView.Show()

//
Imports CrystalDecisions.CrystalReports.Engine

//

 Dim cryrpt As New ReportDocument
        'frmMain.ReportPath = "A:\ - STOCK\NewOffc"
        If frmMain.ReportId = 1 Then
            cryrpt.Load(frmMain.ReportPath & "\rptStockIn.rpt")

 If frmMain.printStat = 0 Then
            cryrpt.SetParameterValue("FromDate", frmMain.FDate)
            cryrpt.SetParameterValue("ToDate", frmMain.TDate)
 ElseIf frmMain.printStat = 1 Then
            cryrpt.SetParameterValue("ToDate", frmMain.TDate)
 End If
        CrystalReportViewer1.ReportSource = cryrpt
        CrystalReportViewer1.Refresh()