Sub Macro1()
'
                 'حفظ PDF
         Range("A1:A50").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "" & " " & Range("AL1").Value _
    & " " & Format(Now, "dd-mm-yyyy"), Quality _
    :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
End Sub</span></span></strong></span>
<span style="color:#0000CD;"><strong><span style="font-size:18px;"><span style="font-family:droid arabic kufi;">