(31-05-19, 04:31 PM)sami4 كتب :(30-05-19, 06:51 PM)المتألق9 كتب : اريد طريقة ارسال تقرير كرستال الى الجيميل وشكرا
(30-05-19, 11:30 PM)عبد العزيز البسكري كتب :(30-05-19, 06:51 PM)المتألق9 كتب : اريد طريقة ارسال تقرير كرستال الى الجيميل وشكرا
كمثال أخي الكريم ..قم بحفظ التقرير ك PDF .. ثمّ أرسله كمرفقات للجيميل بالطريقة المعتادة
تحياتي
(31-05-19, 06:37 AM)المتألق9 كتب : وكيفية حفظ التقرير ك pdf انا استخدم فيجوال 2008
هذا الرابط فيه كود تصدير التقرير الى pdf
http://vb.net-informations.com/crystal-r...rt_pdf.htm
اهم شي الكود الذي في button2
(31-05-19, 05:51 PM)المتألق9 كتب : مشكور اخي وبارك الله فيك
قدرت اختصر لك اكواد تصدير تقرير كريستال ريبوت التي في الرابط الذي ذكرته لك في مشاركتي السابقه الى ملف pdf
Dim rpt As New CrystalReport1
rpt.SetDataSource(Me.DataSet11)
Dim crExpOpt As ExportOptions = rpt.ExportOptions
crExpOpt.ExportFormatType = ExportFormatType.PortableDocFormat
crExpOpt.ExportDestinationType = ExportDestinationType.DiskFile
Dim crDiskFileDestOpt As New DiskFileDestinationOptions()
crDiskFileDestOpt.DiskFileName = "crystalExport.pdf"
crExpOpt.DestinationOptions = crDiskFileDestOpt
rpt.Export()
ولا تنسى تضع في اعلى كلاس الفورم السطرين
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine