Zebra 2844 USB

zebra2844_mybusinessposLa 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.

Icon
Formato para Etiquetas Zebra por USB

Etiqueta Zebra 2844 USB 84.00 KB 191 downloads

...

 Visual Basic |  copy code |? 
01
02
Sub Main()
03
    Dim rstProds   
04
    Dim n
05
 
06
    Set rstProds = CreaRecordSet( _
07
    "SELECT * FROM prods WHERE etiquetas > 0",_
08
    Ambiente.Connection )
09
 
10
    While Not rstProds.EOF 
11
 
12
          For n = 1 To rstProds("etiquetas")
13
              ImprimeEtiqueta rstProds            
14
          Next
15
 
16
          rstProds.MoveNext 
17
 
18
    Wend
19
 
20
 
21
End Sub
22
 
23
 
24
Sub ImprimeEtiqueta( rstProds )
25
 
26
    'EstableceImpresora "ZDesigner LP 2844"
27
    IniciaDocumento
28
 
29
    EstableceFuente "C39HrP24DhTt",35
30
    Say 5.25, 3.53, "*" & Trim(rstProds("articulo")) & "*"
31
    EstableceFuente "Times New Roman", 9
32
    Say 5.1, 3.53, "$ "  & PadL(Formato( rstProds("precio1"),  Ambiente.FDinero ),6)
33
'Trim(rstProds("Descrip"))
34
 
35
    FinDocumento     
36
 
37
End Sub
38

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *


Time limit is exhausted. Please reload CAPTCHA.