[خالد كامل1]

السلام عليكم احبتى فى الله

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

[Zuhare]

الكود منقول

PHP كود :

Dim cryRpt As New CrystalReport1
cryRpt.SetDataSource(DataSet1)

        'Export crystal report as PDF
        '
        Dim CrystalDiskFileDestinationOptions As New CrystalDecisions.Shared.DiskFileDestinationOptions
        CrystalDiskFileDestinationOptions.DiskFileName = Application.StartupPath & "\crystalExport.pdf"
        Dim CrystalFormatTypeOptions As New CrystalDecisions.Shared.PdfRtfWordFormatOptions
        Dim CrystalExportOptions As CrystalDecisions.Shared.ExportOptions
        CrystalExportOptions = cryRpt.ExportOptions
        CrystalExportOptions.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
        CrystalExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
        CrystalExportOptions.DestinationOptions = CrystalDiskFileDestinationOptions
        CrystalExportOptions.FormatOptions = CrystalFormatTypeOptions
        cryRpt.Export() 


[خالد كامل1]

اخى Zuhare اين يوضع هذا الكود لو سمحت

[خالد كامل1]

اخى Zuhare ممكن رايك فى الموضوع http://vb4arb.com/vb/showthread.php?tid=50461

---

اسف على تعبك معايا يخرج لى هذا الخطأ