فرمول تبدیل صفحات اکسل به پی دی اف

بازم اکسل و بازم چیزهای جدید. تو یه فایلی که داشتم برای یکی از همکاران شرکتمون آماده میکردم نیاز شد بصورت انتخابی یک سری از صفحات ( Page Break ) شیت ها رو بصورت پی دی اف خروجی بگیریم و در جایی ذخیره کنیم . برای این کار یکم سرچ کردم و از vba برای فرمول نویسی و ذخیره سازی صفحات استفاده کردم که فرمتش به شکل زیره :

Ws.ExportAsFixedFormat _

    Type:=xlTypePDF, _

    Filename:=folder_address & "\" & sheat_name & ".pdf", _

    Quality:=xlQualityStandard, _

    From:=first_page_break, _

    To:=last_page_break, _

    IncludeDocProperties:=True, _

    IgnorePrintAreas:=False, _

    OpenAfterPublish:=False

این فرمول میاد یک شیت (ws) رو برای استخراج (ExportAsFixedFormat) بصورت فایل پی دی اف (Type:=xlTypePDF) در آدرس و با نام خاص (Filename:=folder_address & "\" & sheat_name & ".pdf") بصورتی که از صفحه (From:=first_page_break) تا صفحه (To:=last_page_break ) رو جدا سازی کرده ذخیره میکنه . 

folder_address در اینجا یه آدرس از پیش تعریف شده است 

sheat_name  هم نام فایلی که میخوایم ذخیره کنیم 

first_page_break و  last_page_break هم اعدادی برای شماره صفحات در خروجیه

باقی خصوصیات هم از اسمشون مشخصه .

من برای اینکه بتونید پروژه رو بصورت عملی هم ببینید یه فایل اکسل آماده کردم و در GitHub قرار دادم .

منبع زبان اصلی آموزش هم میتونید اینجا ببنید 

امیدوارم مفید بوده باشه . سوالی بود در خدمتم