طباعة شيت وطباعة فورم وتسجيل تاريخ اليوم

طباعة شيت وطباعة فورم وتسجيل تاريخ اليوم

الاكواد

طباعة شيت
Private Sub CommandButton8_Click()
Application.Dialogs(xlDialogPrinterSetup).Show
ThisWorkbook.Sheets("magdi").PrintOut copies:=1
End Sub
طباعة فورم
Private Sub CommandButton9_Click()
Frame3.Visible = False
Frame5.Visible = False
Frame6.Visible = False
Frame23.Visible = False
Me.PrintForm
Frame3.Visible = True
Frame5.Visible = True
Frame6.Visible = True
Frame23.Visible = True
End Sub
تاريخ اليوم
Private Sub TextBox6_Enter()
TextBox6.Value = Date
TextBox6 = Format(TextBox6, "dd/mm/yyyy")
End Sub

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

من أحب الله رأى كل شئ جميلا

مع تحياتى مجدى يونس

» فورم بحث وتسجيل البيانات فى اى سطر تختاره
» فورم اضافة تاريخ الزيارة واظهار التاريخ من اليمين بالتكست
» فورم بحث واضافة وتعديل وحذف وترحيل بطريقتين فيديو4 طباعة
» فورم ادراج الصور والبحث وتسجيل البيانات فيديو 7
» فورم لتوريد مبالغ الى الوزارات المتعددة وتسجيل التاريخ والوقت