منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ارسال ايميل تقرير كرستال
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اريد طريقة ارسال تقرير كرستال الى الجيميل وشكرا
(30-05-19, 06:51 PM)المتألق9 كتب : [ -> ]اريد طريقة ارسال تقرير كرستال الى الجيميل وشكرا

كمثال أخي الكريم ..
قم بحفظ التقرير ك PDF .. ثمّ أرسله كمرفقات للجيميل بالطريقة المعتادة
تحياتي
وكيفية حفظ التقرير ك pdf انا استخدم فيجوال 2008
(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, 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
لا أدري إذا كانت الإصدارات مختلفة أخي الكريم .. كنت أقصد مثلما تشير الصورة ..

و بعد ذلك .. تابع موضوع الرابط الآتي ..
http://vb4arb.com/vb/showthread.php?tid=27485
تحياتي