حفظ تقرير على شكل صورة دون اللجوء إلى برامج خارجية

[صالح حمادي]

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

إخوتي الكرام حياكم الله في هذا الصرح الكبير.

من المعلوم أن برنامج الأكسس لا يصدر البيانات على شكل صورة إلأ بتدخل برامج خارجية مثل الطابعات الإفتراضية كما تم ذكره من قبل في موضوع الأستاذ @jjafferr و موضوع آخر مع الأستاذ  @ابوخليل كما لا يفوتنا أن هذه الطابعات غير مجانية.

و بعد إجراء العديد من المحاولات و التجارب توصلت إلى طريقة تمكنني من تصدير بيانات مربعات نص نموذوج أو تقرير على شكل صورة و بشكل جيد.

طريقة العمل هي كالتالي:

- إنشاء ملف PowerPoint و إضافة له شريحة عمل ثم نقوم بتصدير البيانات المراد نقلها من النموذج أو التقرير إلى هذه الشريحة

- ثم نقوم بتصدير هذه الشريحة على شكل صورة.

لقد قمت بإنشاء ملف به المطلوب و هو كالتالي:

و هذا هو المرفق أتمنى من الإخوة تجربته و موافاتنا بالنتائج من أجل تطويره ليقوم بتصدير تقرير كامل

 

salah88.rar

[athal]

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

جزاك الله الخير استاذ صالح

 

تم تعديل فبراير 8, 2019 بواسطه athal

[jjafferr]

وعليكم السلام اخي صالح 🙂

 

شيء جميل 🙂

ظهر لي هذا الخطأ:

.

وبعد متابعة الكود ، اتضح ان الكود يقف على هذا السطر:

PptApp.ActivePresentation.SaveAs Me.LctionTxt, ppSaveAsJPG, msoTrue

والمشكلة هي ان الحقل Me.LctionTxt في النموذج ينتهي بالشرطة \ ، مما يعني انه يجب ان نُدخل اسم المجلد الذي نريد ان نحفظ فيه المجلد ، او نحذف الشرطة ، حتى يتم الحفظ 🙂

 

جعفر

[صالح حمادي]

منذ ساعه, athal said:

استاذ صالح لو تكرر التصدير فانه يحفظ على الاسم القديم

نعم

هذه المسألة بسيطة و نستطيع تجاوزها بسهولة تفضل إطلع على هذا المرفق:

 

 

salah88.rar

[صالح حمادي]

18 دقائق مضت, jjafferr said:

وبعد متابعة الكود ، اتضح ان الكود يقف على هذا السطر:

PptApp.ActivePresentation.SaveAs Me.LctionTxt, ppSaveAsJPG, msoTrue

والمشكلة هي ان الحقل Me.LctionTxt في النموذج ينتهي بالشرطة \ ، مما يعني انه يجب ان نُدخل اسم المجلد الذي نريد ان نحفظ فيه المجلد ، او نحذف الشرطة ، حتى يتم الحفظ

أهلين أخي العزيز جعفر

لا أدري أنا لا تظهر عندي الشرطة و كذلك الأخ athl

أستاذ جعفر ما رأيك في هذه الفكرة

و هل سوف تساعدني لتطويرها

[athal]

7 دقائق مضت, صالح حمادي said:

نعم

هذه المسألة بسيطة و نستطيع تجاوزها بسهولة تفضل إطلع على هذا المرفق:

 

salah88.rar

 تمام عاشت ايديك استاذ صالح

بارك الله فيك

[jjafferr]

28 دقائق مضت, صالح حمادي said:

أستاذ جعفر ما رأيك في هذه الفكرة

و هل سوف تساعدني لتطويرها

 

انا في الخدمة قدر المستطاع 🙂

كانت لي تجارب مع Power Point هنا:

http://arabteam2000-forum.com/index.php?/topic/279726-تدوير-مربع-النص-في-التقرير-rotate/&do=findComment&comment=1350599

 

30 دقائق مضت, صالح حمادي said:

لا أدري أنا لا تظهر عندي الشرطة

اختر المجلد اولا 🙂

 

جعفر

[صالح حمادي]

3 دقائق مضت, jjafferr said:

اختر المجلد اولا 🙂

نعم أستاذ جعفر هذا صحيح لقد عدلت على الكود بحيث لا تظهر الشرطة

 

salah88.rar

[jjafferr]

ولكن كيف يمكن ان نستفيد منها لتصدير التقرير؟

[صالح حمادي]

9 دقائق مضت, jjafferr said:

انا في الخدمة قدر المستطاع 🙂

كانت لي تجارب مع Power Point هنا:

http://arabteam2000-forum.com/index.php?/topic/279726-تدوير-مربع-النص-في-التقرير-rotate/&do=findComment&comment=1350599

 

جيدا جدا أستاذ جعفر

الظاهر أنه الموضوع ليس بجديد عليك

الان, jjafferr said:

ولكن كيف يمكن ان نستفيد منها لتصدير التقرير؟

نستطيع تصدير جميع بيانات كائنات التقرير بهذه الطريقة

و سوف أرفق لك مثال على ذلك

[صالح حمادي]

إليك هذا المرفق أستاذ جعفر

هناك تقرير في البرنامج اسمه rpt به ثلاث مربعات نص

عند الضغط على زر التصدير بالنموذج يقوم البرنامج بإخراج صورة بها جميع مربعات النص و بنفس الحجم و اللون و الترتيب و نوع الخط

 

salah88.rar

[صالح حمادي]

أستاذ @jjafferr ما ينقصني هنا هو كود معرفة نوع عناصر التقرير

لدي هذا الكود يقوم بإستخراج عناصر التقرير و إريد إضافة الدالة التي تقوم بإعطائنا نوع هذا العنصر (textbox ,label, image...)

