إنشاء شريط طباعة صغير في حجمه كبير في عمله

[صالح حمادي]

السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله.

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

يقوم شريط الطباعة بضبط إعدادات الصفحة ، طباعة الصفحة الحالية، طباعة الصفحات التي تريدها حسب الإختيار، التكبير  و التصغير ، الإنتقال بين السجلات، عرض مجموعة من الصفحات في التقرير.

رغم أنه يوجد مثال من قبل للأستاذة زهرة حفظها الله. إلا أنني في هذا المثال إستعملة طريقة مغايرة قليلا و بإستعمال أسطر أقل.

 

إنشاء شريط طباعة.rar

[sandanet]

احييك اخي صالح على هذا المثال الرائع الذي افادني كثيراً لكني اعتقد انه لو كان لديك عدد الصفحات في التقرير اكثر من صفحة فستواجه مشكلة بعمل ازرار التنقل فهي لاتستجيب  وهذا ماحصل لي سابقاً في مثال ارفقته في سؤالي هنا ولم يستطيع احد معرفة حل لتلك المشكلة 

 

https://www.officena.net/ib/topic/75360-مشكلة-في-ازرار-تنقل-شريط-أدوات-الطباعة-الاحترافي/

 

تحياتي

تم تعديل فبراير 13, 2017 بواسطه sandanet

[صالح حمادي]

تفضل أخي sandanet لقد قمت بإضافة الشريط إلى ملف و هو يعمل بشكل جيد تنقل بين الصفحات كما تشاء الأول الأخيرة السابقة التالية.

 

report_options2.rar

[sandanet]

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

 

تحياتي

[jjafferr]

13 ساعات مضت, صالح حمادي said:

يقوم شريط الطباعة بضبط إعدادات الصفحة ، طباعة الصفحة الحالية، طباعة الصفحات التي تريدها حسب الإختيار، التكبير  و التصغير ، الإنتقال بين السجلات، عرض مجموعة من الصفحات في التقرير.

حيا الله اخوي الخبير صالح

 

والحمدلله انك قدرت تلبي طلب اخونا انس

 

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

 

جعفر

[king5star]

سلمت يداك اخي صالح 

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

[صالح حمادي]

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

حيا الله اخوي الخبير صالح

 

والحمدلله انك قدرت تلبي طلب اخونا انس

 

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

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

1- الشريط يفتح تلقائيا و بدون أي تدخل و ذلك لأنني قمت بإضافة وحدة نمطية تتحسس لفتح التقارير و عند وجود أي تقرير مفتوح سوف تقوم بفتح الشريط مباشرة.

2- قمت بإضافة نموذج frm1 و وضعت أمر فتحه في حدث عند التحميل للنموذج الرئيسي و يبقى هذا النموذج مفتوح لكنه مخفي

3- وضعت أمر فتح الوحدة النمطية في حدث عند عداد الوقت (TIMER) للنموذج frm1 و أعطيت قيمة الفاصل الزمني نصف ثانية يعني أنه كل نصف ثاني يتحقق البرنامج هل هناك تقرير مفتوح أم لا و على هذا الأساس يقوم بفتح شريط الطباعة.

4- أضف ما شئت من التقارير و ضع كود فتحها بشكل عادي فالوحدة النمطية سوف تتعرف تلقائيا على اسم النموذج المفتوح و الشريط سوف يتحكم بأوامر التقرير كليا.

5- و إذا شئت قم بفتح التقرير من شريط التنقل سوف ترى أن الشريط يفتح معه أيضا.

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

و ضع كود فتح النموذج frm1 في وضعية الإخفاء في حدث عند التحميل للنموذج الرئيسي لديك.

و هذا هو الملف بعد التعديلات الأخيرة

 

إنشاء شريط طباعة.rar

3 ساعات مضت, king5star said:

سلمت يداك اخي صالح 

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

نعم أخي تستطيع ذلك.

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

و إذا كنت تريد عدد النسخ المطبوعة من الصفحة الحالية فقم بالتالي:

1 أضف مربع نص

2 قم بكتابة اسم مربع النص مكان 1 في هذا الكود لزر "ط ص الحالية":

DoCmd.PrintOut acPages, Me.NPg, Me.NPg, acHigh, 1, False

 

[صالح حمادي]

هذه نسخة لأكسس 2003 من برنامج شريط الطباعة

 

إنشاء شريط طباعة.rar

[حمدى الظابط]

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

التقرير.rar

[صالح حمادي]

تفضل هذا هو التعديل كما تريد

التقرير.rar

[صالح حمادي]

السلام عليكم

لقد اضفت بعض الخصائص و التحسينات على شريط الطباعة و أحببت ان أطلعكم عليها و من أهمها النقاط التالية:

1- التصدير إلى الوورد و pdf

