Publicado el Dejar un comentario

Código Zebra 2844 y MyBusiness POS 2011

Puedes copiar este código y pegarlo en tu editor de mybusinesspos

' El siguiente procedimiento imprime las etiquetas de cada uno de los articulos
Public Sub Main ()

Set rstPartidas = CreaRecordSet( "SELECT articulo, descrip, etiquetas, precio1, precio2, precio10 FROM prods WHERE etiquetas > 0", Ambiente.Connection )

While Not rstPartidas.EOF

For i = 1 to rstPartidas("etiquetas")
ImprimeEtiqueta "LPT1", rstPartidas("articulo"), "",rstPartidas("descrip") , Formato(rstPartidas("precio1"), "##,##0.00" ), Formato(rstPartidas("precio2"), "##,##0.00" ), Formato(rstPartidas("precio10"), "##,##0.00" )
Next

rstPartidas.MoveNext

Wend

Set rstPartidas = CreaRecordSet( "SELECT clavesadd.clave, prods.descrip, clavesadd.etiquetas, prods.precio1, prods.precio2, prods.precio10 FROM clavesadd INNER JOIN prods ON clavesadd.articulo = prods.articulo WHERE clavesadd.etiquetas > 0", Ambiente.Connection )

While Not rstPartidas.EOF

For i = 1 to rstPartidas("etiquetas")
ImprimeEtiqueta "LPT1", rstPartidas("clave"), "",rstPartidas("descrip") , Formato(rstPartidas("precio1"), "##,##0.00" ), Formato(rstPartidas("precio2"), "##,##0.00" ), Formato(rstPartidas("precio10"), "##,##0.00" )
Next

rstPartidas.MoveNext

Wend

End sub

Public Sub ImprimeEtiqueta( cPuerto, cArticulo, cDato1, cDescrip, cPrecioDeLista, cMayoreo, cSugerido )

cPuerto = Trim( cPuerto )
cArticulo = Trim( cArticulo )
cDescrip = Trim( cDescrip )
cDato1 = Trim( cDato1 )

cSalida = ""

' Aqui se puede modificar la etiqueta utiliza un lenguaje llamado EPL2 le adjunto manual del
' lenguaje, tambien si tienen la información del formato de la etiqueta y quieren que la
' diseñe por favor mandemelo
' Aqui se muestran los comandos basicos
' El comando N inicia la etiqueta
' El comando A muestra un dato de texto en donde el 250 es la posición en el eje de las X
' y el 15 la posición en el eje de las Y
' El comando B muestra el código de barras donde 250 es la posición en el eje de las X y 45
' Es la posición de inicio del eje de las Y
' El comando P Finaliza la etiqueta y el nunero 1 indica cuantas etiquetas se van a imprimir

cSalida = cSalida & "N" & Chr(13) & Chr(10)
cSalida = cSalida & "A250,15,0,1,1,1,N," & Chr(34) & Formato( Date, "dd-MM-yyyy" ) & Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & "A250,30,0,2,1,1,N," & Chr(34) & Mid( cDescrip,1, 30)& Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & "B250,70,0,1,2,6,80,B," & Chr(34) & cArticulo & Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & "A380,155,0,4,1,1,N," & Chr(34) & "PRECIO $" & cPrecioDeLista & Chr(34) & Chr(13) & Chr(10)
'cSalida = cSalida & "A250,95,0,2,1,1,N," & Chr(34) & cMayoreo & Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & "P1" & Chr(13) & Chr(10)

if Ambiente.rstEstacion("ietiquetas") <> 0 Then
if clAt( "LPT", Ambiente.rstEstacion("ietiquetaspuerto") ) > 0 Then
Out Trim(Ambiente.rstEstacion("ietiquetaspuerto")), cSalida
else
if Ambiente.ImpresoraDeEtiquetas.PortOpen Then
Ambiente.ImpresoraDeEtiquetas.Output = cSalida
end if
end if
end if

Dormir 100
Eventos

End Sub

Publicado el 2 comentarios

Facturación CBB (Código Bidimensional)

 



