اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by توكل,

الردود الموصى بها

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

تم تعديل بواسطه توكل
رابط هذا التعليق
شارك

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

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

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

  • 3 years later...

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

 

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information