ByteScout Barcode Suite – VB.NET – Use rich formatting to create report with spreadsheet sdk

Home
/
Articles
/
ByteScout Barcode Suite – VB.NET – Use rich formatting to create report with spreadsheet sdk

printable version:
ByteScout-Barcode-Suite-VB-NET-Use-rich-formatting-to-create-report-with-spreadsheet-sdk.pdf

How to use rich formatting to create report with spreadsheet sdk in VB.NET with ByteScout Barcode Suite

Learn to code in VB.NET to use rich formatting to create report with spreadsheet sdk with this step-by-step tutorial

The code displayed below will guide you to install an VB.NET app to use rich formatting to create report with spreadsheet sdk. ByteScout Barcode Suite is the bundle that privides 3 SDK products to generate barcodes (Barcode SDK), read barcodes (Barcode Reaer SDK) and read and write spreadsheets (Spreadsheet SDK). It can use rich formatting to create report with spreadsheet sdk in VB.NET.

The SDK samples given below describe how to quickly make your application do use rich formatting to create report with spreadsheet sdk in VB.NET with the help of ByteScout Barcode Suite. Just copy and paste the code into your VB.NET application’s code and follow the instructions. Check VB.NET sample code samples to see if they respond to your needs and requirements for the project.

You can download free trial version of ByteScout Barcode Suite from our website with 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 Bytescout.Spreadsheet.Constants
Imports System.IO
Imports System.Diagnostics
Imports System.Drawing

Module Module1

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

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

        ' Set Values
        worksheet.Cell(0, 0).Value = "Name"
        worksheet.Cell(0, 1).Value = "Full Name"

        Dim headerColor As Color = [Color].FromArgb(75, 172, 198)
        Dim contentColor As Color = [Color].FromArgb(141, 180, 227)

        ' Set font bold for headers
        worksheet.Cell(0, 0).Font = New Font("Arial", 12, FontStyle.Bold)
        worksheet.Cell(0, 1).Font = New Font("Arial", 12, FontStyle.Bold)

        ' Set back color for headers rows
        worksheet.Cell(0, 0).FillPattern = PatternStyle.Solid
        worksheet.Cell(0, 0).FillPatternForeColor = headerColor
        worksheet.Cell(0, 1).FillPattern = PatternStyle.Solid
        worksheet.Cell(0, 1).FillPatternForeColor = headerColor
        worksheet.Cell(6, 0).FillPattern = PatternStyle.Solid
        worksheet.Cell(6, 0).FillPatternForeColor = headerColor
        worksheet.Cell(6, 0).FontColor = Color.White
        worksheet.Cell(6, 1).FillPattern = PatternStyle.Solid
        worksheet.Cell(6, 1).FillPatternForeColor = headerColor

        ' Set back color for content rows
        For i As Integer = 1 To 5
            worksheet.Cell(i, 0).FillPattern = PatternStyle.Solid
            worksheet.Cell(i, 0).FillPatternForeColor = contentColor
            worksheet.Cell(i, 1).FillPattern = PatternStyle.Solid
            worksheet.Cell(i, 1).FillPatternForeColor = contentColor
        Next

        worksheet.Cell(1, 0).Value = "Homer"
        worksheet.Cell(1, 1).Value = "Homer Jay Simpson"

        worksheet.Cell(2, 0).Value = "Marjorie"
        worksheet.Cell(2, 1).Value = "Marjorie Marge Simpson (Bouvier)"

        worksheet.Cell(3, 0).Value = "Bartholomew"
        worksheet.Cell(3, 1).Value = "Bartholomew Jojo Bart Simpson"

        worksheet.Cell(4, 0).Value = "Lisa"
        worksheet.Cell(4, 1).Value = "Lisa Marie Simpson"

        worksheet.Cell(5, 0).Value = "Margaret"
        worksheet.Cell(5, 1).Value = "Margaret Maggie "

        worksheet.Cell(6, 0).Value = "Count"
        worksheet.Cell(6, 1).Value = "5"

        worksheet.Columns(1).Width = 250
        worksheet.Columns(2).Width = 250

        ' 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