Bom dia Leandro.
Com relação a impressão de múltiplos arquivos, creio que o seguinte pode lhe ajudar:
https://www.baboo.com.br/tutorial/tutorial-software/imprimir-mais-de-um-arquivo-por-vez-com-print-conductor/

É um bom programinha, mas queria ver a possibilidade de fazer isso no excel-vba

Aqui tem um modelo em ListBox, veja se consegue ajustar.

EXCEL – LISTAR ARQUIVOS EM DIRETÓRIO NUM LISTBOX
https://www.tomasvasquez.com.br/blog/mi ... um-listbox

É só trocar a Function pela a abaixo, onde filtramos somente pelos arquivos PDF:

Public Function ListaArquivos(ByVal Caminho As String) As String()

'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime
Dim FSO As New FileSystemObject
Dim result() As String
Dim Pasta As Folder
Dim Arquivo As File
Dim Indice As Long


ReDim result(0) As String
If FSO.FolderExists(Caminho) Then
    Set Pasta = FSO.GetFolder(Caminho)
 
    For Each Arquivo In Pasta.Files
        
        'Filtramos somente pelos arquivos PDF
        If Arquivo.Type = "PDF Document" Then
      
            Indice = IIf(result(0) = "", 0, Indice + 1)
      
            ReDim Preserve result(Indice) As String
            result(Indice) = Arquivo.Name
            
        End If
        
    Next
    
End If

ListaArquivos = result
ErrHandler:
    Set FSO = Nothing
    Set Pasta = Nothing
    Set Arquivo = Nothing
    
End Function

[]s

Boooa Mauro!

é exatamente isso que estava pensando.
O código da planilha original está funcionando perfeitamente, mas como sabe, está puxando não somente arquivos pdf.
Quando coloquei o seu código no lugar, acabou que não está puxando nada. O pior é que não consegui identificar o erro, pois não tenho conhecimento deste tipo de rotina.

Obrigado!

No teste que fiz com a alteração para listar somente os PDF funcionou normalmente.
Verifique se na pasta que está pesquisando contem arquivos "PDF".

[]s

ÉE...Realmente não deu certo aqui!
Não sei porque.

Sem adaptar o código, puxa todo e qualquer arquivo, inclusive os pdf's. Quando faço a adaptação, não puxa nenhum!

Poderia postar a planilha editada pra eu ver se o problema resolve?

O arquivo é o mesmo que está no link, só alterei a condição de tipo e ajustei o caminho digitado.
Troque por esta e veja se da certo:

Public Function ListaArquivos(ByVal Caminho As String) As String()

'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime
Dim FSO As New FileSystemObject
Dim result() As String
Dim Pasta As Folder
Dim Arquivo As File
Dim Indice As Long
Dim RecebeExtensao

ReDim result(0) As String
If FSO.FolderExists(Caminho) Then
    Set Pasta = FSO.GetFolder(Caminho)
 
    For Each Arquivo In Pasta.Files
        'Extrai a extensão do arquivo
        RecebeExtensao = Right(Arquivo, 3)
  
        'Verifica se é PDF
        If RecebeExtensao = "pdf" Then
          
          Indice = IIf(result(0) = "", 0, Indice + 1)
          
          ReDim Preserve result(Indice) As String
          result(Indice) = Arquivo.Name
        End If
        
    Next
    
End If

ListaArquivos = result
ErrHandler:

    Set FSO = Nothing
    Set Pasta = Nothing
    Set Arquivo = Nothing
    
End Function

[]s

Bom dia, Mauro,
Deu certo, muito obrigado!

Abraços!