زر طباعة ورقة بشرط

[ابوالزوز]

السلام عليكم ..

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

الملف المرفق يوضح المطلوب

وشكراً لكم جميعاً ..

abuzzouz_attachment.rar

[ابوالزوز]

السلام عليكم ..

أرجوكم يا أخوان ساعدوني

[احمدزمان]

السلام عليكم

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

Sub Prnt()

'

Columns("B:J").Select

Selection.CurrentRegion.Select

Selection.PrintOut Copies:=1, Preview:=True, Collate:=True

End Sub

Sub Prnt()

'
    Columns("B:J").Select
    Selection.CurrentRegion.Select
    Selection.PrintOut Copies:=1, Preview:=True, Collate:=True

    
End Sub

[ابوالزوز]

السلم عليكم ..

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

بالنسبة للكود قمت بتجريبه ولكنه لم يعطيني النتيجة المطلوبة حيث يأخذ معه السطر الأول في الورقة ،كذلك فإنه لا يأخذ أخر سطر ممتلىء في حال كان السطر الذي يسبقه فارغ فهل هناك ما يلبي ذلك

تقبل تحياتي

[عصام عبدالرحمن بو محمد]

اشكرك على الكود فقد كنت فى حاجة اليه فلك منى الف شكر