منع الطباعة بدون شرح

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

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

كل لحظة وانتم طيبين

إن أمكن جزاكم الله خيرا  ، عندي صفحة ولتكن (طباعة القيود ) وخانة لشرح القيد ـ أريد إذا طلبت طباعة القيد وكانت خانة شرح القيد  ولتكن مثلا ax100 = لا شيء ـ خالية  ـ تظهر رسالة بذلك 

وفقكم الله

[أبوعيد]

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

وكل ثانية وأنتم في أتم الصحة والعافية

الرجاء أرفاق ملف للعمل عليه

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

استاذي / أبو عيد 

تفضل الملف و  جزاك الله خيرا 

طباعة.rar

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

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

طباعة.rar

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

اخي / ياسر العربي 

شكرا جزيلا  

ولكني اسأل إن كان يمكن ذلك إذا اخترت  أمر طباعة من الاكسيل وليس عن طريق ماكرو

[أبو حنــــين]

السلام عليكم

هذا كود أخي ياسر العربي لكن في حدث قبل الطباعة

1طباعة.rar

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

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

ما وجدت غير هذا     اظن ان الكود ناقص

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

الكود موجود في حدث قبل الطباعة داخل الـ Workbook

جرب اطبع عادي وانت تعرف

ودي صورة توضح موضع الكودين

 

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

جزاك الله خيرا 

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

سأكتفى بالكود في غير حدث الورقة  

وفقكم الله جميعا 

[ياسر خليل أبو البراء]

أخي الكريم عاطف

الكود لا يتم تفعيله وتنفيذه إلا عند الطباعة ، ولا أدري كيف تتم محاصرتك في دائرة مغلقة

جرب أن تضيف السطر التالي بعد سطر الرسالة ، وإن كان غير مؤثر بشكل منطقي

Exit Sub

تقبل تحياتي

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

اخي ياسر خليل أبو البراء 

شكرا جزيلا لإهتمامك  ،  ويبدو لأنني صائم غير منتبه لشيء لا اعلمه 

جربت على الملف الأصلي فكان ما بلغتكم والآن جربت على ملف التجارب فكان مثل مابلغتكم  وارفقه لحضراتكم  وأعتذر عن إشغالكم

طباعة.rar

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

راجع الصورة جيدا وانظر اين تم وضع الكود

اما المرفق فقد وضعت الكود داخل الحدث SelectionChange

فكل ما تضغط في مكان تطلع الرسالة دي

تم وضع الكود في مكانه الصحيح تفضل

 

طباعة.rar

 

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

شكرا لكم  اساتذتي الكرام 

ولكن أليس بهذا  إن أردت طباعة بيانات في صفحة أخرى  ستأتيني نفس الرسالة ؟