Hessel de Walle's Blog

De data: Factuur Afdrukken 2015WM0101.pdf nee 2015WM0102.pdf ja 2015WM0103.pdf nee 2015WM0104.pdf ja Het VBA script: Sub printPDFfiles()     Dim strProg As String     Dim intRows As Integer     Dim rngCel As Range     Dim strFile As String     Dim strFolderFrom As String          Application.ScreenUpdating = False     'Bepaal het pad waar de PDF's staan     strFolderFrom = "D:\data\Essentra\pdf\"         ' bepaal het aantal gebruikte rijen     intRows = ActiveSheet.UsedRange.Rows.Count          'Controleer je ADOBE READER versie en het pad erheen, bijvoorbeeld:     'strProg = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe"     strProg = "C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe" ...