وعليكم السلام-تفضل هذا الكود على الرغم انك لم تقم برفع ملف لطلبك

Sub ExportEachSheet2PDF()[/b]
[b]Dim objWS As Worksheet[/b]
[b]Dim strFileName As String[/b]
[b]Dim strPath As String[/b]
[b]Dim strCrntWS As String[/b]
[b]strPath = ThisWorkbook.Path 'Assigned current file path[/b]
[b]strCrntWS = ActiveSheet.Name 'Assigned current sheetname[/b]
[b]Application.ScreenUpdating = False 'Disabled screen updating[/b]
[b]For Each objWS In Worksheets[/b]
[b]'objWS.Select[/b]
[b]strFileName = objWS.Name & ".pdf" 'Assigned worsksheet name as filename[/b]
[b]If VBA.Right(strPath, 1) <> Application.PathSeparator Then[/b]
[b]strPath = strPath & Application.PathSeparator[/b]
[b]End If[/b]
[b]ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _[/b]
[b]Filename:=strPath & strFileName, _[/b]
[b]Quality:=xlQualityStandard, _[/b]
[b]IncludeDocProperties:=True, _[/b]
[b]IgnorePrintAreas:=False, _[/b]
[b]OpenAfterPublish:=False[/b]
[b]Next objWS[/b]
[b]Worksheets(strCrntWS).Select 'After exporting all the worksheets, it will return to active sheet[/b]
[b]Application.ScreenUpdating = True 'Enabled screen updating[/b]
[b]MsgBox "All sheets have been exported as PDF.", vbInformation + vbOKOnly, "Exported as PDF"[/b]
[b]End Sub

السلام عليكم ورحمه الله وبركاته
كل عام وانتم جميعا بخير
استاذى الفاضل على
مشكورا بارك الله فيك
كود جميل طبعا
ولكن عزرا 
واضح اننى لم استطيع توصيل المطلوب بشكل جيد
المطلوب
لدى فولد به اكثر من ملف بى دى اف
اريد كود يقوم بطباعه جميع هذه الملفات مره واحده دون الحاجه الى فتح كل ملف على حده ثم طباعته
اتمنى ان اكون استطعت توصيل المعلومه
تقبل تحياتى

جرب هذا الكود أستاذى

Sub PrintPDFsInChosenFolder()
    Dim FolderPath As String
    Dim FileName As String
    Dim FileSystem As Object
    Dim PDFFile As Object
    Dim Shell As Object
    Dim FolderDialog As Object
    
    ' Open folder dialog to choose the folder containing PDF files
    Set FolderDialog = Application.FileDialog(msoFileDialogFolderPicker)
    With FolderDialog
        .Title = "Select Folder Containing PDF Files"
        .AllowMultiSelect = False
        If .Show = -1 Then
            FolderPath = .SelectedItems(1)
        Else
            Exit Sub ' User canceled dialog
        End If
    End With
    
    ' Create a file system object
    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    
    ' Check if the folder exists
    If FileSystem.FolderExists(FolderPath) Then
        ' Loop through each file in the folder
        For Each PDFFile In FileSystem.GetFolder(FolderPath).Files
            ' Check if the file is a PDF
            If LCase(FileSystem.GetExtensionName(PDFFile.Path)) = "pdf" Then
                ' Print the PDF file
                Set Shell = CreateObject("Shell.Application")
                Shell.ShellExecute PDFFile.Path, "", "", "print", 1
            End If
        Next PDFFile
    Else
        MsgBox "Folder not found!", vbExclamation
    End If
    
    ' Clean up objects
    Set FileSystem = Nothing
    Set PDFFile = Nothing
    Set Shell = Nothing
    Set FolderDialog = Nothing
End Sub

كود جميل 
يعمل بنجاح 
تقبل تحياتى