الماكرو لم يعد يعمل على ويندز 10

[ِAmerAdnan]

السلام عليكم 

عندي الماكور التالي كان يعمل بكفائة على ويندز 7 اما على ويندز 10 لم يعد يعمل 

وهو تحويل الصفحةالى pdf

 الكود يعمل ولكن لايحفظ الملف ( يعني عند تشغيل الكود يوحي لك انه عمل ولكن لايوجد ملف pdf فعلياً 

اما بالنسبة لإرفاق الملف فهو ملف كبير ومعقد ومتفرع 

Sub UTurnArrow10_Click()
On Error Resume Next
    Dim fileName As String, saveAsFileName As Variant
    Dim PDFrange As Range
    With Sheets("sheetramhi")
        Set PDFrange = .Range("a1:J191")
    End With
    saveAsFileName = Application.GetSaveAsFilename(InitialFileName:=Get_SpecialFolderPath("Desktop") & fileName, _
                        FileFilter:="PDF file (*.pdf), *.pdf", _
                        Title:="Save PDF file")
    If saveAsFileName <> False Then
    On Error Resume Next
        PDFrange.ExportAsFixedFormat Type:=xlTypePDF, fileName:=saveAsFileName, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 On Error GoTo 0
 On Error GoTo 0
    End If
End Sub
Private Function Get_SpecialFolderPath(SpecialFolderName As Variant) As String
    Get_SpecialFolderPath = CreateObject("WScript.Shell").SpecialFolders(SpecialFolderName) & "\PDF sheetramhi"
End Function

test.rar

[عبدالفتاح في بي اكسيل]

هل  يظهر  لك  اي  خطأ 

جرب  تشغيل  F8  من داخل محرر الاكواد   سطر  بسطر  قد  يخرج  لك  خطا