Configurar impresora ZEBRA 2844 a través de USB (Solucionado)

zebra2844_mybusinesspos2

Las impresoras de código de barras ZEBRA 2844 son muy eficientes y muestran excelentes resultados. Sin embargo, en MyBusiness POS, en ocasiones genera ciertos conflictos, sobre todo si queremos conectarla vía USB. el siguiente bloque de código está configurado para etiquetas que tienen 1” de alto X 1.25” de ancho aprox.

Para configurar la impresora, solo basta realizar los siguientes pasos:
 

1) instalar el driver de la impresora. esto es debido a que, cuando conectamos cualquier dispositivo vía USB, el Sistema Operativo instala un  controlador para poder hacerlo funcionar correctamente.

2) Definir la impresora ZEBRA 2844 como predeterminada (Inicio->Impresoras y faxes-> Clic derecho sobre la impresora ZEBRA2844 ->Impresora predeterminada). También es necesario configurar el tamaño del papel. para realizar esto, después de configurar la impresora predeterminada, demos clic derecho sobre la impresora ZEBRA 2844 y seleccionamos la opción Propiedades. Ahora damos clic en el botón “preferencias de impresión” y vamos a especificar el tamaño del papel 7 cm de largo X 2.54 cm de alto.

3) Ahora abrimos MyBusinessPOS 2006 y vamos a crear el formato para poder imprimir las etiquetas. En el Business Manager (la columna de enmedio) buscamos la siguiente ruta: Configuración-> Personalización-> Procedimientos o Rutinas de Usuario -> Aquí vamos a crear un nuevo procedimiento, en la parte superior se encuentra la opción “Nuevo”. Los datos que debemos escribir en el formulario son:

4) En el área de desarrollo, solo escribimos las siguientes líneas:

 Visual Basic |  copy code |? 
01
Public Sub Main()
02
    nFila = 1
03
    Set rstProds = CreaRecordSet( 'SELECT * FROM prods WHERE etiquetas > 0 ORDER BY articulo', Ambiente.Connection )
04
    nY =0
05
    nMargensuperior = 100    
06
    nMargenIzquierda = 25   
07
    While Not rstProds.EOF        
08
          cArticulo = Trim( rstProds("articulo") )
09
          cDescrip = Trim( Mid(rstProds("descrip"),1,25) ) & " " & Trim( rstProds("modelo") ) & " " & Trim( rstProds("talla") )’ & " " & Formato( rstProds("precio1"), "$##,##0.00" )
10
          cEmpresa = Ambiente.Empresa                        
11
          For i = 1 To rstProds("Etiquetas")
12
               PosicionX = nMargenIzquierda
13
              PosicionY = ((nY * nFila) – nY) +  nMargensuperior
14
               IniciaDocumento                    
15
                Codigo39 PosicionX, PosicionY, 10, 400, cArticulo, True,,, cDescrip
16
               FinDocumento         
17
              if i = rstProds("Etiquetas") Then
18
                 Exit For
19
              end if            
20
          Next
21
          rstProds.MoveNext
22
    Wend
23
End Sub
24
 
25
 
26
 
27

Otra de las recomendaciones es, cuando mandamos imprimir y de la imporesora Zebra sale el papel en blanco, es apoyarnos con una impresora virtual con PDF Creator y poco a poco vamos identificando dònde se encuentra el código impreso para ajustar la caída de forma correcta. hay que ser un poquito pacientes ya que encontrar la coordenada de impresión ideal puede tomar más de media hora a prueba y error.

Nota: Si su lector de códigos de barras no detecta la impresión, posiblemente le hace falta colocar un asterisco (*) al inicio y otro asterisco (*) al final del código de barras .

 

 

Etiquetas de Código de Barras en Hoja Tamaño Carta

Código de barras en hoja Carta

88.00 KB 69 downloads

El generador de etiquetas de MyBusiness POS 2006 es una herramienta muy útil para la empresa. Sin embargo, en ocasiones es necesario hacer las adaptaciones necesarias para que se adapte la “caída” sobre hojas tamaño carta con etiquetas.
El código más común es el CODE39.   Este va a ser creado dentro de la siguiente ruta del Business Manager: personalización…formatos del sistema….(aquí creamos un nuevo archivo, llamado CODE39_AJUSTADO,  escribimos en el grupo ETIQUETAS, para que pueda ser utilizado desde la ventana etiquetas)
A continuación se muestra el código:

 Visual Basic |  copy code |? 
01
Public Sub Main()
02
 
03
        'TIPO DE PAPEL: 6287 T. CARTA
04
        'MARCA DE PAPEL: BIC PIMACO
05
        'ETIQUETAS/HOJA: 80
06
        'CONSEGUIRLO EN OFFICE DEPOT
07
        'IMPRESORA LÁSER
08
        'cada milimetro es equivalente a 57.1428571428571 pixels
09
 
10
    IniciaDocumento   
11
 
12
        'DEBIDO A QUE NUESTRA HOJA TIENE VARIAS FILAS Y COLUMNAS, SOLICITAMOS A PARTIR DE QUÉ FILA Y COLUMNA SE DEBE EMPEZAR A IMPRIMIR, POR SI EN ALGUN MOMENTO ESTÁ CASI COMPLETA LA HOJA
13
 
14
    nColumna = InputBox( “Comenzar con la columna no.:”, 0 )
15
    nFila = InputBox( “Comenzar con la fila no.:”, 0 )
16
 
