مشكلة في طباعة التقرير باستخدام الباراميتر

كود :

' الطباعة إلى الطابعة المختارة من نافذة حوار الطباعة مباشرة بدون معاينة

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    ' إستخدام التقرير

    Using myreport As New CrystalReport1

        ' تمرير قيمة إلى التقرير

        myreport.SetParameterValue("Amount", TextBox1.Text)

        ' إستخدام مربع حوار الطباعة

        Using ptr As New PrintDialog

            ptr.UseEXDialog = True ' لابد من هذا السطر ليظهر مربع حوار الطباعة

            If ptr.ShowDialog = Windows.Forms.DialogResult.OK Then

                myreport.PrintOptions.PrinterName = ptr.PrinterSettings.PrinterName

                ' إرسال إلى الطابعة

                myreport.PrintToPrinter(1, True, 0, 0)

            End If

        End Using

    End Using

End Sub

كود :

' جدول البيانات هذا يفترض أن يحتوي بيانات ناتج استعلام ما

Dim myDataTable As New DataTable

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    '---------------------------------------------------------

    ' إما أن يكون جدول البيانات تمت تعبئة مسبقاً

    ' أو أن يتم هنا استدعاد إجراء لتعبئة جدول البيانات بناتج استعلام ما

    '---------------------------------------------------------

    ' إنشاء فورم المعاينة برمجياً

    Using frmPreview As New Form

        '---------------------------------------------------------

        ' تعديل خصائص فورم المعاينة ------------------------------

        ' وضع عنوان للفورم

        frmPreview.Text = "معاينة"

        ' جعل واجهة الفورم من اليمين لليسار

        frmPreview.RightToLeftLayout = True

        frmPreview.RightToLeft = Windows.Forms.RightToLeft.Yes

        ' تحديد حجم الفورم

        frmPreview.Size = New Size(700, 500)

        '' جعل الفورم بكامل الشاشة

        'frmPreview.WindowState = FormWindowState.Maximized

        ' تحديد مكان ظهور الفورم في منتصف الشاشة

        frmPreview.StartPosition = FormStartPosition.CenterScreen

        '---------------------------------------------------------

        ' إستخدام التقرير

        Using myreport As New CrystalReport1

            ' ربط جدول البيانات بالتقرير

            ' يجب أن يكون قبل تمرير قيم للتقرير

            myreport.SetDataSource(myDataTable)

            '---------------------------------------------------------

            ' تمرير كل القيم المطلوبة إلى التقرير حتى لو كانت فارغة

            myreport.SetParameterValue("Amount", TextBox1.Text)

            'myreport.SetParameterValue("Description", TextBox2.Text)

            '---------------------------------------------------------

            ' إنشاء عارض التقارير برمجياً

            Using myCRptViewer As New CrystalDecisions.Windows.Forms.CrystalReportViewer

                ' جعل أداة عارض التقارير أحد أدوات فورم المعاينة

                myCRptViewer.Parent = frmPreview

                ' جعل أداة عرض التقرير بكامل الفورم

                myCRptViewer.Dock = DockStyle.Fill

                ' إخفاء بعض أدوات عارض التقارير التي لا نحتاجها

                myCRptViewer.DisplayGroupTree = False

                myCRptViewer.ShowCloseButton = False

                myCRptViewer.ShowExportButton = False

                myCRptViewer.ShowGroupTreeButton = False

                myCRptViewer.ShowRefreshButton = False

                myCRptViewer.ShowTextSearchButton = False

                ' ربط التقرير بعارض التقارير

                myCRptViewer.ReportSource = myreport

                ' وضع الزووم للصفحة داخل أداة عارض التقارير

                ' 1 = Page Width بعرض الصفحة

                ' 2 = Whole Page بكامل الصفحة

                myCRptViewer.Zoom(2)

                ' عرض فورم المعاينة

                frmPreview.ShowDialog()

            End Using

        End Using

    End Using

End Sub