imprimir archivos de una carpeta y sus subcarpetas

[shalom_dy]

Hola patroklo

Una vez hicimos algo parecido, pero con un archivo excel..
resulta que se creo una dll que leia la ruta donde estaban los archivos, lo abria y los imprimia

............
Set oSheet = o Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open("carperta\nombre")

Book.Worksheets(1)
oSheet.printout

Busca por ahi...
Es solo una idea