خلل في كود الحفظ بـ PDF

[ahmed nahedh]

السلام عليكم 

اثناء عملي على مشروع خاص بي واستخدام ال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

تم تعديل ديسمبر 24, 2018 بواسطه ahmed nahedh
اضافه الكود

[بن علية حاجي]

السلام عليكم

الخلل أنك نسيت أن تكتب اسم ملف بي دي أف في الخلية A1 (الاسم الذي تريد الحفظ به)... 

بن علية حاجي

[ahmed nahedh]

قمت بتصحيح مكان اسم الملف لكوني اريد اسم الملف في الخليه G6 ولكن بقيت نفس الحاله 

[أ / محمد صالح]

بعد إذن حبيبنا بن علية
طالما مسار الحفظ في نفس مسار الملف يمكن اختصار الكود إلى ذلك

Sub save_pdf()
Sheets("Sheet1").Select

Dim filename As String
filename = ActiveWorkbook.Path & "\PDF\" & Range("g6") & ".pdf"

Sheets("Sheet1").Range("a1:i26").ExportAsFixedFormat Type:=xlTypePDF, filename:=filename, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

وفقنا الله جميعا لكل ما يحبه ويرضاه

[ahmed nahedh]

قمت بتصحيح مكان اسم الملف لكوني اريد اسم الملف في الخليه G6 ولكن بقيت نفس الحاله 

تم الحل شكرا جزيلا اتعبتكم معي 

[أ / محمد صالح]

4 ساعات مضت, ahmed nahedh said:

قمت بتصحيح مكان اسم الملف لكوني اريد اسم الملف في الخليه G6 ولكن بقيت نفس الحاله 

تم الحل شكرا جزيلا اتعبتكم معي 

هل عانيت من مشكلة بعد الكود الموجود فى مشاركتي السابقة؟!

المشاركة بها الحل النهائي واختصار الكود 

أم أن تعليقك السابق لا يخص الكلام عن المشاركات السابقة عليه