viernes, 25 de abril de 2008

Generar codigos de Barras en Visual Basic .Net

Imagen de la Aplicacion:

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

2 comentarios:

Anónimo dijo...

hola esta super tu aporte, pero el link de la fuente ya no esta, ya lo anduve buscando, pero son los mismos.

saludos y gracias

Cash.Net dijo...

Hola, efectivamente marca un aparente error la pagina, pero t6e muestra un boton que dice Download File, debes darle click derecho y eligir Guardar destino como... con eso te lo descargara

AlertPal- Pagos Seguros en Internet