Hi ,
am getting this error."Missing parameter field current value." Please help me resolve this.. When i Use this line of code

crReportDocument.DataDefinition.ParameterFields.ApplyCurrentValues()

it says "ApplyCurrentValues is not a member of CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition".How do i get rid of this error.
Also is there anyway that without Exporting , i Can Print the Report from vb.net application directly using default Printer.
Code is:
Private Sub Btn_Export_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Export.Click
        Try
            Dim ConnInfo As New ConnectionInfo
            With ConnInfo
                .ServerName = "WASA00150"
                .DatabaseName = "iCalls"
                .UserID = "sa"
                .Password = "courage"
            End With
            Me.CrystalReportViewer1.ParameterFieldInfo.Clear()
            If Me.txtSTdate.Text.Trim.Length > 0 Then
                Me.CrystalReportViewer1.ReportSource = Server.MapPath("iCalls_CrystalReport_Department.rpt")
                Dim ParamFields As ParameterFields = Me.CrystalReportViewer1.ParameterFieldInfo
                Dim Per As New ParameterField
                Per.ParameterFieldName = "Period"
                Dim Period_Value As New ParameterRangeValue
                Period_Value.StartValue = Me.txtSTdate.Text
                Period_Value.EndValue = Me.txtCLdate.Text
                Per.CurrentValues.Add(Period_Value)
                ParamFields.Add(Per)
            End If
            For Each cnInfo As TableLogOnInfo In Me.CrystalReportViewer1.LogOnInfo
                cnInfo.ConnectionInfo = ConnInfo
            Next
            Me.CrystalReportViewer1.RefreshReport()
            CrystalReportViewer1.Visible = True
            Dim exportPath As String = "D:\SampleCrystalReports\iCalls_Export\test1.pdf"
            Dim crExportOptions As ExportOptions
            Dim crDestOptions As New DiskFileDestinationOptions
            crDestOptions.DiskFileName = exportPath
            crExportOptions = crReportDocument.ExportOptions
            crExportOptions.DestinationOptions = crDestOptions
            crExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
            crExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat
            crReportDocument.Export()
        Catch ex As Exception
            lblmsg.Text = ex.Message.ToString
        End Try
    End Sub
Many Thanks.