¿Quiero imprimir todos los archivos de Excel en una carpeta determinada (usando VBA), como los archivos (C:\A\B.*.xlsx)?
1. Referencia
Cómo extraer por lotes nombres de archivos en una carpeta
2. Utilice el siguiente código (imprima el formulario actual)
Sub impresión()
'2019-12-25 22:00:47
Dim m1$, m2$, m$
m1 = "C: \A"
m2 = "B.*.xlsx"
m = Dir(m1 & "\", vbReadOnly)
Mientras m <> " " Si a m le gusta m2, entonces
Libros de trabajo.Abra m1 & "\" & m
ActiveWindow.SelectedSheets.PrintOut Copias:=1, Intercalar:=True p>
ActiveWorkbook.Close SaveChanges:=False End If m = Dir
Wend
End Sub.