منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] كود لحفظ التقرير - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [كود] كود لحفظ التقرير (/showthread.php?tid=18413)

كود لحفظ التقرير - Ahmed Abdulla - 13-12-16

السلام عليكم ياشباب 

أريد كود لحفظ التقرير بصيغة word علما بأن التقرير data Report

ولكم مني جزيل الشكر

RE: كود لحفظ التقرير - Ahmed Abdulla - 14-12-16

معقول مفيش ردود

RE: كود لحفظ التقرير - Ahmed Abdulla - 20-12-16

مفيش حد عنده حلول

RE: كود لحفظ التقرير - السيد الغالي - 20-12-16

السلام عليكم
يمكنك تجربة المثال المرفق على الرابط التالي
http://www.up-00.com/?Pi1R

RE: كود لحفظ التقرير - Ahmed_Mansoor - 22-12-16

وعليك السلام ورحمة الله وبركاته

تقرير الداتا ريبورت لابدعم التصدير إلى الوورد فقط يدعم التصدير إلى الـ Html أو ملف نصي :

- التصدير إلى Hml :

PHP كود :
DataReport1.ExportReport rptKeyHTML, "c:\DataReport1.html", True, False, rptRangeAllPages 

- التصدير إلى ملف نصي :

PHP كود :
DataReport1.ExportReport rptKeyText, "c:\DataReport1.txt" 

- التصدير إلى ملف وورد عن طريق إستخدام الملف النصي المصدر , هذه طريقة غير مباشرة وربما يكون غير منسقه لكن ربما تفيدك :

PHP كود :
Dim obj As Object
Set obj = CreateObject("Word.basic")
obj.fileopen "c:\DataReport1.txt"
obj.FileSaveAs "c:\DataReport1.doc", 6
Set obj = Nothing
MsgBox "Your document was converted to RTF format" 

- ملاحظة : لم أجرب أيا من هذ الطرق , جربها وإن شاء الله تضبط معك .