ByteScout Premium Suite – VB.NET – Optimize pdf with pdf extractor sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Optimize pdf with pdf extractor sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Optimize-pdf-with-pdf-extractor-sdk.pdf

How to optimize pdf with pdf extractor sdk in VB.NET using ByteScout Premium Suite

Learn to optimize pdf with pdf extractor sdk in VB.NET

An easy to understand sample source code to learn how to optimize pdf with pdf extractor sdk in VB.NET ByteScout Premium Suite can optimize pdf with pdf extractor sdk. It can be applied from VB.NET. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

This prolific sample source code in VB.NET for ByteScout Premium Suite contains various functions and other necessary options you should do calling the API to optimize pdf with pdf extractor sdk. IF you want to implement the functionality, just copy and paste this code for VB.NET below into your code editor with your app, compile and run your application. If you want to use these VB.NET sample examples in one or many applications then they can be used easily.

The trial version of ByteScout Premium Suite can be downloaded for free from our website. It also includes source code samples for VB.NET and other programming languages.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Program.vb

      Imports Bytescout.PDFExtractor

Module Program

    Sub Main()

        Try

            Using docOptimizer As New DocumentOptimizer("demo", "demo")

                'Set Optimization Options
                Dim OptimizationOptions = New OptimizationOptions

                'This will resize high resolution images
                OptimizationOptions.ResampleImages = True

                ''Set image optimization format
                'OptimizationOptions.ImageOptimizationFormat = ImageOptimizationFormat.JPEG

                ''Control Optimized image quality, for further fine grained control
                'OptimizationOptions.JPEGQuality = 10

                'Perform Optimization
                docOptimizer.OptimizeDocument("sample.pdf", "sample_optimized.pdf", OptimizationOptions)

                ''Get Optimized file info
                Dim fileInfo_Sample = New System.IO.FileInfo("sample.pdf")
                Dim fileInfo_SampleOptimized = New System.IO.FileInfo("sample_optimized.pdf")

                'Write Stats
                Console.WriteLine("Source File Size: " + fileInfo_Sample.Length.ToString() + " bytes")
                Console.WriteLine("Source File Optimized to Size: " + fileInfo_SampleOptimized.Length.ToString() + " bytes")

            End Using

        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try

        Console.WriteLine("Press any key to exit...")
        Console.ReadLine()

    End Sub

End Module