ByteScout PDF SDK – VB.NET – Set Fonts for Text in PDF

Home
/
Articles
/
ByteScout PDF SDK – VB.NET – Set Fonts for Text in PDF

printable version:
ByteScout-PDF-SDK-VB-NET-Set-Fonts-for-Text-in-PDF.pdf

How to set fonts for text in PDF in VB.NET using ByteScout PDF SDK

How to set fonts for text in PDF in VB.NET

The sample source code below will teach you how to set fonts for text in PDF in VB.NET. Want to set fonts for text in PDF in your VB.NET app? ByteScout PDF SDK is designed for it. ByteScout PDF SDK is the library for pdf documents generation, modification and updates. Can also generate and fill PDF forms. Provides support for text (fonts, style, size, font family), layers, pdf form fields, vector and raster drawings.

The SDK samples like this one below explain how to quickly make your application do set fonts for text in PDF in VB.NET with the help of ByteScout PDF SDK. In your VB.NET project or application you may simply copy & paste the code and then run your app! This basic programming language sample code for VB.NET will do the whole work for you to set fonts for text in PDF.

Free trial version of ByteScout PDF SDK is available for download from our website. Get it to try other source code samples for VB.NET.

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 use fonts.
''' </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 brush = New SolidBrush()

        ' Use standard PDF font
        Dim standardFont = New Font(StandardFonts.Times, 16)
        canvas.DrawString("Standard font.", standardFont, brush, 20, 20)

        ' Use font installed in system
        Dim systemFont = New Font("Arial", 16)
        canvas.DrawString("Windows font.", systemFont, brush, 20, 50)

        ' Use font loaded from file
        Dim fontFromFile = Font.FromFile("VeraBI.ttf", 16)
        canvas.DrawString("Font loaded from file.", fontFromFile, brush, 20, 80)


        ' 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