عبدالله المجرب قام بنشر ديسمبر 13, 2010 مشاركة قام بنشر ديسمبر 13, 2010 هل يوجد كود لعمل Headea & footer للطباعة في الاكسل بحيث اذا قام اي شخص باضافتة من الضبط لا يتم قبوله ويتم عرض الذي في الكودفقط اثناء عرض الطباعة((واذا كان هذا الكود ممكن فهل يتمتع بنفس الخصائص من توسيط ويسار ويمين وغيرها)) رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر ديسمبر 13, 2010 مشاركة قام بنشر ديسمبر 13, 2010 أخى سجل ماكرو و نفذ ما تريد من رأس و تذييل الصفحة و ستجد الأوامر فى الماكرو المسجل رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر ديسمبر 13, 2010 الكاتب مشاركة قام بنشر ديسمبر 13, 2010 ولكن استاذي العزيز كيف جعل الميكرو يعمل بمجرد فتح صفحة عرض الطباعة وعند تغيير((بيانات التذييل والترويسه من اعدادت عرض الطباعة)) ومحاولة الطباعة يتم طباعة مافي الميكرو وليس ما تم تغييره رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر ديسمبر 13, 2010 مشاركة قام بنشر ديسمبر 13, 2010 بعد تسجيل الماكرو انسخ السطور و كيفها حسب طلبك ثم الصقها فى الكود الخاص بك الهدف من هذه العملية فقط هو معرفة الأوامر رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر ديسمبر 14, 2010 الكاتب مشاركة قام بنشر ديسمبر 14, 2010 استاذي العزيز كيماس ماهو الكود في مثل هذه الحالة رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر ديسمبر 14, 2010 مشاركة قام بنشر ديسمبر 14, 2010 (معدل) لمنع التلاعب بإعداد الصفحة استخدم الكود التالى : ActiveSheet.PrintPreview False * لاحظ أن الإكسل لا يفعل معاينة الطباعة إذا كان الشيت فارغا يعنى لا بد أن يكون بالشيت أية بيانات يمكنك وضعه فى حدث تنشيط الورقة Private Sub Worksheet_Activate() ActiveSheet.PrintPreview False End Sub تم تعديل ديسمبر 14, 2010 بواسطه kemas رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر ديسمبر 22, 2010 الكاتب مشاركة قام بنشر ديسمبر 22, 2010 (معدل) الاستاذ الفاضل كيماس كيف يمكن ان اجعل الكود يعمل ويقوم بطباعة الترويسةاو التذييل التي انا قمت بتسجيلها في الميكرو حتى ولو قام اي شخص اخر بادخال ترويسه جديده من خلال ضبط الصفحة او معاينة الطباعة ((اي انه لو حاول اي شخص عمل ترويسهاو تذييل وبمجرد الضغط غلى زر الطباعة يعمل الميكرو ويتم طباعة الترويسة او التذييل التي انا قمت بتسجيلها على هيئة ميكرو)) اتمنى ان اكون وفقت في الشرح تم تعديل ديسمبر 22, 2010 بواسطه ولد المجرب رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر ديسمبر 22, 2010 مشاركة قام بنشر ديسمبر 22, 2010 السلام عليكم و رحمة الله اخي ولد المجرب اضافة لإقتراحات الاخ كيماس جرب هذا الكود حيث يقوم بتغيير رأس الصفحة و التذييل في الوسط الى اسم يحيى قبل الطباعة جربه لعله يفيدك Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .CenterHeader = "Yahya" .CenterFooter = "Yahya1" End With End Sub رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر ديسمبر 22, 2010 الكاتب مشاركة قام بنشر ديسمبر 22, 2010 الاستاذ الفاضل العزيز يحيى حسين اشكرك جزيل الشكر وبالفعل هذا هو المطلوب كما اشكر الاستاذ كيماس على مساعدته . ابواحمد رابط هذا التعليق شارك More sharing options...
asdhamdey قام بنشر أكتوبر 21, 2011 مشاركة قام بنشر أكتوبر 21, 2011 أفكاركم جميله ولكن نريد التذييل آخرالبيانات وليس آخر الصفحه رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أكتوبر 21, 2011 مشاركة قام بنشر أكتوبر 21, 2011 أخى الفاضل انظر الرابط http://www.officena.net/ib/index.php?showtopic=38916&st=0&gopid=213740& رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 22, 2011 مشاركة قام بنشر أكتوبر 22, 2011 السلام عليكم استاذي الحبيب عبدالله المجرب هكذا بيكون حسب عمود a:f اخر خليه فيها بيانات في كلا هذه الاعمدة يقوم يتعمدها كتحديد للطباعة والله اعلم Private Sub Worksheet_Change(ByVal Target As Range) Dim thded As HPageBreak Dim rngCol As Range Dim arow As Range On Error Resume Next For Each thded In ActiveWindow.SelectedSheets.HPageBreaks thded.Delete Next thded Set rngCol = ActiveSheet.Range("a2:f" & Cells(Rows.Count, "a:f").End(xlUp)) Do Set arow = rngCol(1) Set rngCol = rngCol.ColumnDifferences(Comparison:=arow) rngCol.Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("a2").End(xlDown).Offset(2, 0) Loop Until arow = rngCol(1) End Sub 1 رابط هذا التعليق شارك 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.