راس وتذييل الصفحة

[عبدالله المجرب]

هل يوجد كود لعمل Headea & footer للطباعة في الاكسل بحيث اذا قام اي شخص باضافتة من الضبط لا يتم قبوله ويتم عرض الذي في الكودفقط اثناء عرض الطباعة((واذا كان هذا الكود ممكن فهل يتمتع بنفس الخصائص من توسيط ويسار ويمين وغيرها))

[عبد الفتاح كيرة]

أخى

سجل ماكرو

و نفذ ما تريد من رأس و تذييل الصفحة

و ستجد الأوامر فى الماكرو المسجل

[عبدالله المجرب]

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

[عبد الفتاح كيرة]

بعد تسجيل الماكرو

انسخ السطور و كيفها حسب طلبك

ثم الصقها فى الكود الخاص بك

الهدف من هذه العملية فقط

هو معرفة الأوامر

[عبدالله المجرب]

استاذي العزيز كيماس

ماهو الكود في مثل هذه الحالة

[عبد الفتاح كيرة]

لمنع التلاعب بإعداد الصفحة

استخدم الكود التالى :

ActiveSheet.PrintPreview False

* لاحظ أن الإكسل لا يفعل معاينة الطباعة إذا كان الشيت فارغا يعنى لا بد أن يكون بالشيت أية بيانات يمكنك وضعه فى حدث تنشيط الورقة

Private Sub Worksheet_Activate()

ActiveSheet.PrintPreview False

End Sub

تم تعديل ديسمبر 14, 2010 بواسطه kemas

[عبدالله المجرب]

الاستاذ الفاضل كيماس

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

تم تعديل ديسمبر 22, 2010 بواسطه ولد المجرب

[يحيى حسين]

السلام عليكم و رحمة الله

اخي ولد المجرب

اضافة لإقتراحات الاخ كيماس

جرب هذا الكود

حيث يقوم بتغيير رأس الصفحة و التذييل في الوسط الى اسم يحيى قبل الطباعة

جربه لعله يفيدك

 Private Sub Workbook_BeforePrint(Cancel As Boolean)

With ActiveSheet.PageSetup

    .CenterHeader = "Yahya"

    .CenterFooter = "Yahya1"

End With

End Sub 

[عبدالله المجرب]

الاستاذ الفاضل العزيز يحيى حسين اشكرك جزيل الشكر

وبالفعل هذا هو المطلوب

كما اشكر الاستاذ كيماس على مساعدته .

ابواحمد

[asdhamdey]

أفكاركم جميله

ولكن نريد التذييل آخرالبيانات وليس آخر الصفحه

[دغيدى]

أخى الفاضل

انظر الرابط

http://www.officena.net/ib/index.php?showtopic=38916&st=0&gopid=213740&

[الـعيدروس]

السلام عليكم

استاذي الحبيب عبدالله المجرب

هكذا بيكون حسب عمود 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