طباعة ورقة

[خيماوي كووول]

انا عندي ورقة ويوجد بها بيانات ... ( ملاحظة : انا وضعت شرط في كل صف اذا لا توجد بيانات اعمل هايد للصف ) ... وعند وضع الشرط ترتفع الصفوف ... وتدخل الورقة الثانية في الصفحة الاولى .. وانا اريد ان لا تتداخل .. يجب ان تكون كل صفحة منعزلة عن بعض .. هل يوجد كود بذلك ...

 

تم وضع مثال حتى يتسنى للاخوة النظر فيه ...

Book1.rar

[خيماوي كووول]

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

[طارق محمود]

السلام عليكم

تفضل هذا الكود

يعتمد علي إضافة فواصل اعلي سطرين من الخلية التي بها حرف م (مسلسل)

Sub Add_B_Brake()
For r = 1 To [A9999].End(xlUp).Row
    If Cells(r, 1) = "م" Then ActiveSheet.HPageBreaks.Add Before:=Cells(r - 2, 1)
Next
End Sub

والمرفق به الكود

Fawasel.rar

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

بسم الله ما شاء الله عليك باشمهندس طارق ..إبداع بلا حدود ..السهل الممتنع

بارك الله فيك

بطلب منك تشارك بلغز في موضوع الألغاز (عايزين لغز جااااااااامد )

[خيماوي كووول]

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