Generar codigos de Barras en Visual Basic .Net

Imagen de la Aplicación:

Resultado de la impresion:



Para generar codigos de barras instalaremos previamente la fuente:3 of 9 Barcode

y el codigo de la aplicacion a continuación...

Imports System.Drawing.Printing

Public Class Form1
Dim Contenido As PrintPageEventArgs
Dim WithEvents Documento As New PrintDocument
Dim impresora As New PrintDialog


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Configurar()
Documento.Print()
End Sub

Private Sub Documento_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Documento.PrintPage
Contenido = e
Contenido.Graphics.DrawString("*" & Me.TextBox1.Text & "*", New Font("3 of 9 Barcode", 14), Brushes.Black, 50, 300)
Contenido.Graphics.DrawString(Me.TextBox1.Text, New Font("Arial", 7), Brushes.Black, 90, 315)
Contenido.HasMorePages = False
End Sub

Private Sub Configurar()
impresora.Document = Documento
impresora.ShowDialog()
Documento.PrinterSettings = impresora.PrinterSettings
End Sub

End Class