مساعده فى صياغة كود حفظ شيت بصيغة pdf

[۩◊۩ أبو حنين ۩◊۩]

الساده الكرام

بعد التحيه لجميع اعضاء المنتدى

ارجو المساعده فى صياغه كود لحفظ شيت اكسيل داخل ملف او اكثر من شيت بشكل pdf

على ان يكون مكان حفظ  الشيت او مجموع الشيتات على desktop

اكرمكم الله

[۩◊۩ أبو حنين ۩◊۩]

الساده الافاضل

 هل يمكن اضافه تاريخ اليوم لاسم الشيت الذى يتم حفظه بصيغه pdf فى ذلك الكود

Sub PDF_ALL()
    Range("C45").Select
    Sheets(Array("الاتوبيس", "طائرة", "مطروح", "تعديل")).Select
    Sheets("الاتوبيس").Activate
    ChDir "C:\Users\HaNeN\Desktop"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\HaNeN\Desktop\مانفست كلابشة.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

 

 

[شوقي ربيع]

السلام عليكم

 

ستجد في هذا الملف 

- تحويل الملف بالكامل الى ملف pdf

- تحويل ورقت عمل اختيارية بواسطة قائمة منسدلة الى ملف PDF

- تحويل نطاق محدد الى ملف PDF

كما اني جعلة مسارحفظ ملف PDF الذي سينشاء  وتسميته ايضا  اختيارية

ارجو ان يكون فيه الفائدة لك ولجميع الاعضاء

تحياتي

[شوقي ربيع]

السلام عليكم

 

ستجد في هذا الملف 

- تحويل الملف بالكامل الى ملف pdf

- تحويل ورقت عمل اختيارية بواسطة قائمة منسدلة الى ملف PDF

- تحويل نطاق محدد الى ملف PDF

كما أني جعلة مسار حفظ ملف PDF الذي سينشاء وكذلك تسميته اختيارية

ارجو ان يكون فيه الفائدة لك ولجميع الاعضاء

تحياتي

Convert to PDF.rar

Convert to PDF.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ العزيز شوقى

جزاك الله خيرا على مجهودك الرائع

هل بمكن اضافه تاريخ الغد لاسم الشيت الافتراضى فى الكود بصفه دوريه

اليك الكود

Sub PDF_ALL()

    Range("C45").Select
    Sheets(Array("الاتوبيس", "طائرة", "مطروح", "تعديل")).Select
    Sheets("الاتوبيس").Activate
    ChDir "C:\Users\HaNeN\Desktop"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\HaNeN\Desktop\مانفست كلابشة.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

بمعنى اسم الملف بعد الحفظ ( مانفست كلابشة ) هلى يمكن ان يكون ( مانفست كلابشة 2014/1/1 ) على اعتبار ان  2014/1/1 هو تاريخ الغد

السوال الاخر

هلى يمكن ارسال الملف بعد حفظه بصيغه pdf عن طريق الاميل  outlook فى نفس الكود

[privilege]

أكثر من رائع 

تحياتى لكم أساتذتى جميعا

وخاصة أ / شوقى ربيع

وتقبلوا منى جميعا وافر الإحترام والتقدير 

[Ali Mohamed Ali]

أهلا بك اخى الكريم فى المنتدى الفاضل -تفضل

2.xlsm