ByteScout Premium Suite – VB.NET – Set word spacing for text in pdf with pdf sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Set word spacing for text in pdf with pdf sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Set-word-spacing-for-text-in-pdf-with-pdf-sdk.pdf

How to set word spacing for text in pdf with pdf sdk in VB.NET with ByteScout Premium Suite

If you want to learn more then this tutorial will show how to set word spacing for text in pdf with pdf sdk in VB.NET

Quickly learn how to set word spacing for text in pdf with pdf sdk in VB.NET with this sample source code. Want to set word spacing for text in pdf with pdf sdk in your VB.NET app? ByteScout Premium Suite is designed for it. ByteScout Premium Suite is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

These VB.NET code samples for VB.NET guide developers to speed up coding of the application when using ByteScout Premium Suite. This VB.NET sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! Further improvement of the code will make it more robust.

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

''' <summary>
''' This example demonstrates how to change the word spacing.
''' </summary>
Class Program

    Shared Sub Main()

        ' Create new document
        Dim pdfDocument = New Document()
        pdfDocument.RegistrationName = "demo"
		pdfDocument.RegistrationKey = "demo"
        ' Add page
        Dim page = New Page(PaperFormat.A4)
        pdfDocument.Pages.Add(page)

        Dim canvas = page.Canvas

        Dim font = New Font("Arial", 16)
        Dim brush = New SolidBrush()
        Dim stringFormat = New StringFormat()

        ' Standard word spacing
        stringFormat.WordSpacing = 0.0F
        canvas.DrawString("Standard word spacing 0.0", font, brush, 20, 20, stringFormat)

        ' Increased word spacing
        stringFormat.WordSpacing = 5.0F
        canvas.DrawString("Increased word spacing 5.0", font, brush, 20, 50, stringFormat)

        ' Reduced word spacing
        stringFormat.WordSpacing = -2.5F
        canvas.DrawString("Reduced word spacing -2.5", font, brush, 20, 80, stringFormat)


        ' Save document to file
        pdfDocument.Save("result.pdf")

        ' Cleanup 
		pdfDocument.Dispose()

        ' Open document in default PDF viewer app
        Process.Start("result.pdf")

    End Sub

End Class