طبع الممتليء فقط من مدى ضمن ورقة معينة

[الشيباني1]

أخواني الاعزاء تحية طيبه ارجو المساعده في تعديل الكود في المرفق الذي جاد به احد الاخوان الاعزاء ضمن المنتدى ليطبع الممتليء فقط من المدى( o6:x1500) ضمن الورقة المسماة في ملفي ( البحث ) مع الامتنان

طباعة الحقول الممتلئة فقط.zip

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

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

أخي الكريم، حاول مع الكود (المبسط التالي):

Sub Print_MyRange()

    Sheets("البحث").PageSetup.PrintArea = "$O$6:$X$" & Cells(1500, 15).End(xlUp).Row

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    ActiveSheet.PageSetup.PrintArea = ""

End Sub

وإن شاء الله يكون هذا هو المطلوب...

أخوك بن علية

[الشيباني1]

اشكرك اخي العزيز وجزاك الرحمن كل خير