الاخ كريم
ادرج زر للطباعة وادخل الكود التالى CommandButton
واليك الصورة بعد الطباعة
- الكود:
-
Private Sub CommandButton4_Click()
Label7.Visible = True
Label1.Visible = False
CommandButton1.Visible = False
CommandButton2.Visible = False
CommandButton3.Visible = False
CommandButton4.Visible = False
''''''''''''''''
Me.PrintForm
''''''''''''''''
Label1.Visible = True
CommandButton1.Visible = True
CommandButton2.Visible = True
CommandButton3.Visible = True
CommandButton4.Visible = True
Label7.Visible = False
End Sub
يوجد حل اخر مثل الاضافة ( بترحيل البيانات المطلوبة ) ولكن فى ورقة أخرى مساعدة
ثم إعطاء أمر طباعة للنطاق المحدد بهذه الورقة من خلال زر على اليوزرفورم
لو فيه طلب اخر لما ارجع من السفر
_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك