كود لعمل فواصل الصفحات

[قصي]

اخواني الكرام

نريد كود لعمل فواصل الصفحات

لضبط عمليه الطباعه

كرما منكم

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

أخي الحبيب قصي

إليك الكود التالي ..

Sub PageBreaks()
    For Each Cell In Columns("A").SpecialCells(xlCellTypeConstants)
        If Cell.Value Like "Page:*" Then
            ActiveWindow.SelectedSheets.HPageBreaks.Add Cell.Offset(1, 0)
        End If
    Next
End Sub

يقوم الكود بعمل فاصل للصفحة بناءً على النص Page: ثم أي أرقام

مثلا

Page: 1

تكون هذه النصوص في العمود A ، فيتم إدراج فاصل للصفحات بعد هذا النص

[قصي]

اخي الكريم استاذ ياسر

احبك الذي احببتني فيه

عفواممكن تضع الكود قي ملف

[حسام عبدالمحسن]

هذة الفكرة رائعة ولكن اريد اخى ياسر مثال للتوضيح علية وشكرا