السلام عليكم
اثناء عملي على مشروع خاص بي واستخدام الVBA تم ظهور هذه المشكله الموجودة في الصور
هل من مساعدة
علما اني استخدمت الكود
Sub save_pdf()
Sheets("Sheet1").Select
Dim filename As String
Dim ChDir As String
filename = Range("A1")
ChDir = "C:\Users\alwaha\Desktop\doctors\PDF\"
Sheets("Sheet1").Range("a1:i26").ExportAsFixedFormat Type:=xlTypePDF, filename:= _
ChDir & filename & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
doctors.rar