اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تحديد رأس وتذيل صفحة الطباعة برمجيا

بسم الله نبدأ موضوعنا اليوم هو كيفية تحديد رأس وتذيل صفحة الطباعة عن طريق الاكواد وأيضا عن طريق تحديدها من خلال ال ..




01-12-2017 09:44 مساء
مشاهدة مشاركة منفردة [13]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 672
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 140
قوة السمعة : 2382
الاعجاب : 859
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
المشاركة الأصلية كتبت بواسطة: Kamel meraghni »
عمل رائع بارك الله فيك

جزاك الله خيرا 

أثارت هذه المشاركة إعجاب: هاشم بركات، Eslam Abdullah،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


13-01-2018 10:17 مساء
مشاهدة مشاركة منفردة [14]
ظفر الله عسكر
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-12-2017
رقم العضوية : 2747
المشاركات : 89
الجنس : ذكر
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 349
الاعجاب : 87
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
لكل امرء من اسمه نصيب
وانت يا استاذ  محمود ذهب
ذهب 100/100 الف شكر لك

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، ناصر سعيد1، Eslam Abdullah،




13-01-2018 10:31 مساء
مشاهدة مشاركة منفردة [15]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 672
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 140
قوة السمعة : 2382
الاعجاب : 859
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
المشاركة الأصلية كتبت بواسطة: ظفر الله عسكر »
لكل امرء من اسمه نصيب
وانت يا استاذ  محمود ذهب
ذهب 100/100 الف شكر لك


بارك الله فيك اشكرك على كلامك الطيب

أثارت هذه المشاركة إعجاب: Eslam Abdullah،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


14-01-2018 09:57 صباحا
مشاهدة مشاركة منفردة [16]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 253
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 4
يتابعهم : 14
يتابعونه : 4
قوة السمعة : 225
الاعجاب : 76
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
السلام عليكم  استاذي الفاضل جزاك الله كل خير على كل ماتقدمه زيادة في ميزان حسناتك مزيدا من تقدم وتفوق ونجاح يارب
والله اكواد ممتازة جدا وشرح مفصل رائع وترجمة جيدة والله انت فعلا خبير عن قريب يارب سوف يرقوك الى استاذ خبير ان شاء الله 
واليك استفساري حول طباعة فواصل الصفحات 
يااستاذ انا عندي في ملفي مضبط كل فواصل الصفحات ولكن عند وضع ملفي في جهاز اخر تتحول وتصبح غير مضبطة 
هل الكود الذي عملته يقوم بحل هذا المشكل 
انتظر الرد منك

تقبل تحياتي

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، ناصر سعيد1، Eslam Abdullah،




14-01-2018 06:22 مساء
مشاهدة مشاركة منفردة [17]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 672
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 140
قوة السمعة : 2382
الاعجاب : 859
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
المشاركة الأصلية كتبت بواسطة: malik »
السلام عليكم  استاذي الفاضل جزاك الله كل خير على كل ماتقدمه زيادة في ميزان حسناتك مزيدا من تقدم وتفوق ونجاح يارب
والله اكواد ممتازة جدا وشرح مفصل رائع وترجمة جيدة والله انت فعلا خبير عن قريب يارب سوف يرقوك الى استاذ خبير ان شاء الله 
واليك استفساري حول طباعة فواصل الصفحات 
يااستاذ انا عندي في ملفي مضبط كل فواصل الصفحات ولكن عند وضع ملفي في جهاز اخر تتحول وتصبح غير مضبطة 
هل الكود الذي عملته يقوم بحل هذا المشكل 
انتظر الرد منك

تقبل تحياتي

تتغير الفواصل تبعا لتغير نوع نسخة الاوفس 
ورأي بامكانك تحديد جزء العمل الذى تريد طباعتة بصفحة مستقلة عن باقي العمل وعلى قدر علمى فهذا ما يحدث عندك بالفعل ثم قم بإخفاء باقي الاعمدة والصفوف التى تزيد عن حاجتك 
او اجعل لون الخلايا المجاورة بلون مختلف يصفل النطاق عن باقي الشيت 
ثم حدد نطاق الطباعة برمجيا عن طريق الاكواد

وبالنسبة للدالة المعرفة هنا فهى للتعامل فقط مع رأس وذيل صفحة الطباعة اى شكل الصفحة عند الطباعة

واتبع رابط الموضوع ده لاستاذ حسام خطاب وحاول تطوعة لعملك فقد ينفعك 
لرؤية الروابط والمرفقات عليك الرد على الموضوع 

أثارت هذه المشاركة إعجاب: ناصر سعيد1، YasserKhalil، Eslam Abdullah،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


15-01-2018 12:51 مساء
مشاهدة مشاركة منفردة [18]
احمد الحاوي
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 213
المشاركات : 31
الجنس : ذكر
تاريخ الميلاد : 20-12-1971
يتابعهم : 7
يتابعونه : 2
قوة السمعة : 76
الاعجاب : 28
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
جزاكم الله خيرا..استاذ محمود ابو الدهب...جهد طيب وموضوع مهم للكثيرين وشرح ممتع .
وماتخفش مش هنروح ف داهية ..احنا وصلنا ليها اصلا 
laugh

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، Eslam Abdullah،




28-05-2018 04:50 مساء
مشاهدة مشاركة منفردة [19]
هاشم بركات
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 708
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 15-1-1968
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 22
الاعجاب : 6
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
بارك الله فيك أ. محمود على هذا الشرح الوافي

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، Eslam Abdullah،




