السلام عليكم
هذا الكود استخدمه لطباعة كافة السجلات الموجودة
Sub print_whole_class()
For I = 1 To [stunames].Rows.Count
[g5] = Application.Index([stunames], I)
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
[g5] = Application.Index([stunames], 1)
End Sub
اريد اضافة كود يحدد وقت انتهاءه
بمعنى عند تاريخ 1/1/2020 يتوقف الكود عن العمل طالبا تحديث البيانات مثلا