طباعة شهادة من الفورم بدليل شهادت فى الشيت

[teacher maher]

استاذى ابوعبدالله وأبواحمد اشكركم على مجهودكم معنا

حيث نفذت الكود الذى حضرتك ارسلته لى

ولكن الطباعة تكون لاول رقم جلوس فقط

وانا اريد كلما تغير رقم الجلوس والنتيجة فى الفورم تتغير بالتالى فى الشهادة

حيث حين نفذت الكود لم تتغير النتيجة فى الشهادة

اريد من حضراتكم كود لربط الفورم بالشهادة

حيث يتم طباعة النتيجة التى فى الفورم ولكن من الشهادة

وهذا هو المرفق لحضراتكم

مشروع1.rar

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

اخي الفاضل ماهر

هذا الكود يوضع في زر الطباعة

Private Sub CommandButton2_Click()

Me.Hide

Sheets("الشهادات").Range("H5").Value = TextBox1.Value

Sheets("الشهادات").Select

ActiveSheet.PageSetup.PrintArea = "$A$1:$L$40"

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Range("A1").Select

End Sub

هذا الكود يوضع في زر معاينة قبل الطباعة

Private Sub CommandButton3_Click()

Me.Hide

Sheets("الشهادات").Range("H5").Value = TextBox1.Value

Sheets("الشهادات").Select

ActiveSheet.PageSetup.PrintArea = "$A$1:$L$40"

    ActiveWindow.SelectedSheets.PrintPreview

    Range("A1").Select

End Sub

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

ابواحمد

تم تعديل مايو 1, 2011 بواسطه ولد المجرب

[teacher maher]

اخي الفاضل ماهر

هذا الكود يوضع في زر الطباعة

Private Sub CommandButton2_Click()

Me.Hide

Sheets("الشهادات").Range("H5").Value = TextBox1.Value

Sheets("الشهادات").Select

ActiveSheet.PageSetup.PrintArea = "$A$1:$L$40"

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Range("A1").Select

End Sub

هذا الكود يوضع في زر معاينة قبل الطباعة

Private Sub CommandButton3_Click()

Me.Hide

Sheets("الشهادات").Range("H5").Value = TextBox1.Value

Sheets("الشهادات").Select

ActiveSheet.PageSetup.PrintArea = "$A$1:$L$40"

    ActiveWindow.SelectedSheets.PrintPreview

    Range("A1").Select

End Sub

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

ابواحمد

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

حيث راعيت ذلك حتى يتم العمل داخل الشيت والتعديل فى الأكواد بالاضافة أو الحذف أو حسب إستخدامه