تعلم كيفية تصدير تقارير Crystal Reports إلى تنسيق PDF

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تعلم كيفية تصدير تقارير Crystal Reports إلى تنسيق PDF

مُساهمة من طرف أحمد مناع في الأحد نوفمبر 24, 2013 3:07 pm

بسم الله الرحمن الرحيم 
أهلا وسهلا بكم إخوانى الكرام ...فى هذا الدرس البسيط إن شاء الله تعالى سنتعلم سويا كيفية تصدير تقارير Crystal Reports الى ملف pdf وذلك من خلال الطرق و الاساليب الخاصة بالكائن ExportOptions و الكائن PdfRtfWordFormatOptions....قبل البدء يجب عليك الاطلاع على الرابط التالى لتتعلم كيفية انشاء تقارير  Crystal Reports فى بنينة الفجوال بيسك دوت نت :


ثم أتبع الخطوات التالية :

1_ قم بإنشاء مشروع نوافذ جديد ....ثم قم بإدراج عدد 2 زر أمر على النافذة التى لديك

2_ فى القسم العام قم بكتابة الشفرة التالية :
الرمز:
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
3_ نستخدم حدث النقر لزر الامر الاول لعرض تقرير Crystal Reports عن طريق الشفرة التالية :
الرمز:
Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        cryRpt.Load("C\CrystalReport1.rpt")
        CrystalReportViewer1.ReportSource = cryRpt
        CrystalReportViewer1.Refresh()
    End Sub
مع ملاحظة أن    cryRpt.Load("C\CrystalReport1.rpt") تم تحديد مسار و اسم ملف تقرير CrystalReport

4_ فى حدث النقر لزر الامر الثانى نقوم بكتابة الشفرة التالية و التى تقوم بانشاء تقرير بصيغة PDF على النحو التالى :
الرمز:
Private Sub Button2_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim CrExportOptions As ExportOptions
            Dim CrDiskFileDestinationOptions As New _
            DiskFileDestinationOptions()
            Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
            CrDiskFileDestinationOptions.DiskFileName = _
                                        "c:\crystalExport.pdf"
            CrExportOptions = cryRpt.ExportOptions
            With CrExportOptions
                .ExportDestinationType = ExportDestinationType.DiskFile
                .ExportFormatType = ExportFormatType.PortableDocFormat
                .DestinationOptions = CrDiskFileDestinationOptions
                .FormatOptions = CrFormatTypeOptions
            End With
            cryRpt.Export()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
و يمكن ملاحظة التالى على الشفرة أعلاه ....

_ قمنا بإشاء مثيل جديد من الكائنات ExportOptions / DiskFileDestinationOptions /PdfRtfWordFormatOptions

_ قمنا بتحديد اسم و مسار حفظ ملف PDF الجديدة من خلال الاسلوب DiskFileName التابع للكائن CrDiskFileDestinationOptions
_ قمنا باستخدام الاسلوب

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 809
النقاط : 1478
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى