ByteScout Barcode Suite – VB.NET – Fonts available for cells with spreadsheet sdk

Home
/
Articles
/
ByteScout Barcode Suite – VB.NET – Fonts available for cells with spreadsheet sdk

printable version:
ByteScout-Barcode-Suite-VB-NET-Fonts-available-for-cells-with-spreadsheet-sdk.pdf

fonts available for cells with spreadsheet sdk in VB.NET and ByteScout Barcode Suite

Build fonts available for cells with spreadsheet sdk in VB.NET

Step-by-step instructions on how to do fonts available for cells with spreadsheet sdk in VB.NET

The documentation is crafted to assist you to apply the features on your side easily. ByteScout Barcode Suite was created to assist fonts available for cells with spreadsheet sdk in VB.NET. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK.

If you want to quickly learn then these fast application programming interfaces of ByteScout Barcode Suite for VB.NET plus the guideline and the VB.NET code below will help you quickly learn fonts available for cells with spreadsheet sdk. If you want to implement this functionality, you should copy and paste code below into your app using code editor. Then compile and run your application. Enjoy writing a code with ready-to-use sample VB.NET codes to implement fonts available for cells with spreadsheet sdk using ByteScout Barcode Suite.

Trial version can be downloaded from our website for free. It contains this and 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)

Module1.vb

      Imports Bytescout.Spreadsheet
Imports System.IO

Module Module1

    Sub Main()
        ' Create new Spreadsheet
        Dim document As New Spreadsheet()

        ' Add new worksheet
        Dim worksheet As Worksheet = document.Workbook.Worksheets.Add("HelloWorld")

        ' Create array with font names
        Dim fontNames() As String = {"Helvetica", "Times New Roman", "Verdana", "Times New Roman"}

        ' Use all fonts in fontsNames array
        For i As Integer = 0 To fontNames.Length - 1
            ' Set font size based on loop counter
            Dim fontSize As Double = 10 + i * 3

            'Set cell font type and font size
            worksheet.Cell(i, 0).Font = New System.Drawing.Font(fontNames(i), fontSize)

            ' Set cell value
            worksheet.Cell(i, 0).Value = fontNames(i)
        Next


        ' remove output file if already exists
        If File.Exists("Output.xls") Then
            File.Delete("Output.xls")
        End If

        ' Save document
        document.SaveAs("Output.xls")

        ' Close Spreadsheet
        document.Close()

        ' open in default spreadsheets viewer/editor
        Process.Start("Output.xls")

    End Sub

End Module