استفسار عن CrystalReport - نسخة قابلة للطباعة

اذا كان للاجمالي حقل مخزن في قاعدة البيانات فهنا تحتاج الى متغير من نوع دبل تضاف له قيم اجمالي كل تقرير اثناء الضغط على زر تقرير وهكذا ستضاف له قيم كل التقارير التي قمت بطباعتها بعد ذلك عندما تريد طباعة مجموع الاجمالي لكل التقارير ستاخذ قيمة المتغير كقيمة مستقلة تعرض في تقرير الاجمالي

كود :

طبعا دة جزء بسيط من الكود لان المدخلات كتيرررة

بعد ما تتم الادخالات فية معادلات كتيرة داخل التقرير تقوم بعمل حسابات على اساس المدخلات

ومنها يكون فية ناتج لكل بند 

وبعد كدا الاجمالي

طبعا انا عندي حوالي 12 تقرير فية نفس الكلام دة

عاوز اخد الاجماليات من ال12 تقرير علشان اضيفهم في التقرير الرئيسي الي بيكون فية بيانات العميل والكميات



ملحوظة : 

انا مبعرضش التقرير على كريستال ريبورت فيور بحولة pdf بعد كدا بدمج ال  pdf وبعرضة داخل الفورم





 Dim Report2 As New CrystalReport2 ' تعريف الكريستال ريبورت

        Report2.SetParameterValue("My Parameter Cell", Start.Cell.Text) '1المدخلات من الفورم

        Report2.SetParameterValue("My Parameter Fill", Start.Fill.Text) '2

        Report2.SetParameterValue("My Parameter Span", Start.Span.Text) '3





 'تصدير التقرير الى pdf

        Dim CrExportOptions As ExportOptions

        Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions()

        Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()

        CrDiskFileDestinationOptions.DiskFileName = Application.StartupPath & "\Data\$Draft$\2.pdf"



        CrFormatTypeOptions.FirstPageNumber = 1

        CrFormatTypeOptions.LastPageNumber = 1

        CrFormatTypeOptions.UsePageRange = True

        CrExportOptions = Report2.ExportOptions



        With CrExportOptions

            .ExportDestinationType = ExportDestinationType.DiskFile

            .ExportFormatType = ExportFormatType.PortableDocFormat

            .DestinationOptions = CrDiskFileDestinationOptions

            .FormatOptions = CrFormatTypeOptions

        End With

        Try

            Report2.Export()

        Catch err As Exception

            MessageBox.Show(err.ToString())

        End Try