الطباعه بعد اخفاء صفوف بشروط

[زياد عبد الجليل]

السلام على جميع الاساتذة الافاضل

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

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

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

كود طباعة متخصص.rar

[بن علية حاجي]

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

تفضل المرفق وفيه المطلوب

بن علية حاجي

 

كود طباعة متخصص.rar

تم تعديل يونيو 13, 2017 بواسطه بن علية حاجي

[زياد عبد الجليل]

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

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

book.rar

[بن علية حاجي]

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

جعلت الكود يقوم بإخفاء كل الصفوف التي في خلايا العمودين B أو D التي تحوي القيمة 00-01-1900 مع ترك باقي الصفوف الأخرى ظاهرة مع الصف الفارغ بين المدد والصفوف التي في عمودها الثاني B الجملة التي تبدأ بالكلمة "المدة"... ويطبع النتيجة المتحصل عليها ثم يعيد إظهار كل الصفوف...

بن علية حاجي

 

book.rar

تم تعديل يونيو 13, 2017 بواسطه بن علية حاجي

[زياد عبد الجليل]

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

لانني للاسف لم استطع فهم  الكود الرائع  لذا ارجو منك تقديم شرح بسيط لهذا الكود المميز

book.rar

[زياد عبد الجليل]

السلام عليكم استاذ بن علية

لقد استبدلت

  ActiveWindow.SelectedSheets.PrintOut Copies:=1

هذا السطر بهذا ولا اعلم ان كان سينجح ام لا

Sheets("feuil1").Range("a1:m83").PrintOut

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

[بن علية حاجي]

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

من المفروض أن الكود مفهوم جدا وعمله قد شرحته في ردي السابق، وإذا كنت تريد شرحا مستفيضا خطوة بخطوة فسأوافيك به، إن شاء الله، لاحقا... بالنسبة للتغيير الذي قمت به أكيد سينجح ولكن أريد أن أعرف لماذا تريد بالضبط طباعة النطاق a1:m83 دون غيره (فهو يحوي جوانب فارغة من الورقة وبالتالي يكون عدد الصفحات أكبر)؟؟ هل تعني بهذا تحديد "ناحية الطباعة" أم هذا النطاق بذاته؟ ثم إذا لم تكن عندك طابعة أو كانت معطلة فيمكنك استبدال كلمة PrintOut في الكود بكلمة PrintPreview حتى يكون لك "معاينة للطباعة" وتعرف بالتالي ما سيطبع من ورقتك...

ملاحظة: إذا كنت تريد طباعة الجدول فقط دون الصفوف الفارغة بالأسفل أو غيرها فيمكنك استعمال خاصية "ناحية الطباعة" إما يدويا وإما برمجيا VBA

* تحديد ناحية الطباعة برمجيا يكون بإضافة الأمر التالي إلى الكود قبل حلقة FOR مباشرة:

ActiveSheet.PageSetup.PrintArea = Range("$A$1:$K$" & m).Address
أو
Sheets("Feuil1").PageSetup.PrintArea = Range("$A$1:$K$" & m).Address
أو
Feuil1.PageSetup.PrintArea = Range("$A$1:$K$" & m).Address

وأمر الطباعة في الكود يكون:

ActiveWindow.SelectedSheets.PrintOut Copies:=1
أو
Sheets("Feuil1").PrintOut Copies:=1
أو
Feuil1.PrintOut Copies:=1

يمكن حذف الجزئية Copies:=1 من هذا الأمر في الكود لأنها تحدد عدد النسخ المستخرجة...

بن علية

تم تعديل يونيو 14, 2017 بواسطه بن علية حاجي

[زياد عبد الجليل]

بارك الله فيك استاذ بن علية 

[زياد عبد الجليل]

في 13/06/2017 at 12:27, بن علية حاجي said:

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

جعلت الكود يقوم بإخفاء كل الصفوف التي في خلايا العمودين B أو D التي تحوي القيمة 00-01-1900 مع ترك باقي الصفوف الأخرى ظاهرة مع الصف الفارغ بين المدد والصفوف التي في عمودها الثاني B الجملة التي تبدأ بالكلمة "المدة"... ويطبع النتيجة المتحصل عليها ثم يعيد إظهار كل الصفوف...

بن علية حاجي

 

book.rar

استاذي القدير بن علية التمس منك فضلا لا امرا مساعدة في تطبيق نفس مبدا كود الطباعة على الملف المرفق حيث هذه المرة اقوم باستبدال التاريخ 00-00-1900 ب اعمدة //// حاولت تطبيق الكود لكن لم انجح فيه ولك مني جزيل الشكر و العرفان

طباعة متخصصة.rar

[بن علية حاجي]

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

تم تعديل بعض أوامر الكود للمحاكاة مع الملف الجديد...

بن علية حاجي

طباعة متخصصة.rar

[زياد عبد الجليل]

شكرا جزيلا استاذ بن علية بارك الله فيك