طلب اكود

[رؤوف شعرون]

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

اعتذر على كثرة الطلبات والموضوعات وجزآكم الله خيرا

في المرفق ملف مكون من3 قواعد بيانات كل قاعدة يوجد بهيا فرم المطلوب4 أكود وهم

1- كود لمعاينة الطباعة   2- كود لطابعة 3- كود لتسجيل البيانات 4- كود لحفظ البيانات

مع العلم عوز لم يتم الطابعة تكون نفس شكل الفرم

 

و جزآكم الله خيرا

قاعدة بيانات المدرسة.rar

[رؤوف شعرون]

للرفع

[رؤوف شعرون]

للرفع

[ياسر خليل أبو البراء]

صعب إن حد يتجاوب في موضوع فيه 4 طلبات في نفس الوقت

راجع التوجيهات ..

أنا أحد الناس (رغم أني لا أتأخر عن أحد والجميع يعرف ذلك) إلا أنني عندما أطلع على موضوع به أكثر من طلب أقوم بتأجيله في كل مرة إلى أن لا أجد وقت له

يرجى مراعاة التوجيهات إخواني الكرام ..

 

موضوع التوجيهات ليس مجرد موضوع وضع للتسلية إنما هي بمثابة قوااااااااعد يجب العمل بها تيسيراً لمن يريد أن يقدم المساعدة ولكي يجد السائل حل لمشكلته بشكل أسرع

تقبل تحياتي

[رؤوف شعرون]

صعب إن حد يتجاوب في موضوع فيه 4 طلبات في نفس الوقت

راجع التوجيهات ..

أنا أحد الناس (رغم أني لا أتأخر عن أحد والجميع يعرف ذلك) إلا أنني عندما أطلع على موضوع به أكثر من طلب أقوم بتأجيله في كل مرة إلى أن لا أجد وقت له

يرجى مراعاة التوجيهات إخواني الكرام ..

 

موضوع التوجيهات ليس مجرد موضوع وضع للتسلية إنما هي بمثابة قوااااااااعد يجب العمل بها تيسيراً لمن يريد أن يقدم المساعدة ولكي يجد السائل حل لمشكلته بشكل أسرع

تقبل تحياتي

 

أخي الحبيب ياسر خليل

جزيت خيراً أخي الغالي وبارك الله فيك  و اعتذر على كثرة الطلبات

وتم الاخذ بالنصيحة

في ملف المرفق فرم قاعدة بيانات المطلوب

 كود لمعاينة الطباعة   او كود لطابعة 

قاعدة بيانات المدرسة.rar 

[ياسر خليل أبو البراء]

اعذرني عن عدم الإطلاع على الملف ولكن إليك الكود التالي عله يفيدك

Sub PrintPreview()
    'يقوم الكود بمعاينة ما قبل الطباعة
    'يمكنك تحديد أكثر من ورقة عمل ثم تنفيذ الماكرو لتقوم بالمعاينة لكل أوراق العمل المحددة
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

تقبل تحياتي

[رؤوف شعرون]

اعذرني عن عدم الإطلاع على الملف ولكن إليك الكود التالي عله يفيدك

Sub PrintPreview()
    'يقوم الكود بمعاينة ما قبل الطباعة
    'يمكنك تحديد أكثر من ورقة عمل ثم تنفيذ الماكرو لتقوم بالمعاينة لكل أوراق العمل المحددة
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

تقبل تحياتي

تسلم أخي الحبيب ياسر بس عوز لم يتم معاينة الطابعة تكون نفس شكل الفرم مش ورقة العمل