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

اليكم طريقة الاستغناء عن الصفوف الخالية اثناء الطباعه


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

الساده / أعضاء المنتدى     المحترمين

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

اليكم نموذج عملى _(بالمرفقات)_مع الشرح 

عن كيف يتم الإستغناء عن صفوف خاليه أثناء الطباعه

والنموذج المرفق على فاتورة

يمكنكم تطبيقها على أى أمر آخر 

واليكم الشرح :

 

1 - يجب معرفة العمود والصف الذى ستبدأ به تدوين البيانات داخل الفاتورة ولنفترض حسب الملف المرفق أنه عمود b صف 8 ( أى الخلية b8) .

2 - يجب معرفة آخر صف يتم تدوين البيانات فيه والخاص بالفاتورة وحسب الملف المرفق هو ( b38) .

3 - نذهب لتعريف اسم الداله كما ذكرتم لكم سابقا 

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

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

6 - تقوم بإختيار النطاق ( مصنف ) من داخل النافذة ايضا الأخيرة

7 - تقوم بكتابة المعادلة ( طبقا للملف المرفق ) هى 

     

 SUMPRODUCT((sheet2!$B$8:$B$38 <> "") * (sheet2!$B$8:$B$38 <> " "))+8 = 

8 - تقوم بالذهاب إلى محرر الأكواد ALT+F11

9 - تقوم بإضافة موديول جديد ( من ادراج تختار موديول )

10 - تقوم بنسخ ولصق الكود

Sub Printing()

Rows([Row] & ":38").EntireRow.Hidden = True

ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Rows("8:38").EntireRow.Hidden = False

End Sub 

شرح مبسط للكود 

قراءة الصفوف من نطاق الاسم الذى قمنا بتعريفه من خلال الداله السابقة الذكر ولاحظ تطابق كلمتين ( ROW)

اى صف به بيانات داخل هذا النطاق المعرف من قبل الداله به بيانات احتفظ به 

واى صف ليس به بيانات قم بإخفائه 

ثم قم بتفعيل نافذة المعاينه قبل الطباعه 

وفى حاله تمت الطباعه والحمد لله كما نريد ( قم بإظهار الصفوف المخفية )

11 - تذهب الى صفحة الفاتورة  

12 - تقوم بإدراج أى شكل تختاره وتكتب عليه طباعه 

13 - تقوم بالضغط عليه كليك يمين

14 - تختار تعيين ماكرو

15 - تظهر لك نافذة 

16 - أختر منها طباعه 

17 - ثم موافق

تم بحمد الله الشرح والله المستعان

وتقبلوا منى وافر الإحترام والتقدير

m_elshrief_print.rar

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

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

الاستاذ والاخ الحبيب محمود الشريف

اعانك الله لعمل الخير ونشر العلم والمعرفة

موضوع رائع جعله الله في ميزان حسناتكم

وفقكم الله وزادكم من فضله علما وخيرا كثيرا

تقبل فائق الاحترام والتقدير

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

الأستاذ الفاضل / محمود الشريف

 

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

 

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

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

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

الاستاذ والاخ الحبيب محمود الشريف

اعانك الله لعمل الخير ونشر العلم والمعرفة

موضوع رائع جعله الله في ميزان حسناتكم

وفقكم الله وزادكم من فضله علما وخيرا كثيرا

تقبل فائق الاحترام والتقدير

اخى فى الله

الأستاذ القدير/ أبو محمد عباس

بارك الله فيكم

وتقبلوا منى وافر الإحترام والتقدير

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

الأستاذ الفاضل / محمود الشريف

 

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

 

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

اختنا فى الله

الأستاذة القديرة / أم عبد الله

بارك الله فيكم

فيما يختص بطلبكم وإستفساركم

* * الرسائل التى تظهر عند فتح الملف يمكنكم تجاهلها 

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

وأى صف خالى تماما من البيانات خاص بالعمود b  يقوم بتجاهله

وتقبلوا منى وافر الإحترام والتقدير

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

الأستاذ الفاضل / محمود الشريف

 

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

 

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

اختنا فى الله

الأستاذة القديرة / أم عبد الله

بارك الله فيكم

وزادكم الله من فضله ومن علمه

وتقبلوا منى وافر الإحترام والتقدير

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

بارك الله فيك اخي محمود 

تم تعديل العنوان ليُفهم منه انه ليس طلب

أخى فى الله

الأستاذ القدير / عبد الله المجرب

بارك الله فيكم

وجزاكم رب العالمين عنا خير الجزاء

شاكرا لكم حسن تعاونكم 

وتقبلوا منى وافر الإحترام والتقدير

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

  • 5 months later...

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

ا/ محمود_الشريف

شكرا جزيلا على العمل الرائع

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

ارجو من حضرتك التعديل على المرفق التالى بحيث يتم طباعه جميع الصفحات

 

114.rar

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

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

اخى محمود

جهد كبير

ومعلومات جميله ومفيده

بارك الله فيك

نسأل الله ان تكون فى ميزان حسناتك

------------

تقبل تحياتى

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

أخى فى الله

الأستاذ // خالد العنانى

فيما يختص بطلبكم

لابد من تغيير المدى الموجود بالمعادلة .. فأنتم حددت المدى الى (( C39 )) رغم أن عدد الصفوف لديك أكثر

قم بزيادة المدى الخاص بعدد الصفوف ليتناسب مع النموذج الخاص بكم

وتقبل منى وافر الاحترام والتقدير

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

أخى فى الله

الأستاذ الكبير // ابراهيم ابو ليله

بارك الله فيكم على مروركم الكريم

وجزاكم الله خيرا على دعوتكم الطيبة

تقبل منى وافر الاحترام والتقدير

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

أخى فى الله

الأستاذ الكريم // الريفى

بارك الله فيكم على مروركم الكريم

وتقبل منى وافر الاحترام والتقدير

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

 

ا / محمود الشريف

شكرا جزيلا على التوضيح

بارك الله فيك

ونسال الله ان يكون ف ميزان حسناتك

 

أخى الكريم

بارك الله فيكم

وتقبل منى وافر الإحترام والتقدير

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

أخى الكريم

تفضل الملف لعله المطلوب

الطباعة مرتبطه بالعمود ( C ) لنكم لم تذكر شرط الصفوف الفارغة مرتبطه باى عمود

وتقبل منى وافر الاحترام والتقدير

 

12-07-2014i.rar

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

بارك الله فيك و فتح عليك و اشكرك على التفاعل و الاهتمام

لكن في الحقيقة ان مشكلتي لم تحل كما كنت ارغب ربما سبب ذلك انني لم اوضح الفكرة جيدة

انا اريد ان تطبع الاسطرالمملؤة من C10 الى C34

كما اريد ان تطبع الاسطر المملؤة من B38الى B49

و في الاخير تقبل تحياتي

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

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

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



سجل دخولك الان
×
×
  • اضف...

Important Information