تحويل الصفحة الى بى دى اف لكن باسم الصفحة فى الفولدر ده مهما تغير مكانه

[marwa41]

السلام عليكم  ..تحويل الصفحة الى بى دى اف لكن باسم الصفحة فى الفولدر ده مهما تغير مكانه

طباعة pdf.rar

[ابوبسمله]

السلام عليكم

اتفضل استاذ @marwa41 ان شاء الله يكون ما تريد

سيتم انشاء ملف pdf باسم الشيت اللى انت موجود فيه والمجلد فى اى مكان فى الجهاز

Sub print_pdf()

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Application.ActiveWorkbook.Path & "\printpdf\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
        
End Sub

بالتوفيق

Data.rar