[vbnet]

.....

منقول مع تعديل بسيط ليناسب طلبك

كود :

' جدول البيانات هذا يفترض أن يحتوي بيانات ناتج استعلام ما
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

.....