م
 
	
		
			ليه لما احط الكود بتاع التاريخ و الوقت فى اليوزرفورم الملف مايتشغلش و حتى محرر الاكواد لا يعمل ؟
		
	
	
		
			الكود :
		
		
			Private Sub UserForm_Activate ()
		
	
	
		
			Label4.Caption = Date
		
	
	
		
			Label5.Caption = Format(Date, "dddd")
		
	
	
		
			Do
		
	
	
		
			Label6.Caption = Time
		
	
	
		
			DoEvents
		
	
	
		
			Loop
		
	
	
		
			End Sub
		
	
	حتاج ضرورى كود لطباعة الخلايا التى بها بيانات و عدم طباعة الخلايا الفارغة