طلب إضافة كود لحذف فواصل صفحات الطباعة

[ناصرالمصرى]

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

بالمرفق التالى ورقة عمل جاهزة للطباعة من 4 صفحات

يتخلل هذة الصفحات 5 صفوف تحتوى على تذيل الجدوال

استخدمت الكود التالى لحذف النطاق من C8 الى X27

مع حذف اول صف به بيانات بداية من الصف A29 وحتى اخرصف به بيانات

الاضافة المطلوبه هى حذف باقى الصفحات بدون فواصل للطباعة

 والابقاء على الصفحة الاولى فقط

شاكر فضل الجميع **** تقبلوا وافر احترامى وتقديرى

 

حذف فواصل طباعة الصفحات.rar

[ناصرالمصرى]

للرفع

[الـعيدروس]

اعد تعين مدى الطباعه فقط اخرى الكود كالتالي

Sub Clear_Sheet4_Data()
    Dim LastRow As Integer
    With Sheet4
      LastRow = .Range("A" & Rows.Count).End(xlUp).Row
      .Range("A29:AY" & LastRow).Clear
      .Range("c8:x27").ClearContents
      '-----------------------------------------------
      .PageSetup.PrintArea = .Range("A1:Ay33").Address
      '-----------------------------------------------
    End With
End Sub

 

[ناصرالمصرى]

اخى الفاضل ابو نصار

السلام عليكم

عذرا اخى للتأخير فى الرد لظروف طارئة

اشكركم اخى جارى الاضافة وسأخبركم فى حينه

شاكر فضلك وبارك الله فيكم

 

[ناصرالمصرى]

عليك نور ياابو نصار