عاوز أضيف على الكود دا حفظ التاريخ كمان بحيث الملف يتحفظ بالإسم والتاريخ كمان
Sub SAVERANGEPDF()
' SAVERANGEPDF ماكرو
' SAVE RANG EPDF
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & ThisWorkbook.Name, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
SAVE PDF.xlsm