تصدير مجموعه شيتات الى ملف pdf واحد

Sub Test()

    Dim snArray, i As Integer, k As Integer

    ReDim snArray(1 To Sheets.Count)

    For i = 1 To Sheets.Count

        With ThisWorkbook.Sheets(i)

            If .Name <> "Data" And .Name <> "Template" Then

                k = k + 1

                snArray(k) = .Name

            End If

        End With

    Next i

    ReDim Preserve snArray(1 To k)

    PrintToPDF snArray, ThisWorkbook.Path & "\Output.pdf"

End Sub



Sub PrintToPDF(arr, sFileName As String, Optional vQuality = xlQualityStandard, Optional vIncDocProperties = True, Optional vIgnorePrintAreas = False, Optional vOpenAferPublish = False)

    ThisWorkbook.Sheets(arr).Select

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=sFileName, Quality:=vQuality, IncludeDocProperties:=vIncDocProperties, IgnorePrintAreas:=vIgnorePrintAreas, OpenAfterPublish:=vOpenAferPublish

    ActiveSheet.Select

End Sub