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

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