تحديد نطاق طباعة متعدد النطاقات

[Eid Mostafa]

_{الأخوة الأعزاء}

=======

_{السلام عليكم ورحمة الله وبركاته ،،،،،}

_{برجاء التكرم بتطبيق فكرة كود الطباعة (محدد المدى) والموجود بملف (EXAMPLE) والذى ومن خلاله يتم طباعة الأسطر التى تحتوى على بيانات فقط وإستبعاد الفارغة.}

_{حيث أريد تطبيقة على الملف الآخر والمسمى (Edit Print) وذلك فى النطاقات التاليه:-}

_{أولاً : النطاق من A5 : U93 وأن تكون العبرة فى ذلك إحتواء العمود U على بيانات (بمعنى أنه فى حالة تطبيق الكود بشكل صحيح فبناءاً عليه سيتم طباعة المدى من A1 : U88 ثم كذلك أيضاً المدى من من A94 : U96)}

_{ثانياً : النطاق من A104 : U117.}

_{ثالثاً : النطاق من A128 : U141.}

_{ملاحظة هامه :}

_{ستلاحظون فى النطاقات أعلاه بأننى قد قمت بتثبيت رأس وتذييل كل جدول وللتوضيح أكثر فقد قمت بتحديدهم بالأسهم فى الملف المرفق.}

_{أرجو أن أكون وفقت فى شرح ما أقصدة.}

_============

_{خالص شكرى وتقديرى}

_أخوكم

_{عيد مصطفى}

Edit Print.rar

EXAMPLE.rar

تم تعديل يناير 10, 2013 بواسطه Eid Mostafa

[Eid Mostafa]

_{للرفـــــــــــــــــع}

[الـعيدروس]

ربماذ بهذه الطريقة يلبي طلبك

Sub Prnt_A()

On Error Resume Next

Dim R As Range, R1 As Range, R2 As Range, R3 As Range

Set R = Range("A4:U93"): Set R1 = Range("A103:U117")

Set R2 = Range("A127:U141"): Set R3 = Range("A142:U147")

With R

  .Cells(1, 21).AutoFilter 21, "<>"

	 .PrintPreview

  .AutoFilter

End With

With R1

  .Cells(1, 21).AutoFilter 21, "<>"

    .PrintPreview

  .AutoFilter

End With

With R2

  .Cells(1, 21).AutoFilter 21, "<>"

    .PrintPreview

  .AutoFilter

End With

With R3

  .Cells(1, 21).AutoFilter 21, "<>"

    .PrintPreview

  .AutoFilter

End With

End Sub

[Eid Mostafa]

_{أخى الحبيب / أبو نصار}

===========

_{السلام عليكم ورحمة الله وبركاته ،،،،،}

_{بداية أشكرك على ردك وإهتمامك بالأمر}

_{سأقوم بتجربة الكود الذى أرسلته}

_{وإن كنت ومن الوهله الأولى لاحظت أن هنالك إختلافات فى النطاقات الوارده به.}

_{باية حال سأقوم بالتجربه وأعلمك بالنتيجة.}

_============

_{خالص شكرى وتقديرى}

_أخوك

_{عيد مصطفى}

[Eid Mostafa]

للرفـــــــــــــع رفع الله قدركم

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

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

أخي الكريم عيد مصطفى، وضعت بالملف المرفق كودا يقوم بإخفاء صفوف الخلايا الفارغة من العمود U في النطاقات التي ذكرتها ثم يقوم بالمعاينة قبل الطباعة (أو يمكن تغيير هذا الأمر بأمر الطباعة غير المفعل في الكود) وبعد المعاينة(أو الطباعة) يعيد إظهار كل الصفةف التي تم إخفاؤها... أرجو أن يكون هذا هو المطلوب أو بعض منه...

أخوك بن علية

Edit Print.rar

[Eid Mostafa]

_{أخى الحبيب والكريم / بن علية}

================

_{السلام عليكم ورحمة الله وبركاته ،،،،،}

_{أخى الحبيب والكريم حقيقة الكود أكثر من رائع لتغطيته النطاقات التى أردت لها أن تظهر فى الطباعة وتلك التى أردت عدم إظهارها}

_{بما أنى من متابعى أعمالك وروائعك فلى فتره أراك فيها وأنت تبدع فى مجال الأكواد بجانب إبداعاتك المتتاليه فى مجال المعادلات}

_{(زادك الله من علمه المزيد والمزيد لتنفع به نفسك وكل سائل)}

