Imports System.IO
Imports System.Drawing.Printing
Imports System.Runtime.InteropServices
Public Class etibodplanta
'botón de impresión
Dim s As String
Dim pd As New PrintDialog()
s = ""
s = "I8,A,1" & vbCrLf & vbCrLf & vbCrLf
s = s + "Q256,024" & vbCrLf
s = s + "q831" & vbCrLf
s = s + "rN" & vbCrLf
s = s + "S0" & vbCrLf
s = s + "D11" & vbCrLf 'Oscuridad de la impresion
s = s + "ZT" & vbCrLf
s = s + "JF" & vbCrLf
s = s + "OD" & vbCrLf
s = s + "R204,0" & vbCrLf 'posición horizontal de la etiqueta
s = s + "f100" & vbCrLf
s = s + "N" & vbCrLf
s = s + "A3,91,0,4,1,1,N," & """" & Mid(txtnombre.Text, 51, 25) & """" & vbCrLf 'le paso el valor desde un textbox
s = s + "A3,69,0,4,1,1,N," & """" & Mid(txtnombre.Text, 26, 25) & """" & vbCrLf 'le paso el valor desde un textbox
s = s + "A3,45,0,4,1,1,N," & """" & Mid(txtnombre.Text, 1, 25) & """" & vbCrLf 'le paso el valor desde un textbox
s = s + "LO7,166,425,3" & vbCrLf
s = s + "A210,113,0,4,1,1,N," & """" & "Marca Destino:" & """" & vbCrLf 'le paso el valor desde un textbox
s = s + "B7,170,0,1,2,6,44,B," & """" & txtcodigo.Text & """" & vbCrLf 'le paso el valor desde un textbox
s = s + "A210,138,0,4,1,1,N," & """" & txtdestino.Text & """" & vbCrLf 'le paso el valor desde un textbox
s = s + "A8,8,0,2,2,2,N," & """" & txtcodigo.Text & """" & vbCrLf 'Impresión de codigo de barras con valor de un textbox
s = s + "A7,113,0,4,1,1,N," & """" & "Familia:" & """" & vbCrLf
s = s + "A7,138,0,4,1,1,N," & """" & Mid(txtfamilia.Text, 1, 12) & """" & vbCrLf
s = s + "LO206,112,1,51" & vbCrLf
s = s + "LE3,215,431,25" & vbCrLf
s = s + "LE3,112,431,22" & vbCrLf
s = s + "LE3,4,429,39" & vbCrLf
s = s + "P" & txtcantidadetiq.Text & vbCrLf 'Define la cantidad de impresiones a realizar usando un valor numerico de un textbox
RawPrinterHelper.SendStringToPrinter("etiquetas", s)
End Sub