كود لحفظ الشيت على شكل PDF

[علي المصري]

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

الكود التالي استخدمه لحفظ الشيت في صورة بي دي اف

ولكن لا يعمل مع بعض الاجهزة

ولا اعرف  السبب

Function CrePDF(WS As Object, MyPath As String, OverFile As Boolean, OpenPDF As Boolean) As String

    Dim FilExt As String
    Dim Fname As Variant
    If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then
        If MyPath = "" Then
            FilExt = "PDF Files (*.pdf), *.pdf"
            Fname = Application.GetSaveAsFilename("", filefilter:=FilExt, Title:="Create PDF")

            If Fname = False Then Exit Function
        Else
            Fname = MyPath
        End If
        If OverFile = False Then
            If Dir(Fname) <> "" Then Exit Function
        End If
        On Error Resume Next
        WS.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=OpenPDF
        On Error GoTo 0
        If Dir(Fname) <> "" Then CrePDF = Fname
    End If

End Function

فهل اجد الحل لديكم

هل من الممكن ان تكون السبب من نسخة 32 بت 

نسخة 64 بت