_{مرة أخرى أحييك على هذا الكود الأكثر من رائع وهو ما قصدته بالفعل وهو المطلوب تماماً}

_{جعله الله فى ميزان حسناتك إن شاء الله}

_{(وجعل كلامى هذا بعيداً عن النفاق والرياء)}

_{كما أشكرك دائماً وأبداً}

_{على إبداعاتك تلك}

_{وعلى تفاعلك وتجاوبك الرائع معى ومع كل السائلين}

_{:fff: :fff:}

_{أعانك الله على أمور حياتك ، وبارك لك فى أولادك وفى رزقك وفى وقتك وفى عملك}

_============

_{خالص شكرى وتقديرى}

_أخوك

_{عيد مصطفى}

تم تعديل يناير 12, 2013 بواسطه Eid Mostafa

[خالد القدس]

السلام عليكم

فعلا استاذ بن علية ترقيات كبيرة علما ونشاطا

جزاك الله من خيري الدنيا والاخرة

[Eid Mostafa]

_{أخى الحبيب / بن علية}

==========

_{السلام عليكم ورحمة الله وبركاته ،،،،،}

_{هل بإمكانك التكرم وتطبيق نفس فكرة (مبدأ) كود الطباعة الذى توصلت إليه فى الملف السابق على الملف المرفق}

_{ولكن مع ملاحظة إختلاف المعيار (الشرط) هذة المرة.}

_{بحيث لا تتم طباعة الأسطر التى قيمتها (صفر)} (--) _{فقط وبشرط أن تكون الخليتان المتجاورتان فى نفس السطر يحتويان على نفس القيمة (الصفر) وذلك فى العمودان "M" و "O"}

_{لتوضيح الأمر نوعاً ما قمت بتظليل ما ذكرته أعلاه باللون الأصفر.}

_{أرجو أن أكون وفقت فى شرح ما أقصدة.}

_============

_{خالص شكرى وتقديرى}

_أخوك

_{عيد مصطفى}

Edit Print 2.rar

تم تعديل يناير 16, 2013 بواسطه Eid Mostafa

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

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

أخي الكريم عيد مصطفى، فهمت قصدك جيدا وقد تم الحل في الملف المرفق...

أخوك بن علية

Edit Print (2).rar

[Eid Mostafa]

_{أخى الحبيب والكريم / بن علية}

================

_{السلام عليكم ورحمة الله وبركاته ،،،،،}

_{أخى الحبيب والكريم دائماً بعطاءاته التى بلا حدود}

_{والله لا أستطيع أن أجد الكلمات التى توفيك حقك}

_{حقيقة الكود أكثر من رائع لتغطيته النطاقات التى أردت لها أن تظهر فى الطباعة وتلك التى أردت عدم إظهارها}

_{(زادك الله من علمه المزيد والمزيد لتنفع به نفسك وكل سائل)}

_{مرة أخرى أحييك على هذا الكود الأكثر من رائع وهو ما قصدته بالفعل وهو المطلوب تماماً}

_{جعله الله فى ميزان حسناتك إن شاء الله}

_{(وجعل كلامى هذا بعيداً عن النفاق والرياء)}

_{كما أشكرك دائماً وأبداً}

_{على إبداعاتك تلك}

_{وعلى تفاعلك وتجاوبك الرائع معى ومع كل السائلين}

_{وأدام المحبه وألف بين قلوبنا}

_{:fff: :fff:}

_{أعانك الله على أمور حياتك ، وبارك لك فى أولادك وفى رزقك وفى وقتك وفى عملك}

_============

_{خالص شكرى وتقديرى}

_أخوك

_{عيد مصطفى}

[Eid Mostafa]

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

أخى الحبيب / بن علية

==============

أعود إليك ثانية ولكن هذه المرة بعد أن قمت بإضافة (كود الطباعة) الأكثر من رائع والموجود بشيت (Notes) (والذى قمت أنت بإبداعه)

