اذهب الي المحتوي
أوفيسنا

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


marwa41
إذهب إلى أفضل إجابة Solved by ابوبسمله,

الردود الموصى بها

  • أفضل إجابة

السلام عليكم

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

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information