ByteScout Barcode Suite - VB.NET - Print barcode with barcode sdk - ByteScout

ByteScout Barcode Suite – VB.NET – Print barcode with barcode sdk

  • Home
  • /
  • Articles
  • /
  • ByteScout Barcode Suite – VB.NET – Print barcode with barcode sdk

How to print barcode with barcode sdk in VB.NET using ByteScout Barcode Suite

This code in VB.NET shows how to print barcode with barcode sdk with this how to tutorial

Every ByteScout tool includes simple example VB.NET source codes that you can get here or in the folder with installed ByteScout product. What is ByteScout Barcode Suite? It 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. It can help you to print barcode with barcode sdk in your VB.NET application.

The SDK samples given below describe how to quickly make your application do print barcode with barcode sdk in VB.NET with the help of ByteScout Barcode 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! Enjoy writing a code with ready-to-use sample codes in VB.NET.

All these programming tutorials along with source code samples and ByteScout free trial version are available for download from our website.

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

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

BarcodePrinter.vb
      
Imports System Imports System.Collections.Generic Imports System.Text Imports Bytescout.BarCode Imports System.Drawing.Printing Imports System.Windows.Forms Imports System.Drawing Public Class BarcodePrinter Private m_barcode As New Barcode() Private m_widthInches As Single Private m_heightInches As Single Public Sub Print(ByVal type As SymbologyType, ByVal value As String, ByVal caption As String, ByVal widthInches As Single, ByVal heightInches As Single) m_barcode.Symbology = type m_barcode.Value = value m_barcode.Caption = caption m_widthInches = widthInches m_heightInches = heightInches Dim printDoc As New PrintDocument() AddHandler printDoc.PrintPage, New PrintPageEventHandler(AddressOf printDoc_PrintPage) Dim dlgSettings As New PrintDialog() dlgSettings.Document = printDoc If dlgSettings.ShowDialog() = DialogResult.OK Then printDoc.Print() End If End Sub Private Sub printDoc_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs) Dim position As New Point(100, 100) m_barcode.FitInto(New SizeF(m_widthInches, m_heightInches), GraphicsUnit.Inch) m_barcode.Draw(e.Graphics, position) End Sub End Class

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Module1.vb
      
Imports Bytescout.BarCode Module Module1 Sub Main() Dim bPrinter As New BarcodePrinter() bPrinter.Print(SymbologyType.Code39, "0123456789", "Case Number", 3.5F, 1.0F) End Sub End Module

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next