17
        'EN CASO DE QUE SE CONTESTE 0 EN ALGUNO DE LOS CASOS, NO SE IMPRIMIRÁ NADA
18
    if Val2( nColumna ) <= 0 Then
19
       Exit Sub
20
    end if
21
 
22
    if Val2( nFila ) <= 0 Then
23
       Exit Sub
24
    end if
25
 
26
        'REALIZAMOS LA CONSULTA
27
    Set rstProds = CreaRecordSet( “SELECT * FROM prods WHERE etiquetas > 0 ORDER BY articulo”, Ambiente.Connection )
28
 
29
        'ESPECIFICAMOS EL LA SEPARACIÓN ENTRE CADA ETIQUETA, EN PIXELES, TANTO EN X(HORIZONTAL) COMO Y(VERTICAL)
30
    nX = 2714.28571428571
31
    nY = 725.714285714286
32
 
33
        'DEFINIMOS LOS MÁRGENES DE LA HOJA, EL SUPERIOR Y EL IZQUIERDO
34
    nMargensuperior = 400
35
    nMargenIzquierda = 828.57
36
 
37
    While Not rstProds.EOF          
38
 
39
          cArticulo = Trim( rstProds(“articulo”) )
40
          cDescrip = Trim( Mid(rstProds(“descrip”),1,16) ) & ” ” & Trim( rstProds(“modelo”) ) & ” ” & Trim( rstProds(“talla”) ) & ” ” & Formato( rstProds(“precio1″), “$##,##0.00″ )
41
          cEmpresa = Ambiente.Empresa
42
 
43
          For i = 1 To rstProds(“Etiquetas”)
44
 
45
            'AQUÍ SE REALIZAN LAS OPERACIONES CON LAS VARIABLES QUE ANTES HABÍAMOS DEFINIDO
46
              PosicionX = ((nX * nColumna) – nX) +  nMargenIzquierda 
47
              PosicionY = ((nY * nFila) – nY) +  nMargensuperior
48
 
49
            'EN LA SIGUIENTE LÍNEA, EL 10 ES EL GROSOR DE LAS BARRITAS, EL 200 ES LA ALTURA (EN PIXELS) DEL CÓDIGO DE BARRAS
50
              Codigo39 PosicionX, PosicionY, 10, 200, cArticulo, True,, cDescrip                   
51
 
52
              nColumna = nColumna + 1
53
 
54
            'EN EL SIGUIENTE BLOQUE ESPECIFICAMOS CUÁNTAS COLUMNAS VA A TENER LA HOJA TAMAÑO CARTA (EN ESTE CASO, 4)
55
              if nColumna > 4 Then
56
                 nColumna = 1
57
                 nFila = nFila + 1 
58
              end if             
59
 
60
              if i = rstProds(“Etiquetas”) Then
61
                 Exit For
62
              end if
63
 
64
            'EN EL SIGUIENTE BLOQUE ESPECIFICAMOS CUÁNTAS FILAS VA A TENER LA HOJA TAMAÑO CARTA (EN ESTE CASO, 20)
65
              if nFila > 20 Then
66
                 nFila = 1
67
                 PaginaNueva
68
 
69
              end if
70
          Next
71
          rstProds.MoveNext
72
    Wend
73
    FinDocumento
74
End Sub
75


Y listo!!!
ya tenemos nuestro formato totalmente funcional para imprimir.
Cabe aclarar que el rendimiento de una impresora láser es menor a comparación de una impresora especial para etiquetas, ya que la primera no está totalmente diseñada para este fin.

Espero sus comentarios y dudas.

Cambiar letra en ticket MyBusiness y el Logo en un Ticket (Solucionado)

logo_ticket

Editor de Tickets

82.77 KB 151 downloads

Para todos los usuarios de MyBusiness POS que no quieren que les aparezca el logo de la empresa en el ticket (en primera, ocupa más papel; en segundo lugar, si la impresora es de matriz de puntos, también se gasta la cinta de esta y la calidad no es nada agradable). los pasos son los siguientes:

1.  Una vez abierto del sistema como Administrador, en la parte del Business Manager tenemos que encontrar la siguiente ruta:

2.  Personalización + Procedimientos del Usuario

3.  Dentro de esta carpeta buscamos el procedimiento que se llama “FORMATOTEXTO”. lo abrimos para editarlo

4. En alguna parte de este pequeño archivo nos menciona algo parecido a esto:

 Visual Basic |  copy code |? 
1
2
p.PaintPicture LoadPicture(Ambiente.Path & "\images\logo.jpg"), 0, 0, 3, 4
3

lo que vamos a hacer es dejar esta linea como comentario (ponemos una apóstrofo al principio de la línea) para que no aparezca la imagen y quedaría así

 Visual Basic |  copy code |? 
1
2
'p.PaintPicture LoadPicture(Ambiente.Path & "\images\logo.jpg"), 0, 0, 3, 4
3

5. Hacemos una prueba. Ya no aparecerá la imagen; sin embargo, aún se desperdicia la misma cantidad de papel.

6. Para reducir la cantidad de papel, el espacio que ocupaba la imagen, vamos a poner también como comentario las líneas que están dentro de la estructura “For” (nuevamente, colocando un apóstrofo en al principio de cada línea).

También es posible cambiar el Tamaño y la Fuente de los tickets (Propiedades p.Font.Name y p.Font.Size), quedando así.

 Visual Basic |  copy code |? 
1
2
    p.Font.Name = "Courier New"
3
    p.Font.Size = 9
4

 

Guardamos los cambios y listo…Problema solucionado.