Crear e Imprimir Etiquetas (Report) Masivas en Access

Puedes hacerlo de muchas, muchas formas. Por ejemplo, en el formulario puedes

1º Poner un cuadro de texto al que, para el ejemplo, llamaremos Contador, donde escribirás el número de folio que quieras como límite.

En sus propiedades-eventos-después de actualizar crear un procedimiento de evento y poner

docmd.openreport"nombreinformeetiquetas",,,"folio between " & me.folio & " and " & me.contador & ""

Así, cuando en el cuadro de texto Contador pongas el último numero de folio que quieras y pulses Enter, te imprimirá las etiquetas comprendidas entre el folio que en ese momento aparece en el control Folio y la que aparece en el control Contador

2º Poner un botón y en sus propiedades-eventos-al hacer clic

docmd.openreport"nombreinformeeqtiquetas",,,"folio between [Escriba un número de folio inicial] and [Escriba un número de folio final]"

En este caso te pedirá que escribas un número inicial. Lo escribes, aceptas. Te pedirá que escribas uno final. Lo escribes, aceptas y chim pum.

Hay más, por ejemplo, que se abra un inputbox, etc

¡Gracias! Muchachos, probe las respuestas e información que me han otorgado, genere el boton donde me solicita desde que folio a cual quiero imprimir, y funciona perfecto.

El problema que tengo es que solo imprime si los folios fueron creados en la base, por ejemplo si imprimo del 1 al 10, y en la base solo esta creado hasta el 7, imprime del 1 al 7. faltando el 8,9 y 10.

Entonces lo que me esta faltando es: como agregar los registros masivos a la tabla para poder imprimir masivo?

por ejemplo en la tabla  el ultimo folio es el 10, yo quiero generar 20 registros enseguida usando los mismos datos de fecha y control que estan en el textbox. y asi luego podria imprimir masivo desde el 11 hasta 30.

Se entiende? desde ya agradezco enormemente su ayuda.

Lo puedes hacer de muchas formas. Vamos a ver si lo he entendido. Todo depende de como "trabajes". Por ejemplo, vamos a suponer que tienes una tabla Etiquetas donde guardas los datos que quieres que te aparezcan en ellas. Y vamos a suponer que en ese momento el último registro tiene un IdCliente( o lo que sea) con un valor de 7.

Vamos a suponer que en el formulario tienes los controles NombreCliente, Dirección, País y quieres que te inserte esos valores en la tabla Etiquetas hasta que haya un Idcliente con un valor que tu decidas,

En ese cuadro Contador pones el número que desees y en el evento Después de actualizar o en otro evento puedes poner

Dim i as byte

for i=idcliente to Contador

Docmd. Runsql"insert into etiquetas(nombrecliente, direccion, pais) values(nombrecliente, direccion, pais)"

next

docmd.openreport"Etiquetas",,,"idcliente between " & me.idcliente & " and " & me.contador & ""

Me explico. Imagina que en ese momento, en el registro que estás del formulario tiene un Idcliente 7, en los cuadros de texto te aparecen Pepe López, Calle Mayor 5 y España. En el cuadro de texto Contador pones 25 y pulsas Enter

Primero te insertará en la tabla Etiquetas 18 registros con Pepe Lopez, Calle Mayor 5 y España y luego te imprimirá el informe Etiquetas comenzando en el idcliente=7 y terminando en el Idcliente=25

No sé si era eso a lo que te referías. Si no fuera, dímelo

¡Gracias! Muchas Gracias!, me funciono perfecto, además que quite los mensajes de Alerta por usar runsql. Quedo Perfecto, te lo agradezco.

Solo me queda corregir un detalle que es hacer que la Fecha se imprima en Long Date 00/MES/0000 y no 00/00/00, aunque en la base esta configurado como Long date, de igual forma en el Report lo muestra en Short Date.

Si tiene algún dato para esto seria espectacular, por otra parte vuelvo agradecer por el código del FOR, ya que estaba probando con un Do While, pero me creaba un registro adicional y perdía siempre un Folio en cada creación.

Saludos! Y que tengas un excelente semana.

¡Gracias!