إلى شيتان آخران وهما (F.S.) و (Changes in Shareholders' Equity) مع ملاحظتى (قدر إمكانى) لتغيير النطاقات ووجدت أنه يتم طباعة الأسطر التى بها قيم فقط مع إستبعاد تلك التى لا تحتوى على قيم وهو ما توصلنا إليه سابقاً.

وما أريده هذه المرة منك هو أن تتكرم بإضافة (زر لأمر طباعة) يغطى (يقوم بدمج) النطاقات السابق تحديدها فى الثلاثة شيتات معاً فى أمر طباعة واحد

===============

خالص شكرى وتقديرى

أخوك

عيد مصطفى

Edit Print (3).rar

تم تعديل يناير 19, 2013 بواسطه Eid Mostafa

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

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

أخي الكريم عيد مصطفى، لست أدري إن كنت قد فهمت المطلوب هذه المرة... قمت بإنشاء 3 نطاقات مسماة Plage3، Plage2، Plage1 وهي النطاقات المعنية في الأكواد في الأوراق الثلاثة (يمكنك التأكد من هذه النطاقات في خاصية "التسميات")... وفي الكود (الموحد) تم إضافة شرط بالدالة IF لإنشاء النطاق MyRange بإحدى التسميات السابقة حسب الورقة (الشيت) المختارة وباقي الأوامر بقيت على حالها مع تعديل طفيف في سطر إعادة إظهار الصفوف التي تم إخفاؤها قبل الطباعة (أو المعاينة قبل الطباعة)... وزر الطباعة في كل ورقة أصبح مرفقا بكود واحد فقط...

أرجو أني فهمت واستوفيت المطلوب...

أخوك بن علية

Edit Print (3).rar

تم تعديل يناير 19, 2013 بواسطه بن علية حاجي

[Eid Mostafa]

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

أخى الحبيب / بن علية

==============

بداية عذراً على تأخرى فى الرد ، فقد إضطررت للخروج خارج المنزل وقد عدت للتو

وبالطبع أشكرك على إهتمامك بالرد

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

فما أقصده هو أن يتم طباعة محتوى الـثلاثة شيتات معاً فى أمر واحد

وأرفق لك ملف PDF يوضح ما أقصده بشكل أوضح

===============

خالص شكرى وتقديرى

أخوك

عيد مصطفى

Edit Print (4).rar

تم تعديل يناير 19, 2013 بواسطه Eid Mostafa

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

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

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

أرجو أني فهمت المقصود من المطلوب هذه المرة...

أخوك بن علية

Edit Print (4).rar

[Eid Mostafa]

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

أخى الحبيب والكريم / بن علية

================

بداية أرجو أن تكون هذة الظروف خيراً بإذن الله تعالى

وياسيدى بنقول هنا فى مصر كل تأخيره وفيها خيره

وهو ماحدث بالفعل

فالكود أكثر من رائع وأحييك عليه فقد أتى بالمطلوب تماماً

مرة أخرى سامحنى إن كنت أثقل عليك

ولكنى هذا من عشمى فيك ليس إلا

:fff: :fff:

أعانك الله على أمور حياتك ، وبارك لك فى أولادك وفى رزقك وفى وقتك وفى عملك

===============

خالص شكرى وتقديرى

أخوك

عيد مصطفى

[Eid Mostafa]

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

أخى الحبيب والكريم / بن علية

================

عذراً على العوده للموضوع مرة أخرى

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

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

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

فهل بإمكانك التكرم بتعديل الكود ليقوم بطباعة الــــ ( 3 شيتات ) المحددين فقط.

مرة أخرى سامحنى إن كنت أثقل عليك

أعانك الله على أمور حياتك ، وبارك لك فى أولادك وفى رزقك وفى وقتك وفى عملك

===============

خالص شكرى وتقديرى

أخوك

عيد مصطفى

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

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

أخي الكريم عيد مصطفى، تم تعديل الكود حسب المطلوب حيث يقوم الكود بتحديد الورقات (الشيتات) المعنية وتطبيق الشروط عليها ثم معاينتها قبل الطباعة (أو طباعتها) ثم إعادة إظهار الصفوف التي تم إخفاؤها... أرجو أن تروقك هذه التعديلات وتفي بالمطلوب...

أخوك بن علية

Edit Print (5).rar

[Eid Mostafa]

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

^{أخى الحبيب والكريم / بن علية}

^{================}

^{الله ينور عليك}

^{الآن الكود من أروع ما يكون ويغطى الشيتات المطلوبه}

^{أحسنت وسلمت يداك}

^{ومرة أخرى أرجو أن تسامحنى فأنا فى غاية الإحراج منك ومتأكد تمام التأكد بأنى قد أثقلت عليك}

^{ولكن سامحنى فليس لى سواك بعد الله سبحانه وتعالى}

^{جعله الله فى ميزان حسناتك}

^{:fff: :fff:}

^{أعانك الله على أمور حياتك ، وبارك لك فى أولادك وفى رزقك وفى وقتك وفى عملك}

^{===============}

^{خالص شكرى وتقديرى}

^أخوك

^{عيد مصطفى}

تم تعديل يناير 20, 2013 بواسطه Eid Mostafa