طباعه مع وجود حمايه

[الشيباني1]

اخواني الاعزاء تحية طيبه في احدى اوراق برنامج اعمل عليه كود لحماية المعادلات , لدى عمل كود لطباعة مدى محدد ضمن الورقة لم يتم ذلك بسبب وجود الحمايه .

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

كود الحمايه

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If Not Intersect(Target, Range("e12,i12,h40,h42:h44")) Is Nothing Then Cells(Target.Row, 1).Select

End Sub

كود الطباعه

Sub print_1()

'

' print_1 ãÇßÑæ

' ÇáãÇßÑæ ãÓÌá ý16/12/2012 ÈæÇÓØÉ ýUSER

'

'

Range("B2:J47").Select

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

Activewindow.ScrollRow = 31

Activewindow.ScrollRow = 18

End Sub

[رجب جاويش]

أخى الفاضل

غير السطريين التاليين

Range("B2:J47").Select

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

الى السطر التالى

    Range("B2:J47").PrintOut Copies:=1, Collate:=True

[الشيباني1]

استاذنا القدير اشكرك جدا وادامك الرحمن لنا منقذا