โปรแกรมที่เขียนไม่สามารถปริ้น Crytal Report บนเครื่อง Client ได้ครับ

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class frm_predoc2
    Friend dateget As String = ""


    Private Sub frm_predoc2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim paramValue As New ParameterDiscreteValue
        paramValue.Value = dateget
        Dim paramFld As New ParameterField
        paramFld.ParameterFieldName = "dateget"
        paramFld.CurrentValues.Add(paramValue)

        Dim paramfields As New ParameterFields
        paramfields.Add(paramFld)

        CrystalReportViewer1.ParameterFieldInfo = paramfields
        CrystalReportViewer1.ReportSource = ("Z:\Report Asset 2018\CrystalReport1.rpt")

        'New CrystalReport1()


        Dim ConnInfo As New ConnectionInfo
        With ConnInfo
            .ServerName = "192.168.100.2"
            .DatabaseName = "growdb"
            .UserID = "sa"
            .Password = "sy7Yi999"
        End With
        For Each cn As TableLogOnInfo In Me.CrystalReportViewer1.LogOnInfo
            cn.ConnectionInfo = ConnInfo

        Next
    End Sub

    Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class