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

marwa41 · أغسطس 26, 2022

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

**أبوبسمله** · أغسطس 27, 2022

السلام عليكم

اتفضل استاذ @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.rarFetching info...