teacher maher قام بنشر مايو 1, 2011 مشاركة قام بنشر مايو 1, 2011 استاذى ابوعبدالله وأبواحمد اشكركم على مجهودكم معنا حيث نفذت الكود الذى حضرتك ارسلته لى ولكن الطباعة تكون لاول رقم جلوس فقط وانا اريد كلما تغير رقم الجلوس والنتيجة فى الفورم تتغير بالتالى فى الشهادة حيث حين نفذت الكود لم تتغير النتيجة فى الشهادة اريد من حضراتكم كود لربط الفورم بالشهادة حيث يتم طباعة النتيجة التى فى الفورم ولكن من الشهادة وهذا هو المرفق لحضراتكم مشروع1.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مايو 1, 2011 مشاركة قام بنشر مايو 1, 2011 (معدل) اخي الفاضل ماهر هذا الكود يوضع في زر الطباعة 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 بواسطه ولد المجرب رابط هذا التعليق شارك More sharing options...
teacher maher قام بنشر مايو 1, 2011 الكاتب مشاركة قام بنشر مايو 1, 2011 اخي الفاضل ماهر هذا الكود يوضع في زر الطباعة 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 كما لاحظت بان البرنامج يقوم باغلاق كل الشيتات واظهار الفورم فقط ولا يمكنك العودة الى اوراق العمل وهذا قد ييسبب خلل في عمل الكودات ارجو ملاحظة هذه المشكلةواخذها في عين الاعتبار ابواحمد استاذى الفاضل أبو أحمد لو لاحظت حضرتك هناك صورة لطفل عند الضغط عليها يتم الرجوع إلى صفحات الشيت حيث راعيت ذلك حتى يتم العمل داخل الشيت والتعديل فى الأكواد بالاضافة أو الحذف أو حسب إستخدامه رابط هذا التعليق شارك 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.