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

اذهب الى الأسفل

تعلم كيفية تصدير تقارير Crystal Reports إلى تنسيق PDF Empty تعلم كيفية تصدير تقارير 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
المساهمات : 980
النقاط : 201761
التقيم : 117
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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