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

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


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

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

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

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

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

 

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

  • Like 17
  • Thanks 3
رابط هذا التعليق
شارك

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

 

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

 

تحياتي

تم تعديل بواسطه sandanet
رابط هذا التعليق
شارك

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

 

report_options2.rar

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

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

 

تحياتي

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

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

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

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

 

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

 

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

 

جعفر

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

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

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

 

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

 

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

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

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

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

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

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

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

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

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

3.jpg.78be60aca03211d901ab9e8b6b8a5a48.jpg

1.jpg.cab158cdd684d672ca8df12ae319bdb6.jpg2.jpg.72a964754b381230a2a94af7fe41664f.jpg

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

 

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

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

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

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

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

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

22.jpg.838dc80337d4599a4a9688fd356c149b.jpg

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

1 أضف مربع نص

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

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

 

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

  • 3 months later...
  • 4 months later...

السلام عليكم

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

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

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

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

 

شريط طباعة.rar

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

  • 3 months later...

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

اضافة بسيطه 

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

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

 

شريط طباعة.rar

تم تعديل بواسطه حسين العربى
تعديل
  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

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

شريط طباعة.rar

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

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

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

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

55.jpg.def0a62936c3100803774b7c863e1898.jpg

 

 

 

66.jpg.04d7ab322902729cbe475f8d8de57159.jpg

شريط طباعة.rar

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

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

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

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

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

669.jpg.6e4475d1b17dcc320717dec2f852a675.jpg

شريط طباعة.rar

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

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

تم تعديل بواسطه حمدى الظابط
رابط هذا التعليق
شارك

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

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

 

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

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

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

 

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

شريط طباعة.rar

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

  • 2 years later...

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

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

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

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

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

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

9999.jpg.71074030c54452cf2a0aa8fbd1c7f828.jpg

شريط طباعة.rar

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

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

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

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

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

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

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

و اعمل ما تشاء

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

Important Information