Durante estos días estado revisando la posibilidad de tener una factura desde MyBusiness POS (2006 o 2011) con código Bidimensional y sin necesidad de agregar librerías, debido a que estas en muchas ocasiones no son compatibles con las versiones; y en otros casos, solo consumen muchos recursos con sus Net Frameworks. es por tal razón que he desarrollado el formato para que puedan imprimir todas sus facturas desde la versión 2006 de una manera transparente y tan fácil como se ha estado llevando a cabo hasta antes de que iniciara este año.

Aqui les dejo un link que muestra cómo se vería la Factura con código Bidimensional:

MyBusinesspPOS CBB

[gview file=”http://helpmybusinesspos.info/wp-content/Imagenes/MyBusinessPOS_Factura_CBB.pdf” save=”1″]

Espero les convenza y veamos el verdadero potencial que sigue teniendo la versión 2006 de MyBusiness POS sobre cualquier otra versión.

Publicado el 70 comentarios

Corregir el Código Duro 58 y 5 en MyBusiness POS

Canal oficial de Video TutorialesTe podemos solucionar este error lo más pronto posible desde Whatsapp 7222816462

El cupón de este año 2019 es 9yewhp .

En esta ocasión complementaré acerca del Código Duro 58; el cual tiene que ver con muchas razones. Por lo pronto les dejo un video que muestra la solución en Windows 7.

Descarga la cadena de conexión para MyBusiness POS 20

[products ids = “18178,19645, 15042,14972”]




Las Causas del error pueden ser varias:

  • Windows 7 y MSQL Server; Privilegios y permisos.

2147467259 se ha denegado el permiso create database en la base de datos ‘master’. código duro: 58

La causa es que los candados de SQL Server y windows 7 impiden que se cree por primera vez una base de Datos que es necesaria para guardar configuraciones del mismo SQL Server.

(Obtenido de MyBusiness POS Desarrollos)Pueden ser varias causas, le comento las posibles soluciones:

  1. Dar clic secundario al icono de MyBusiness POS y elegir la opción “Ejecutar como administrador”. Para evitar tener que hacer esto nuevamente, puede cambiar la “Configuración del control de cuentas de usuario” y colocarlo en “No notificarme nunca”
  2.  Otra alternativa sería realizar lo siguiente:
    • Utilice la secuencia “C:\MyBusinessDatabase” y seleccione el archivo “MyBusinessPOS2010”, de clic secundario y elija la opción “Propiedades
    • En el cuadro de dialogo que aparece, seleccione la ficha “Seguridad”, de clic en el botón Editar, clic en la casilla “Control total”, clic en Aceptar y nuevamente clic en Aceptar.
    • Repetir el proceso con el archivo MyBusinessPOS2010_log
  • No se puede Abrir la Conexión con SQL Server

Existe un error al intentar hacer la conexión -2147467259 Proveedor de canalizaciones con nombre: No se pudo abrir una conexión con SQL Server [2].  código duro: 58

Causa: El servicio de SQL SERVER no esta habilitado

  1. Verifique, primero, que se haya instalado correctamente el servicio de SQL Server.
  2. Revise que esté en estado Running: Entrar a inicio/todos los programas/Microsoft SQL server management studio/herramientas de configuración (configuration tools) /Administrador de configuración de SQL server/services: Aquí mostrará los servicios de SQL, seleccionaremos el servicio SQL Server (SQLExpress), clic derecho iniciar. Otra alternativa es ejecutar esta herramienta que les dejo de forma gratuita para que la prueben. La desarrollé y es funcional:
  • Problemas en la Red por Conexión o  Ancho de Banda

Existe un error al intentar hacer la conexión -2147467259 Proveedor de TCP: Se produjo un error durante el intento de conexión ya que la parte conectada no respondió adecuadamente tras un periodo de tiempo, o bien se produjo un error en la conexión establecida ya que el host conectado no ha podido respondercódigo duro: 5

Te podemos solucionar este error lo más pronto posible desde Whatsapp 7222816462

Causa: No hay conexión física entre el servidor de SQL Server y la Estación de Trabajo

  1. Verifique que el equipo esta dentro de la red, conectado físicamente o por VPN (Hamachi) y que pueden comunicarse o compartir archivos. 
  2. Revise que el equipo servidor está encendido y que está habilitado el servicio SQL Server
  3. Revise que su equipo Cliente cuenta con el Conector SQL. 
  4. Verifique que el firewall de su router (en caso de alguna VPN diferente a hamachi) permita acceder a traves del puerto 1400
  5. Puede utilizar el siguiente bloque de Conexion y pegarlo en la ventana grande que le aparece despues del error no 5

Provider=SQLNCLI;Data Source=TCP:SERVIDOR\SQLEXPRESS,1400;

Initial Catalog = C:\MyBusinessDatabase\MyBusinessPOS2011.mdf;

Persist Security Info=True;

User ID=sa;

Password=12345678

En donde dice SERVIDOR, es el nombre de su equipo en donde esta almacenada la base de datos

1400 es el numero de puerto por el que nos conectaremos al servidor, este debe estar abierto tanto en el firewall como en la configuracion de SQL Server (ambos en el servidor).

  • Permiso denegado. problema con para crear una Base de Datos en SQL SERVER

Existe error al interior hacer la conexion 2147467259 CREATE DATABASE Permission deied in database master codigo duro:5 

(Obtenido de MyBusiness POS Desarrollos)Pueden ser varias causas, le comento las posibles soluciones:

  1. Dar clic secundario al icono de MyBusiness POS y elegir la opción “Ejecutar como administrador”. Para evitar tener que hacer esto nuevamente, puede cambiar la “Configuración del control de cuentas de usuario” y colocarlo en “No notificarme nunca”
  2.  Otra alternativa sería realizar lo siguiente:
    • Utilice la secuencia “C:\MyBusinessDatabase” y seleccione el archivo “MyBusinessPOS2010”, de clic secundario y elija la opción “Propiedades
    • En el cuadro de dialogo que aparece, seleccione la ficha “Seguridad”, de clic en el botón Editar, clic en la casilla “Control total”, clic en Aceptar y nuevamente clic en Aceptar.
    • Repetir el proceso con el archivo MyBusinessPOS2010_log
  • Permiso Denegado. Problema con el puerto 1400.
Existe un error al intentar hacer la conexión -2147467259 Proveedor de TCP: No se puede establecer una conexión ya que el equipo de destino denegó expresamente dicha conexión. código duro: 58
Causa: El equipo servidor no tiene abierto el puerto 1400
    • Es necesario abrir el puerto 1400 en el equipo servidor.
  • Falta el cliente (SQL Cli.msi)

Se detecto que no estan instalados los clientes de SQL Server, busque el archivo sqlncli.msi en su disco de instalación e instalelo

Causa: En la terminal, hace falta un pequeño programa que permite la conexión desde la Terminal al Servidor.
  • No está instalado el Servidor (SQL Server) en la Red Local.
Existe un error al intentar hacer la conexión -2147467259 SQL Network Interfaces: Error Locating Server/Instance Specified [xFFFFFFFF].  código duro: 58
Causa: No está instalado Sql Server en el equipo local y además no se encuentra en otro equipo de la Red.
La solución es Revisar que puede compartir archivos o datos con el servidor para asegurarse de que hay buena comunicación. Además será necesario que en la terminal coloque esta cadena de conexión.
 
  • El nombre (o Dirección IP) del Servidor no Existe en la Red

Existe un error al intentar hacer la conexión -2147467259 Proveedor de TCP: Host desconocidocódigo duro: 5

Causa: El Nombre del Servidor o Dirección Ip donde está alojada la base de Datos No existe o no tiene el Servicio Habilitado.

SERVIDOR es el nombre o IP de su SQL Server

  •  El Puerto de SQL SERVER actual no es 1400

Existe un error al intentar hacer la conexión -2147467259 Proveedor de TCP: No se ha podido establecer conexión ya que el equipo de destino ha denegado activamente dicha conexión. código duro: 5

Causa: El Servidor está rechazando la conexión debido a que el puerto disponible para aceptar las peticiones no es el 1400 (tal vez es el 1344, que viene por default). En este caso, debemos abrir el puerto 1400 para permitir el acceso a la Base de Datos.

  •  El Servicio de SQL Server está en PAUSE

 Existe un error al intentar hacer la conexión -2147467259 SQL Server service has been paused. No new connections will be allowed. To resume the service, use SQL Computer Manager or the Services application in Control Panel. código duro: 5

Causa: El servicio está Pausado de manera intencional por el Personal Administrador del Sistema (DBA).

  • No existe la Base de Datos MyBusinessPOS2011.mdf en la Lista del Servidor.

Existe un error al intentar hacer la conexión -2147467259 Cannot open database “C:\MyBusinessDatabase\MyBusinessPOS2011.mdf” requested by the login. The login failed. código duro: 5

Causa: La Base de Datos no existe en el Servidor.

Tal vez Será Necesario hacer un Attach de la Base de Datos.

Otra causa es que no se encuentran los dos archivos necesarios en la ruta C:\MyBusinessDatabase\

  • El Sistema de Archivos de  Windows esta Comprimido

EXISTE UN ERROR AL HACER LA CONEXION 2147467259 EL ARCHIVO C:\MYBUSSINESDATABASE\MYBUSSINESPOS2011.MDF.  esta comprimido pero no recibe e una base de datos o grupo de archivos de solo lectura el archivo debe estar descomprimido. codigo duro 58.

Causa: Windows Comprime los archivos de manera automática para reducir espacios.

Dar un clic sobre la unidad C,  seleccionar la opción “Propiedades”. En la ventana que le aparece debe deshabilitar la opción que dice “Comprimir esta unidad para ahorrar espacio en disco”. De clic en Aceptar y vuelva a hacer una prueba para entrar a MyBusiness POS.

  •  No coincide la contraseña para accesar a la Base de Datos

Existe un error al intentar hacer la conexión -2147217843 Login failed for user ‘sa’. código duro: 5

Causa: el usuario y la Contraseña no coinciden para accesar a la base de Datos (de SQL Server, no es la misma del login a mybusiness).

Usurio:  sa

Passwd: 12345678

  •  Error de Password en MyBusiness POS

El password no coincide

Causa: el usuario y la Contraseña no coinciden para iniciar Sesión en MyBusiness POS

Datos por Default

Usurio:  sup

Passwd: sup

La manera correcta de escribirlo es sup[ESPACIO]sup

  • Error en el Usuario MyBusiness POS

El usuario no existe

Causa: El usuario no ha sido dado de alta en el sistema.

Datos por Default

Usurio:  sup

Passwd: sup

La manera correcta de escribirlo es sup[ESPACIO]sup

  • La Cadena de Conexión está Incompleta

Existe un error al intentar hacer la conexión -2147467259 Interfaces de red SQL: La cadena de conexión no es válida [87].  código duro: 5

Causa: A la cadena de conexión le faltan parámetros para que se pueda realizar la conexión al Servidor (puede ser el nombre o el puerto 1400 que haga falta).

  • Error al ejecutar a SQLCloud

Run-time error 429 ActiveX Component Can’t create object

Module: frmInicio
Function: vbaIListBar1_ItemClick
ActiveX component can’t create object codigo duro: 24
Error número: 429

Te podemos solucionar este error lo más pronto posible desde Whatsapp 7222816462

Error al ejecutar a SQLCloud

  • Error al intentar abrir MyBusinessPOS V17

Existe un error al intentar hacer la conexión -2147467259
SQL Server Network interfaces: La instancia localDB especificada no existe.
[x89C50107]. Código duro: 5

Causa: La versión 2017 se conecta de manera diferente a las anteriores, crea un nombre  propio en el ODBC.
Te podemos solucionar este error lo más pronto posible desde Whatsapp 7222816462

  • Run time error 91 mybusiness pos

Error de tiempo de ejecución ’91’: la variable de objeto o variable de bloque With no está establecida, seguida del Error 59999 – Error definido por el objeto o definido por la aplicación

PD: Estoy seguro que ni el personal de MyBusiness POS Desarrollos tienen esta lista de errores y Soluciones!!!

Whatsapp 7222816462 , tenemos la solución.
Ocurrió un Error
Module: frmPointOfSal
Function: TerminaVenta
Description: No se pudo finalizar la reansacción de datos: Error no especificado código duro: 2944
Error número: -2147467259

Solución:
https://helpmybusinesspos.info/download/reparar-base-de-datos-2012-con-un-query/

Metadatos:

  • my business pos codigo duro 58,
  • error codigo duro 5 my business 2017,
  • codigo duro 62 my business,
  • mybusiness pos,
  • error 58 mybusiness 2011,
  • my business pos v17 configuracion en red,
  • codigo duro 5 my business pos 2017,
  • mybusinesspos2012 mdf solicitada por el inicio de sesión error de inicio de sesión código duro 5,
  • como instalar my business pos 2017,
  • existe un error al intentar hacer la conexión -2147467259 my business,
  • error codigo 5,
  • my business pos 2017 codigo duro 5,
  • codigo duro 62 my business,
  • error 58 mybusiness 2011,
  • instalar mybusiness pos 2017,
  • x89c5010a código duro 5,
  • error en el vinculo de comunicacion mybusiness,
Publicado el 25 comentarios

Configurar MyBusiness POS en RED y Código Duro 58 [Solucionado]

También visite:  Como corregir codigo duro 58

He notado que muchos de los Distribuidores y clientes tienen problemas para hacer la conexion de MyBusiness POS 2011 en Red.

Descarga la cadena de conexión para MyBusiness POS 20

En ocasiones hay que hacer algo más allá de simplemente llenar los textBox que nos presenta el Sistema. El problema en la Conexión se presentó igual en la Versión 2010.
Al parecer, cuando damos de alta una conexión de forma errónea se nos complica un poco hacer la MODIFICACIÓN en los parámetros, esto es porque la ventana contiene errores para hacer el ajuste antes mencionado. En este caso, lo recomendable es BORRAR la conexión errónea y dar de ALTA una nueva Conexión con los datos correctos.
Otra alternativa es colocar de forma manual el nombre de la Conexion en el espacio en blanco que se muestra al final de todos los TextBox. eso es lo que se presenta en el siguiente video. Espero que sea útil…. y no se olviden de Comentar.
Aunque, si hubiera una manera de hacer un Donativo, újule sería bien recibido jeje; digo, si les es útil. Al final del día quienes más visitan este blog son DISTRIBUIDORES que van a aplicar esta Solución con sus CLIENTES.
Saludos.
https://youtu.be/LfAAzzR1Kac
Además, he agregado el siguiente video para los usuarios que tienen problemas para abrir por primera vez el sistema MyBusinessPOS: El ya famoso Error Código Duro 58.

Como información adicional, cito la siguiente información obtenida del boletín No. 41 de MyBusinessPOS.com, la cual puede ser de utilidad.

Instalar SQL para trabajar en RED

Servidor

Una vez que se introduce en CD de instalación y nos muestra el “SplashCD” damos un clic en la opción Instalar SQL para trabajar en RED la cual nos mostrará una ventana donde debemos definir el “password para el servidor de Microsoft SQL Server” capturamos el password y lo confirmamos, damos un clic en el botón “Aceptar” y continuamos con la instalación.

Una ves instalado vamos a revisar el puerto que asigno al instalar el SQL, damos clic en el botón Inicio / Todos los programas / Microsoft SQL Server 2005 / Configuration Tools / SQL Server Configuration Manager Nos mostrará la siguiente ventana en la cual damos clic en la opción de SQL Server 2005 Network Configuration / Protocolo for SQL EXPRESS / TCP/IP y damos un clic en Propiedades del TCP/IP – IP Adreses IPAII – TCP Dynamic Port. Una vez que tenemos el número de puerto hay que acceder al firewall de Windows para liberar el puerto que nos servirá para conectarnos en red

Liberar puerto en el Firewall de Windows

Damos un clic en el botón Inicio / Panel de control / Firewall de Windows / Excepciones y damos clic en Agregar puerto… Asignamos un nombre y el número de puerto que género la instalación del SQL Server, clic en TCP, clic en Aceptar.

Hasta este punto ya tenemos el password para el servidor de Microsoft SQL Server, el número de puerto del SQL y liberado el puerto en el firewall de Windows.

Cliente

En el equipo cliente damos clic en la opción “Instalar MyBusiness” al concluir con la instalación nos mostrar los “Datos generales de la empresa” en la cual colocamos el nombre de nuestra empresa y damos clic en el botón “Avanzadas” y modificaremos los siguientes datos.

1. Desactivamos la casilla de “Utilizar base de datos local”

2. Revisamos que el nombre de la base de se el mismo de no ser así cambiamos la ruta o el nombre de la misma

3. Verificamos el nombre del equipo servidor o la IP a la cual nos vamos a conectar (125.265.1.125\SQLEXPRESS) ejemplo.

4. Cambiamos el puerto que nos asigna por el que nos genero el SQL y del cual liberamos el puerto

5. Y finalmente cambiamos el password por que creamos al momento de la instalación.

Damos clic en el botón “Aceptar” y ¡listo…!!! Nos hemos conectado en Red.

Publicado el 45 comentarios

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


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:

Public Sub Main()

‘TIPO DE PAPEL: 6287 T. CARTA
‘MARCA DE PAPEL: BIC PIMACO
‘ETIQUETAS/HOJA: 80
‘CONSEGUIRLO EN OFFICE DEPOT
‘IMPRESORA LÁSER
‘cada milimetro es equivalente a 57.1428571428571 pixels

IniciaDocumento

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

nColumna = InputBox( “Comenzar con la columna no.:”, 0 )
nFila = InputBox( “Comenzar con la fila no.:”, 0 )

‘EN CASO DE QUE SE CONTESTE 0 EN ALGUNO DE LOS CASOS, NO SE IMPRIMIRÁ NADA
if Val2( nColumna ) <= 0 Then
Exit Sub
end if

if Val2( nFila ) <= 0 Then Exit Sub end if ‘REALIZAMOS LA CONSULTA Set rstProds = CreaRecordSet( “SELECT * FROM prods WHERE etiquetas > 0 ORDER BY articulo”, Ambiente.Connection )

‘ESPECIFICAMOS EL LA SEPARACIÓN ENTRE CADA ETIQUETA, EN PIXELES, TANTO EN X(HORIZONTAL) COMO Y(VERTICAL)
nX = 2714.28571428571
nY = 725.714285714286

DEFINIMOS LOS MÁRGENES DE LA HOJA, EL SUPERIOR Y EL IZQUIERDO
nMargensuperior = 400
nMargenIzquierda = 828.57

While Not rstProds.EOF

cArticulo = Trim( rstProds(“articulo”) )
cDescrip = Trim( Mid(rstProds(“descrip”),1,16) ) & ” ” & Trim( rstProds(“modelo”) ) & ” ” & Trim( rstProds(“talla”) ) & ” ” & Formato( rstProds(“precio1?), “$##,##0.00? )
cEmpresa = Ambiente.Empresa

For i = 1 To rstProds(“Etiquetas”)

‘AQUÍ SE REALIZAN LAS OPERACIONES CON LAS VARIABLES QUE ANTES HABÍAMOS DEFINIDO
PosicionX = ((nX * nColumna) – nX) + nMargenIzquierda
PosicionY = ((nY * nFila) – nY) + nMargensuperior

‘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
Codigo39 PosicionX, PosicionY, 10, 200, cArticulo, True,, cDescrip

nColumna = nColumna + 1

‘EN EL SIGUIENTE BLOQUE ESPECIFICAMOS CUÁNTAS COLUMNAS VA A TENER LA HOJA TAMAÑO CARTA (EN ESTE CASO, 4)
if nColumna > 4 Then
nColumna = 1
nFila = nFila + 1
end if

if i = rstProds(“Etiquetas”) Then
Exit For
end if

‘EN EL SIGUIENTE BLOQUE ESPECIFICAMOS CUÁNTAS FILAS VA A TENER LA HOJA TAMAÑO CARTA (EN ESTE CASO, 20)
if nFila > 20 Then
nFila = 1
PaginaNueva

end if
Next
rstProds.MoveNext
Wend
FinDocumento
End Sub

 

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.