تكرار الصف فى صفحات الطباعة فى الأسفل

[sahar_saed]

تكرار الصف فى صفحات الطباعة فى الأسفل 

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

عليك استعمال تذييل الصفحة...

 

 

[توكل]

أخي بن علية بارك الله فيك أظن أن السؤال هو هل يمكن جعل سطر معين من الصفحة كذيل للصفحة فمثلاً أنت تستطيع أن تجعل سطر أو عدة أسطر تظهر في عنوان الصفحة والأخ السائل يريدها أن تظهر في أسفل الصحة، وعذراً منك أخي

تم تعديل أغسطس 18, 2013 بواسطه توكل

[طارق محمود]

علي ماأعلم لايوجد هذا الخيار بالإكسل
ولكن ، يمكن التحايل علي ذلك بإلصاق صورة في التذييل (وهذا متاح)

لكن الحيلة أن تكون الصورة هي السطر أو الأسطر المراد تكرارها

[توكل]

علي ماأعلم لايوجد هذا الخيار بالإكسل

ولكن ، يمكن التحايل علي ذلك بإلصاق صورة في التذييل (وهذا متاح)

لكن الحيلة أن تكون الصورة هي السطر أو الأسطر المراد تكرارها

أخي المهندس طارق  هل يمكن كتابة كود لحل هذه المشكلة؟

أنا بحثت عن كود لطباعة سطر كتذيل للصفحة ولكن لم أجد، فهل تتفتق عبقريتكم الفذة عن حل؟ آمل ذلك

[sahar_saed]

علي ماأعلم لايوجد هذا الخيار بالإكسل

ولكن ، يمكن التحايل علي ذلك بإلصاق صورة في التذييل (وهذا متاح)

لكن الحيلة أن تكون الصورة هي السطر أو الأسطر المراد تكرارها

شكراَ أخى الكريم

[احمد محمود عبد الفتاح]

يمكنك تجربة هذا الكود (منقول) 

Sub MyFooter()
    Dim xTxt As String
    Dim xAddress As String
    Dim xRg As Range
    Dim xCell As Range
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
        For Each xCell In xRg
            xTxt = xTxt & xCell.Value & " "
        Next
        ActiveSheet.PageSetup.LeftFooter = xTxt
    End Sub

 

[أبو يوسف النجار]

17 ساعات مضت, احمد محمود عبد الفتاح said:

يمكنك تجربة هذا الكود (منقول) 

Sub MyFooter()
    Dim xTxt As String
    Dim xAddress As String
    Dim xRg As Range
    Dim xCell As Range
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
        For Each xCell In xRg
            xTxt = xTxt & xCell.Value & " "
        Next
        ActiveSheet.PageSetup.LeftFooter = xTxt
    End Sub

 

أستاذ /  أحمد محمود عبد الفتاح

ما شاء الله  ( كود روعة )  حل لنا مشكلة كبيرة عند الطباعة (  بارك الله فيكم )