2- تشغيل الشريط حتى في وضعية إخفاء شاشة الأكسس و عمل أزرار التنقل بكل مرونة.

و هذا مثال عليه أتمنى تجربته و إطلاعنا على النتائج.

 

شريط طباعة.rar

[طاهر الوليدي]

هل ممكن اضافة عليه عدسة التقريب والتبعيد وامكانية التحريك بالماوس

[حسين العربى]

بعد اذن استاذي ومعلمي الفاضل صالح حمادي

اضافة بسيطه 

تم اضافة التصدير الي EXCEL 

والتعديل علي المظهر العام للشريط 

 

شريط طباعة.rar

تم تعديل فبراير 9, 2018 بواسطه حسين العربى
تعديل

[طاهر الوليدي]

من يساعدني في  الشريط الرائع الذي صمم من الاستاذ صالح الحمادي بحيث يضم فيه نوع الخط وحجمه واعداداته ولونه انا للاسف ضعيف برمجيا مرفق المحاولة الابتدائية في التصميم

شريط طباعة.rar

[صالح حمادي]

في ١٠‏/٢‏/٢٠١٨ at 10:54, طاهر الوليدي said:

الباقي ظهور العدسة التكبير والتصغير على التقرير وامكانية تحريكه بالماوس

تفضل هذا التعديل و الشرح موجود بالصور التالية:

 

 

 

شريط طباعة.rar

[صالح حمادي]

إضافة تعديلات جديدة و هي:

التعديل على نوع الخط و حجمه و لون الكتابة لتقرير و أنت في المعاينة

و أتمنى مشاركة إخوتي و أساتذتي و أصدقائي @jjafferr و @Shivan Rekany و @ابوخليل و @رمهان و @أبو آدم و @محمد طاهر و @AlwaZeeR في هذا الموضوع لزيادة الفائدة

الشرح موجود في الصورة أسفله

شريط طباعة.rar

[حمدى الظابط]

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

تم تعديل فبراير 17, 2018 بواسطه حمدى الظابط

[صالح حمادي]

في ١٦‏/٢‏/٢٠١٨ at 20:53, سلمان الشهراني said:

وايضا يوجد ملاحظه انه لايعمل اللون وتغيير الخط والحجم عند تغيير الامتداد الى accde

 

10 ساعات مضت, حمدى الظابط said:

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

تفضلوا إخوتي الكرام البرنامج الآن يعمل على صيغة accde و لا يفتح النموذج في وضع التصميم

 

شريط طباعة accde.rar

شريط طباعة.rar

[صالح حمادي]

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

بعد مدة من الزمن نعود لتطوير شريط الطباعة

الإضافة الجديدة تخص تعديل و حفظ الطابعة في تقارير ملفات accde

أخي @سلمان الشهراني أظنك كنت تبحث عن هذا الشيء في يوم من الأيام

بعد تغيير نوع الطابعة من إعدادات التقرير نقوم بالضغط على زر حفظ الطابعة الموجود في الشريط

نغلق البرنامج و نعيد فتحه من جديد لنلاحظ حفظ الطابعة

شريط طباعة.rar

[jjafferr]

شكرا جزيلا لك استاذ صالح 🙂

 

جعفر

[طاهر الوليدي]

واجهت مشكله اخواني الافاضل 

التعديل على افيس ٣٢ وانا محمل ٦٤

هل يوجد حل للقبول على اي افيس

[صالح حمادي]

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

شكرا جزيلا لك استاذ صالح 🙂

الشكر موصول لك أيضا أستاذنا لأنك من وضع فكرة إضافة هذه الخاصية للشريط

1 ساعه مضت, طاهر الوليدي said:

التعديل على افيس ٣٢ وانا محمل ٦٤

هذا البرنامج بصيغة accdb

و اعمل ما تشاء

accdbشريط طباعة.rar

[طاهر الوليدي]

اشكرك استاذي الفاضل 

وبارك الله فيكم وفي عمالكم المميزه  والعظيم فعلا

يوجد امر بسيط جدا

عندما افتح التقرير وكبره من عدسة التكبير يختفي الشريط وختصارا اغلط احيانا و اقفله من علامة +

يضل الشريط مفتوح عملت كود في التقرير لاغلاق الشريط لم ينجح من اجل اختصار الخطوات لان عملي يتطلب السرعة .

هل ممكن اضافة كود عند اغلاق التقرير يغلق شريط التقرير مميز

[صالح حمادي]

8 ساعات مضت, طاهر الوليدي said:

عندما افتح التقرير وكبره من عدسة التكبير يختفي الشريط

جرب المرفق الأخير الشريط لا يختفي و لا تستطيع التكبير من العدسة 

التكبير من الشريط فقط

[Ali Mohamed Ali]

بارك الله فيك استاذ صالح وزادك الله من فضله