كود طباعة الفورم 
عمل زر طباعه بالفورم 
اضف له الكود التالى 
  
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