PDFToPNG.vbs
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | ' Create Bytescout.PDFRenderer.RasterRenderer object Set renderer = CreateObject( "Bytescout.PDFRenderer.RasterRenderer" ) renderer.RegistrationName = "demo" renderer.RegistrationKey = "demo" ' Load sample PDF document renderer.LoadDocumentFromFile "../../multipage.pdf" Set renderingOptions = CreateObject( "Bytescout.PDFRenderer.RenderingOptions" ) ' Enable text objects rendering renderingOptions.RenderTextObjects = True ' DISABLE vector objects rendering renderingOptions.RenderVectorObjects = False ' DISABLE image objects rendering renderingOptions.RenderImageObjects = False ' Render PDF document at 96 DPI - default PC display resolution ' To get higher quality output, set 200, 300 or more Dim renderingResolution renderingResolution = 96 ' iterate through pages For i=0 To renderer.GetPageCount()-1 ' Render document page to PNG image file renderer.Save_2 "image" & i & ".png" , 2, i, renderingResolution, (renderingOptions) Next |
Click here to get your Free Trial version of the SDK
also available as: