طباعة نطاق محدد

[احمد مبارك]

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

ومن العائدين وكل عام وانتم بخير  

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

طباعة نطاق معين.xlsm

[محي الدين ابو البشر]

Sub test()
    With ActiveSheet
       .[A:A].SpecialCells(2, 1).EntireRow.EntireRow.Hidden = True
        .PrintOut
        .Cells.EntireRow.Hidden = False
    End With
End Sub