La impresora Zebra que se conecta por cable USB se comporta de forma similar a cualquier otra impresora de tickets y puede programarse como tal; por ejemplo, vemos que tiene las funciones IniciaDocumento y FinDocumento.
Editor de Etiquetas, generar e imprimir código de barras
Sub Main()
Dim rstProds
Dim n
Set rstProds = CreaRecordSet( _
“SELECT * FROM prods WHERE etiquetas > 0”,_
Ambiente.Connection )
While Not rstProds.EOF
For n = 1 To rstProds(“etiquetas”)
ImprimeEtiqueta rstProds
Next
rstProds.MoveNext
Wend
End Sub
Sub ImprimeEtiqueta( rstProds )
‘EstableceImpresora “ZDesigner LP 2844”
IniciaDocumento
EstableceFuente “C39HrP24DhTt”,35
Say 5.25, 3.53, “*” & Trim(rstProds(“articulo”)) & “*”
EstableceFuente “Times New Roman”, 9
Say 5.1, 3.53, “$ ” & PadL(Formato( rstProds(“precio1”), Ambiente.FDinero ),6)
‘Trim(rstProds(“Descrip”))
FinDocumento
End Sub