تصدير كل أوراق العمل إلى ملفات بي دي إف منفصلة Export Each Sheet To PDF

السلام عليكم ورحمة الله وبركاته

قدمت لكم من قبل كود يقوم بتصدير أوراق عمل محددة إلى ملف PDF واحد ، أي أن الملف الذي تم تصديره يحتوي على جميع الأوراق المحددة من خلال الكود على هذا الرابط

الرابط من هنا

استكمالاً للموضوع أقدم لكم كود يقوم بتصدير أوراق العمل بالمصنف الحالي إلى ملفات PDF ، والفرق أن عملية التصدير ستكون لكل ورقة عمل ملف PDF خاص ورقة العمل ، أي يتم التصدير بشكل منفصل لكل ورقة عمل.

وإليكم الكود الذي يؤدي المهمة ، ويوضع الكود في موديول عادي

Sub Create_PDF_Files_For_Each_Sheet()
    Dim Ws As Worksheet
    Dim Fname As String
    
    Application.ScreenUpdating = False
        For Each Ws In ActiveWorkbook.Worksheets
            On Error Resume Next
            Fname = ThisWorkbook.Path & "\Exported " & Ws.Name
            Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
        Next Ws
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub

تحميل الملف من هنا

إعداد / ياسر خليل أبو البراء