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.[wpdm_package id='15659']
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
No hay comentarios:
Publicar un comentario
Por favor, también escribe tu e-mail para contactarte
LA ASESORIA TIENE UN COSTO, para que lo consideres antes de Exigir Respuesta.