sahar_saed قام بنشر أغسطس 18, 2013 مشاركة قام بنشر أغسطس 18, 2013 تكرار الصف فى صفحات الطباعة فى الأسفل رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 18, 2013 مشاركة قام بنشر أغسطس 18, 2013 عليك استعمال تذييل الصفحة... رابط هذا التعليق شارك More sharing options...
توكل قام بنشر أغسطس 18, 2013 مشاركة قام بنشر أغسطس 18, 2013 (معدل) أخي بن علية بارك الله فيك أظن أن السؤال هو هل يمكن جعل سطر معين من الصفحة كذيل للصفحة فمثلاً أنت تستطيع أن تجعل سطر أو عدة أسطر تظهر في عنوان الصفحة والأخ السائل يريدها أن تظهر في أسفل الصحة، وعذراً منك أخي تم تعديل أغسطس 18, 2013 بواسطه توكل رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أغسطس 18, 2013 مشاركة قام بنشر أغسطس 18, 2013 علي ماأعلم لايوجد هذا الخيار بالإكسل ولكن ، يمكن التحايل علي ذلك بإلصاق صورة في التذييل (وهذا متاح) لكن الحيلة أن تكون الصورة هي السطر أو الأسطر المراد تكرارها 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة توكل قام بنشر أغسطس 18, 2013 أفضل إجابة مشاركة قام بنشر أغسطس 18, 2013 علي ماأعلم لايوجد هذا الخيار بالإكسل ولكن ، يمكن التحايل علي ذلك بإلصاق صورة في التذييل (وهذا متاح) لكن الحيلة أن تكون الصورة هي السطر أو الأسطر المراد تكرارها أخي المهندس طارق هل يمكن كتابة كود لحل هذه المشكلة؟ أنا بحثت عن كود لطباعة سطر كتذيل للصفحة ولكن لم أجد، فهل تتفتق عبقريتكم الفذة عن حل؟ آمل ذلك رابط هذا التعليق شارك More sharing options...
sahar_saed قام بنشر أغسطس 19, 2013 الكاتب مشاركة قام بنشر أغسطس 19, 2013 علي ماأعلم لايوجد هذا الخيار بالإكسل ولكن ، يمكن التحايل علي ذلك بإلصاق صورة في التذييل (وهذا متاح) لكن الحيلة أن تكون الصورة هي السطر أو الأسطر المراد تكرارها شكراَ أخى الكريم رابط هذا التعليق شارك More sharing options...
احمد محمود عبد الفتاح قام بنشر يوليو 13, 2017 مشاركة قام بنشر يوليو 13, 2017 يمكنك تجربة هذا الكود (منقول) 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 1 رابط هذا التعليق شارك More sharing options...
أبو يوسف النجار قام بنشر يوليو 14, 2017 مشاركة قام بنشر يوليو 14, 2017 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 أستاذ / أحمد محمود عبد الفتاح ما شاء الله ( كود روعة ) حل لنا مشكلة كبيرة عند الطباعة ( بارك الله فيكم ) رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.