Etiquetadoras

[alexzyz]

Open puerto For Output As #1
tempt = "D" + temp
velo = "S" + Vel
tope = "JF"
CODIGO = Text1.Text
texto1 = Text2.Text
texto2 = Text3.Text
Print #1, "N"
Print #1, "q834"
Print #1, "Q168,16"
Print #1, "R8,0"
Print #1, "FK*"
Print #1, tope
Print #1, velo
Print #1, tempt
Print #1, "ZB"
Print #1, "B25,77,0,E30,2,15,80,B," + Chr$(34) + CODIGO + Chr$(34)
Print #1, "A22,30,0,3,1,1,N," + Chr$(34) + texto1 + Chr$(34)
Print #1, "A22,50,0,3,1,1,N," + Chr$(34) + texto2 + Chr$(34)

Print #1, "B305,77,0,E30,2,15,80,B," + Chr$(34) + CODIGO + Chr$(34)
Print #1, "A297,30,0,3,1,1,N," + Chr$(34) + texto1 + Chr$(34)
Print #1, "A297,50,0,3,1,1,N," + Chr$(34) + texto2 + Chr$(34)

Print #1, "B580,77,0,E30,2,15,80,B," + Chr$(34) + CODIGO + Chr$(34)
Print #1, "A570,30,0,3,1,1,N," + Chr$(34) + texto1 + Chr$(34)
Print #1, "A570,50,0,3,1,1,N," + Chr$(34) + texto2 + Chr$(34)

Print #1, "P" & Text4.Text ' + Chr(34) + cantidad + Chr(34)
Print #1, ""
cont = cont + 1
Close #1

Esto Imprime etiquetas de tres columnas con un codigo de barra (EAN 13) y dos descripciones el tamaño de la etiqueta es 22 x 32 mm (pruebalo)