Macro para imprimir todos los PDFs de C:\archivos
En la carpeta "C:\archivos" tengo 100 archivos pdfs con diferentes nombres y me ayudaría mucho tener una macro que pueda imprimir cada uno de estos archivos ubicados en la ruta ya mencionada.
Por favor ayudenme con esta duda que se poco de macros.
Respuesta de Dante Amor
2
Prueba lo siguiente.
- Cambia en la macro la carpeta donde tienes tu adobe acrobar
"C:\Program Files\Adobe\Reader 11.0\Reader\"
- Cambia en la macro en nombre del programa Acrobat Reader
"AcroRd32.exe
Sub ImprimirPdfs()
'Por.Dante Amor
Dim ruta As String, arch As Variant, rutaAcro As String
ruta = "C:\archivos\"
rutaAcro = "C:\Program Files\Adobe\Reader 11.0\Reader\"
arch = Dir(ruta & arch & "*.pdf")
Do While arch <> ""
Shell rutaAcro & "AcroRd32.exe /n /t " & ruta & arch
DoEvents
Application.Wait Now + TimeValue("00:00:02")
arch = Dir()
Loop
End Sub
Cambia esta línea
arch = Dir(ruta & arch & "*.pdf")
Por esta
arch = Dir(ruta & "*.pdf")
