كود طباعة الفورم
عمل زر طباعه بالفورم
اضف له الكود التالى
Private Sub CommandButton10_Click()
Me.PrintForm
End Sub
و للبحث بالاسم
بدل الكود و الخاص بزر التعديل
Private Sub CommandButton6_Click()
بالكود التالى
Private Sub CommandButton6_Click()
sheet1.Activate
ActiveCell.Offset(0, 1).Value = TextBox2
ActiveCell.Offset(0, 2).Value = TextBox5
ActiveCell.Offset(0, 3).Value = TextBox13
ActiveCell.Offset(0, 4).Value = TextBox14
ActiveCell.Offset(0, 5).Value = TextBox6
ActiveCell.Offset(0, 6).Value = TextBox12
'''ActiveCell.Offset(0, 7).Value = TextBox7
'''ActiveCell.Offset(0, 8).Value = TextBox8
'''ActiveCell.Offset(0, 9).Value = TextBox9
'''ActiveCell.Offset(0, 10).Value = TextBox1
ActiveCell.Offset(0, 12).Value = TextBox21
ActiveCell.Offset(0, 13).Value = TextBox22
ActiveCell.Offset(0, 14).Value = TextBox16
ActiveCell.Offset(0, 15).Value = TextBox20
''''ActiveCell.Offset(0, 16).Value = TextBox17
''' ActiveCell.Offset(0, 17).Value = TextBox18
''' ActiveCell.Offset(0, 18).Value = TextBox19
'''ActiveCell.Offset(0, 19).Value = TextBox15
ActiveCell.Offset(0, 21).Value = TextBox29
ActiveCell.Offset(0, 22).Value = TextBox30
ActiveCell.Offset(0, 23).Value = TextBox24
ActiveCell.Offset(0, 24).Value = TextBox28
''' ActiveCell.Offset(0, 25).Value = TextBox25
'''ActiveCell.Offset(0, 26).Value = TextBox26
''' ActiveCell.Offset(0, 27).Value = TextBox27
''' ActiveCell.Offset(0, 28).Value = TextBox23
'''ActiveCell.Offset(0, 3).Value = ComboBox1
''''ActiveCell.Offset(0, 4).Value = ComboBox2
'''ActiveCell.Offset(0, 5).Value = ComboBox3
MsgBox "تم تسجيل التعديلات"
End Sub
و فى كود زر العرض بدل A الى B
و مرفق ملف اخر لعله يفتح عندك
كود البحث بلاسم.rar