sahar_saed 0 Posted August 18, 2013 Share Posted August 18, 2013 تكرار الصف فى صفحات الطباعة فى الأسفل Quote Link to post Share on other sites
بن علية حاجي 2,197 Posted August 18, 2013 Share Posted August 18, 2013 عليك استعمال تذييل الصفحة... Quote Link to post Share on other sites
توكل 43 Posted August 18, 2013 Share Posted August 18, 2013 (edited) أخي بن علية بارك الله فيك أظن أن السؤال هو هل يمكن جعل سطر معين من الصفحة كذيل للصفحة فمثلاً أنت تستطيع أن تجعل سطر أو عدة أسطر تظهر في عنوان الصفحة والأخ السائل يريدها أن تظهر في أسفل الصحة، وعذراً منك أخي Edited August 18, 2013 by توكل Quote Link to post Share on other sites
طارق محمود 807 Posted August 18, 2013 Share Posted August 18, 2013 علي ماأعلم لايوجد هذا الخيار بالإكسل ولكن ، يمكن التحايل علي ذلك بإلصاق صورة في التذييل (وهذا متاح) لكن الحيلة أن تكون الصورة هي السطر أو الأسطر المراد تكرارها 1 Quote Link to post Share on other sites
Solution توكل 43 Posted August 18, 2013 Solution Share Posted August 18, 2013 علي ماأعلم لايوجد هذا الخيار بالإكسل ولكن ، يمكن التحايل علي ذلك بإلصاق صورة في التذييل (وهذا متاح) لكن الحيلة أن تكون الصورة هي السطر أو الأسطر المراد تكرارها أخي المهندس طارق هل يمكن كتابة كود لحل هذه المشكلة؟ أنا بحثت عن كود لطباعة سطر كتذيل للصفحة ولكن لم أجد، فهل تتفتق عبقريتكم الفذة عن حل؟ آمل ذلك Quote Link to post Share on other sites
sahar_saed 0 Posted August 19, 2013 Author Share Posted August 19, 2013 علي ماأعلم لايوجد هذا الخيار بالإكسل ولكن ، يمكن التحايل علي ذلك بإلصاق صورة في التذييل (وهذا متاح) لكن الحيلة أن تكون الصورة هي السطر أو الأسطر المراد تكرارها شكراَ أخى الكريم Quote Link to post Share on other sites
احمد محمود عبد الفتاح 2 Posted July 13, 2017 Share Posted July 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 Quote Link to post Share on other sites
أبو يوسف النجار 18 Posted July 14, 2017 Share Posted July 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 أستاذ / أحمد محمود عبد الفتاح ما شاء الله ( كود روعة ) حل لنا مشكلة كبيرة عند الطباعة ( بارك الله فيكم ) Quote Link to post Share on other sites
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.