Hessel de Walle's Blog

De aanleiding voor dit script is de behoefte om geautomatiseerd een aantal rapporten van Reporting Services om te zetten naar PDF formaat. Het onderstaande VBA script is algemeen te gebruiken om een willekeurige internet pagina om te zetten naar PDF . Het kan aangeroepen worden vanuit elk Office pakket. Zelf heb ik het gemaakt in Access . Voor het omzetten van de internet pagina naar PDF heb ik gebruik gemaakt van de PDFCreator . Dit kan gratis worden gedownload:  http://www.pdfforge.org/ De PDFCreator kan als printer worden aangeroepen met VBA . Binnen dit programma kunnen we een aantal zaken instellen zoals de map waarin we de PDF's willen opslaan. Het VBA script: 'functie nodig om de standaard printer aan te passen Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long Sub printURL()     Dim objExplorer As Object     Dim lngQuery As Long 'geef waarde QueryStatusWB...

Ik was asked to look into a PDF converter for Excel . Reward: a free license. By the way, it can also be used to convert to other file types: This one - a commercial product, on the market for over 10 years - is called  Able2Extract . More information can be found via: http://www.investintech.com/ prod_a2e.htm I use their own words about the product: The Advanced PDF to Excel conversion feature allows users to: Correctly recognizes rows and columns inside every table locked in PDF format. Users can choose to split or merge rows or columns pre-conversion based on their own criteria which can significantly save them time. It is possible to convert only selected part of the table. So i ran a simple test. I converted an Excel temperature tabel to PDF: I then used the converter to get the data back to Excel. I simply selected all data and pressed Excel => convert: As you can see, something went wrong with the first column, but that could be easily adjust...

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" ...