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

[مجدى يونس]

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

 

الاكواد

طباعة شيت
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

 

 

[Ali Mohamed Ali]

جزاك الله كل خير استاذنا الكريم

[مجدى يونس]

شكرا اخ على