اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

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

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

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

1.jpg.24ed6008adee54720323d8ac2d55163a.jpg

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

 

salah88.rar

  • Like 2
رابط هذا التعليق
شارك

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

 

شيء جميل 🙂

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

sal.Clipboard01.jpg.c0d5a6836199673a34f41b05dc57647f.jpg

.

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

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

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

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

منذ ساعه, athal said:

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

نعم

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

 

 

salah88.rar

  • Like 1
رابط هذا التعليق
شارك

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

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


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

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

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

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

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

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

رابط هذا التعليق
شارك

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

نعم

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

 

salah88.rar

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

بارك الله فيك

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

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

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

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

 

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

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

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

 

جعفر

رابط هذا التعليق
شارك

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

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

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

 

salah88.rar

رابط هذا التعليق
شارك

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

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

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

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

 

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

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

الان, jjafferr said:

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

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

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

رابط هذا التعليق
شارك

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

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

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

 

salah88.rar

  • Like 1
رابط هذا التعليق
شارك

أستاذ @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

 

  • Thanks 1
رابط هذا التعليق
شارك

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

fc.controltype

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

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

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

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

1.jpg.0b8475245e0a23a039c22cdff128ac5a.jpg

1598809399_.JPG.94d57b156e111f16b9dc035825c632b9.JPG

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

salah88.rar

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

  • Like 4
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

1.jpg.0b8475245e0a23a039c22cdff128ac5a.jpg

1598809399_.JPG.94d57b156e111f16b9dc035825c632b9.JPG

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

للرفع

@صالح حمادي

@jjafferr

@ابوخليل

 

رابط هذا التعليق
شارك

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

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

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

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

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information