توضيح الخطاء في كود VBA لتصدير الملف إلى PDF

[Mohdbns3id]

السلام عليكم روحمة الله وبركاته

بعد تطبيق شرح الاستاذ/ عماد غازي

https://www.youtube.com/watch?v=Jd0vMJ4vw-w

الكود تمام وبيصدر الملف وبيفتح لما بسوي تصدير من الزر

بس لما بروح لملف ال PDF نفسو اللي تم تصديره وبحاول أفتحه بتطلع الرسالة دي

" 

تعذر فتح PDF هناك شيء ما يمنع ملف PDF من الفتح. العودة إلى آخر صفحة"

هذا الكود

Sub حفظ_حفظ ()
Dim path As String
Dim fn As String

path = "C:\SKD\"
fn = Range("L2").Value
ActiveWorkbook.SaveCopyAs Filename:=path & fn & ".PDF"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fn, openafterpublish:=True

End Sub

 

[أحمد يوسف]

عليك بتسطيب برنامج قارىء pdf

[Mohdbns3id]

موجود

وجربت افتحه من جهاز ثاني ونفس المشكله 

مالحل ؟