30-05-2018 02:08 مساء
مشاهدة مشاركة منفردة [20]
mahmoud ayad
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 118
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
يتابعهم : 4
يتابعونه : 2
قوة السمعة : 277
الاعجاب : 121
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
عمل رائع ومجهود كريم استاذ محمود جزاك الله خيرا

أثارت هذه المشاركة إعجاب: Eslam Abdullah، محمود ابو الدهب،




26-09-2018 06:44 مساء
مشاهدة مشاركة منفردة [21]
ashraf_hertlion
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 64
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 5
يتابعونه : 1
قوة السمعة : 87
الاعجاب : 37
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
عمل رائع بارك الله فيك يا أخى العزيز ..... بس ياريت لوعملت فيديو تشرح فيه كيفية عمل هذا الكود الخطير يبقى منتهى الجمال
لأن كثير منا ممكن يستعمل الكود وايضأ كتير قوى ممكن ميعرفشى يستخدمه ، الصوت والصور بيبقى التواصل والفهم يكون سريع
شرفت بمرورى على موضوعك الشيق والممتع 123

أثارت هذه المشاركة إعجاب: Eslam Abdullah، محمود ابو الدهب،




30-09-2018 07:51 صباحا
مشاهدة مشاركة منفردة [22]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 185
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
يتابعهم : 13
يتابعونه : 6
قوة السمعة : 2056
الاعجاب : 416
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
بارك الله فيك استاذ أيو الذهب 
لكن انا ارى انه لا ضرورة لكل هذا الكود الطويل 
انا شخصياً استعمل هذا الكود البسيط ( يمكن التعديل حسب الحاجة  )

Option Explicit
Sub defind_freader()
Dim lr%: lr = Application.Max(ActiveSheet.Range("A:A")) + 1
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
        .PrintArea = Range("A1:D" & lr).Address
        .LeftHeader = "Date: " & Date & Chr(10) & "Time: " & Time
        .CenterHeader = "I Am The Centre Header"
        .RightHeader = "الصفحة &P من  &N" & " صفخات"
        .CenterFooter = "I Am The Centre Footer"
        .LeftFooter = "sheet: " & ActiveSheet.Name
        .RightFooter = "MY RightFooter"
End With
Application.ScreenUpdating = True
End Sub

الملف مرفق
 




لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: YasserKhalil، محمود ابو الدهب،




30-09-2018 08:58 مساء
مشاهدة مشاركة منفردة [23]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4624
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13291
الاعجاب : 4911
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
بارك الله فيك أخي الحبيب سليم وجزيت خيراً على إثرائك للموضوعات بحلولك المميزة

أثارت هذه المشاركة إعجاب: salim، محمود ابو الدهب،




01-10-2018 10:09 مساء
مشاهدة مشاركة منفردة [24]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 672
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 140
قوة السمعة : 2382
الاعجاب : 859
 offline 
look/images/icons/i1.gif تحديد رأس وتذيل صفحة الطباعة برمجيا
[quote=salim]
بارك الله فيك استاذ أيو الذهب 
لكن انا ارى انه لا ضرورة لكل هذا الكود الطويل 
انا شخصياً استعمل هذا الكود البسيط ( يمكن التعديل حسب الحاجة  )

Option Explicit
Sub defind_freader()
Dim lr%: lr = Application.Max(ActiveSheet.Range("A:A")) + 1
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
        .PrintArea = Range("A1:D" & lr).Address
        .LeftHeader = "Date: " & Date & Chr(10) & "Time: " & Time
        .CenterHeader = "I Am The Centre Header"
        .RightHeader = "الصفحة &P من  &N" & " صفخات"
        .CenterFooter = "I Am The Centre Footer"
        .LeftFooter = "sheet: " & ActiveSheet.Name
        .RightFooter = "MY RightFooter"
End With
Application.ScreenUpdating = True
End Sub

الملف مرفق
 
بارك الله فيك استاذ سليم وشكرا على  الاضافة

ولكن كان الغرض من الموضوع ان يكون التحكم من خلال خلايا معين بالشيت والتحكم في لون الهيدر والحجم والفوت ولهذا وجد هذا الكود زبالتجرب قد يحتاج اليه الكثير لتسهيل وتسريع طباعة عملهم وخاصتا اذا كان لديهم برنامج كبير به الكثير من مخرجات الطباعة وعلية يتم التحكم فيهم من خلال الشيت لتسهيل وتسريع الامر

وبالنسبة لاضافة حضرتك فهي رائعه ...
ولكن اذا كان الامر لمجرد الاختصار فبالمشاركة رقم اتنين وضعت هذا الكود وهو مختصر ويغنى عن كل السابق لو لاحظة حضرتك وبه بعض التنسيقات ايضا 
.LeftHeader = "&""Arial,Bold""&18" & Worksheets("Data").Range("AB8").Value


تحياتى لحضرتك
 


تم تحرير المشاركة بواسطة :محمود ابو الدهب
بتاريخ:01-10-2018 10:20 مساء




توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب




الكلمات الدلالية
يحديد ، وتذيل ، صفحة ، الطباعة ، برمجيا ، تحديد ، صفحة ، الطباعة ، برمجيا ، vba code for ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 10:32 مساء

أعلن هنا
أعلن هنا
أعلن هنا