Información más reciente en http://helpmybusinesspos.info
Las impresoras de código de barras ZEBRA 2844 son muy eficientes y muestran excelentes resultados. Sin embargo, en MyBusiness POS 2006, 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.
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:
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->
4) En el área de desarrollo, solo escribimos las siguientes líneas:
Public Sub Main()
nFila = 1
Set rstProds = CreaRecordSet( "SELECT * FROM prods WHERE etiquetas > 0 ORDER BY articulo", Ambiente.Connection )
nY =0
nMargensuperior = 100
nMargenIzquierda = 25
While Not rstProds.EOF
cArticulo = Trim( rstProds("articulo") )
cDescrip = Trim( Mid(rstProds("descrip"),1,25) ) & " " & Trim( rstProds("modelo") ) & " " & Trim( rstProds("talla") )' & " " & Formato( rstProds("precio1"), "$##,##0.00" )
cEmpresa = Ambiente.Empresa
For i = 1 To rstProds("Etiquetas")
PosicionX = nMargenIzquierda
PosicionY = ((nY * nFila) - nY) + nMargensuperior
IniciaDocumento
Codigo39 PosicionX, PosicionY, 10, 400, cArticulo, True,,, cDescrip
FinDocumento
if i = rstProds("Etiquetas") Then
Exit For
end if
Next
rstProds.MoveNext
Wend
End Sub
Muy Bien; bueno espero sus comentarios para hacer más interactivo este blog..
Hasta Pronto.
Muy Bien; bueno espero sus comentarios para hacer más interactivo este blog..
Hasta Pronto.
