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.
1 respuesta
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")
