Jump to content
أوفيسنا

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


Go to solution Solved by توكل,

Recommended Posts

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

Edited by توكل
Link to post
Share on other sites

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

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

  • Like 1
Link to post
Share on other sites
  • Solution

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

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

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

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

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

Link to post
Share on other sites

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

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

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

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

Link to post
Share on other sites
  • 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
Link to post
Share on other sites
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

 

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

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

Link to post
Share on other sites

Join the conversation

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

Guest
Reply to this topic...

×   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.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...