Luego declaramos:
Imports Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6
Invocamos a la función entregando los datos que queremos que imprima y la cantidad de copias.
Private Sub BarCodeEAN13(ByVal Cliente As String, ByVal Codigo As String, ByVal Descripcion As String, ByVal NumCopias As Integer)
Dim Columna As Integer = 0
Dim Printer As New Printer
Dim prt As Printer
For Each prt In Printers
If prt.DeviceName = ImpresoraSeleccionada Then
Printer = prt
Exit For
End If
Next
For i As Integer = 1 To NumCopias
Columna = Columna + 1
'Columna 1
If Columna = 1 Then
'Codigo de barra
Printer.Print("^XA")
Printer.Print("^FO35,90^BY2")
Printer.Print("^BEN,50,Y,N")
Printer.Print("^FD" & Trim(Codigo) & "^FS")
'Descripcion del producto
Printer.Print("^FO20,35")
Printer.Print("^FB230,4.5,,")
Printer.Print("^ADN, 11, 7^FD" & Descripcion & "^FS")
'Tienda
Printer.Print("^FO25,10")
Printer.Print("^A0N,30,30^FD" & Cliente & "^FS")
End If
'Columna 2
If Columna = 2 Then
'Codigo de barra
Printer.Print("^FO300,90^BY2")
Printer.Print("^BEN,50,Y,N")
Printer.Print("^FD" & Trim(Codigo) & "^FS")
'Descripcion del producto
Printer.Print("^FO285,35")
Printer.Print("^FB230,4.5,,")
Printer.Print("^ADN, 11, 7^FD" & Descripcion & "^FS")
'Tienda
Printer.Print("^FO290,10")
Printer.Print("^A0N,30,30^FD" & Cliente & "^FS")
End If
'Columna 3
If Columna = 3 Then
'Codigo de barra
Printer.Print("^FO570,90^BY2")
Printer.Print("^BEN,50,Y,N")
Printer.Print("^FD" & Trim(Codigo) & "^FS")
'Descripcion del producto
Printer.Print("^FO555,35")
Printer.Print("^FB230,4.5,,")
Printer.Print("^ADN, 11, 7^FD" & Descripcion & "^FS")
'Tienda
Printer.Print("^FO560,10")
Printer.Print("^A0N,30,30^FD" & Cliente & "^FS")
End If
If Columna = 3 Then
Printer.Print("^XZ")
'Printer.EndDoc()
Columna = 0
End If
If i = NumCopias Then
Printer.Print("^XZ")
End If
Next
Printer.EndDoc()
End Sub
Fuente:
