Print button Control Code

---------------------------------
Print button control Code
--------------------------------------

   Dim cryRpt As New ReportDocument
        cryRpt.Load("D:\Clinton Reducto\Backup Employee New\Employee_Lastname - Copy With Search2\CrystalReport2.rpt")

        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
        Dim crParameterValues As New ParameterValues
        Dim crParameterDiscreteValue As New ParameterDiscreteValue

        crParameterDiscreteValue.Value = txtempidno.Text
        crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
        crParameterFieldDefinition = crParameterFieldDefinitions.Item("empname")
        crParameterValues = crParameterFieldDefinition.CurrentValues

        crParameterValues.Clear()
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

        Form6.CrystalReportViewer1.ReportSource = cryRpt
        Form6.CrystalReportViewer1.Refresh()
        Form6.Show()


---------------------------------------------------------------------------------------





---------------------------------
Print button control Code
--------------------------------------
  Dim cryRpt As New ReportDocument
        cryRpt.Load("D:\Clinton Reducto\Backup Employee New\Employee_Lastname - Copy With Search2\CrystalReport2.rpt")

        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
        Dim crParameterValues As New ParameterValues
        Dim crParameterDiscreteValue As New ParameterDiscreteValue

        crParameterDiscreteValue.Value = txtsearchEmpIdno.Text
        crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
        crParameterFieldDefinition = crParameterFieldDefinitions.Item("empname")
        crParameterValues = crParameterFieldDefinition.CurrentValues

        crParameterValues.Clear()
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

        Form6.CrystalReportViewer1.ReportSource = cryRpt
        Form6.CrystalReportViewer1.Refresh()
        Form6.Show()