Dim frm As Report
Dim fc As Control
Dim xname as String  
For Each fc In frm.Controls
    xname = fc.Name  
Next fc

 

[jjafferr]

14 دقائق مضت, صالح حمادي said:

و إريد إضافة الدالة التي تقوم بإعطائنا نوع هذا العنصر (textbox ,label, image...)

وعليكم السلام 🙂

 

fc.controltype

 

جعفر

[محمد التميمي]

شكرأ استاذ صالح

والشكر ايظاً للاستاذ جعفر عمل مميز ويستفاد من كثيراً عاشت الايادي

[صالح حمادي]

4 ساعات مضت, jjafferr said:

fc.controltype

شكرا جزيلا أستاذ جعفر

لاحظ المرفق الآتي :

- لقد قمت بإضافة جدول للملف و قمت بربط بيانات الجدول بالنموذج و التقرير

- عند الضغط على زر التصدير يقوم البرنامج بإخراج بيانات التقرير على شكل صورة بما في ذلك الصور الموجودة أو المستطيلات و العناصر المخفية في التقرير لا يظهرها في الصورة

و هذا هو المرفق أتمنى تجربته و موافاتنا بالنتائج.

salah88.rar

[صالح حمادي]

السلام عليكم

 الآن أصبح بالإمكان تصدير الباركود إلى الصورة مع التقرير.

 

salah88.rar

[ابوخليل]

جزيت خيرا ابا غفران .. 

الفكرة جميلة  ، والحاجة اليها واردة ، وسبق ان طرحت استفسارا ابحث عن مثل هذه الحلول .

و "شيخ المبرمجين" اقبلها  باعتبار  السن ..   فما انا  الا من تلاميذ هذا المنتدى .

  رفع الله قدرك ،،،

[صالح حمادي]

في ٢١‏/٢‏/٢٠١٩ at 13:11, ابوخليل said:

جزيت خيرا ابا غفران .. 

الفكرة جميلة  ، والحاجة اليها واردة ، وسبق ان طرحت استفسارا ابحث عن مثل هذه الحلول .

جزانا الله و إياكم أجمعين إن شاء الله

في ٢١‏/٢‏/٢٠١٩ at 13:11, ابوخليل said:

و "شيخ المبرمجين" اقبلها  باعتبار  السن ..   فما انا  الا من تلاميذ هذا المنتدى .

 رفع الله قدرك ،،،

معذرة أخي الغالي أنت كنت من تلاميذ هذا المنتدى

لكن الآن أنت أحد أعمدة و ركائز المنتدى

فأنت مرجع أعتز بمعرفتك بل و ليا الشرف العظيم بمعرفتك

و بدون مبالغة فأعمالك تتكلم عليك و لست أنا

فجعل الله لك كل حرف وضعته في هذا المنتدى صدقة جارية إن شاء الله

[محمد عبد الشفيع]

في ٩‏/٢‏/٢٠١٩ at 14:53, صالح حمادي said:

شكرا جزيلا أستاذ جعفر

لاحظ المرفق الآتي :

- لقد قمت بإضافة جدول للملف و قمت بربط بيانات الجدول بالنموذج و التقرير

- عند الضغط على زر التصدير يقوم البرنامج بإخراج بيانات التقرير على شكل صورة بما في ذلك الصور الموجودة أو المستطيلات و العناصر المخفية في التقرير لا يظهرها في الصورة

و هذا هو المرفق أتمنى تجربته و موافاتنا بالنتائج.

salah88.rar 89.31 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 22 downloads

جزاكم الله خيرا على هذا الابداع

لى طلب بسيط ان شاء الله من اساتذة وخبراء المنتدى

اريد ان استفيد من هذه الفكرة ولكن ليس بنفس الطريقة المذكورة 

فقط اريد ان اضع زر على التقرير وبالضغط عليه يتم تصدير التقرير كما  هو الى صورة jpg وبنفس اسم التقرير على سطح المكتب مباشرة دون فتح مربع حوار اختيار المجلد او اسم الصورة وذلك مثل التصدير الى pdf اى اريد كود اضعه على حدث عند النقر على زر الامر 

ارجو ان اجد عندكم مثل هذا الكود وجزاكم الله كل خير 

[محمد عبد الشفيع]

14 ساعات مضت, محمد عبد الشفيع said:

جزاكم الله خيرا على هذا الابداع

لى طلب بسيط ان شاء الله من اساتذة وخبراء المنتدى

اريد ان استفيد من هذه الفكرة ولكن ليس بنفس الطريقة المذكورة 

فقط اريد ان اضع زر على التقرير وبالضغط عليه يتم تصدير التقرير كما  هو الى صورة jpg وبنفس اسم التقرير على سطح المكتب مباشرة دون فتح مربع حوار اختيار المجلد او اسم الصورة وذلك مثل التصدير الى pdf اى اريد كود اضعه على حدث عند النقر على زر الامر 

ارجو ان اجد عندكم مثل هذا الكود وجزاكم الله كل خير 

للرفع

@صالح حمادي

@jjafferr

@ابوخليل

 

[صالح حمادي]

أرفق مثال للتعديل عليه

[محمد عبد الشفيع]

16 دقائق مضت, صالح حمادي said:

أرفق مثال للتعديل عليه

اشكرك استاذى العزيز على ردك

لقد فتحت موضوع بهذا الشأن وفيه المثال المراد التطبيق عليه وجزاك الله كل خير

 

[محمد عبد الشفيع]

للرفع

[محمد عبد الشفيع]

ها هو المثال استاذ @صالح حمادي

jpg.rar

[صالح حمادي]

حاليا لا توجد طريقة لتصدير التقرير بهذا الشكل إلى صورة

فقط نستطيع تصدير التقرير الذي يكون فيه سجل واحد