Forums Últimos mensajes - Powered by IBM
 

imprimir registro actual n veces

26/08/2011 - 12:45 por fernando | Informe spam
Saludos al grupo.
- Llevo dando vueltas a un tema; tengo una tabla (productos) y
necesito imprimir etiquetas de estos productos, hasta aqui bien; el
tema es imprimir el registro actual, el que veo en el formulario, esto
tambien lo tengo conseguido con la siguiente instrucción en un boton
tipo informe:

Private Sub Comando18_Click()
On Error GoTo Err_Comando18_Click

Dim stDocName As String

strDocName = "Etiquetas Lotes"
strWhere = "[ID]=" & Me!Id
DoCmd.OpenReport strDocName, acPreview, , strWhere


Exit_Comando18_Click:
Exit Sub

Err_Comando18_Click:
MsgBox Err.Description
Resume Exit_Comando18_Click

End Sub

Ahora biene el problema:
¿Como puedo indicar en el formulario que me imprima un número
determinado de veces la misma etiqueta con el registro que tengo
seleccionado.?
Saludos y gracias
 

Leer las respuestas

#1 Emilio
26/08/2011 - 15:47 | Informe spam
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
tendrías que tener un campo con el número de etiquetas que quieres imprimir
por cada registro, luego una tabla "numeros" con tantos números (1, 2,3,
...) al menos, como el mayor número de repeticiones quieras hacer.

Crea una consulta sin com ambas tablas pero sin relacionrlas, para que se
produxca un producto cartesiano entre ellas, pon como criterio que el valor
del campo repeticiones de la primera tabla sea igual al campo número de la
tabla números, y listo.

En la web de Julian
http://juliansanchezgomez.web.offic...mplos.aspx tienes un
ejemplo y si mal no recuerdo en la mía también tengo algo.

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail PUNTO com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
escribió en el mensaje de noticias
news:
Saludos al grupo.
- Llevo dando vueltas a un tema; tengo una tabla (productos) y
necesito imprimir etiquetas de estos productos, hasta aqui bien; el
tema es imprimir el registro actual, el que veo en el formulario, esto
tambien lo tengo conseguido con la siguiente instrucción en un boton
tipo informe:

Private Sub Comando18_Click()
On Error GoTo Err_Comando18_Click

Dim stDocName As String

strDocName = "Etiquetas Lotes"
strWhere = "[ID]=" & Me!Id
DoCmd.OpenReport strDocName, acPreview, , strWhere


Exit_Comando18_Click:
Exit Sub

Err_Comando18_Click:
MsgBox Err.Description
Resume Exit_Comando18_Click

End Sub

Ahora biene el problema:
¿Como puedo indicar en el formulario que me imprima un número
determinado de veces la misma etiqueta con el registro que tengo
seleccionado.?
Saludos y gracias

__________ Information from ESET Smart Security, version of virus signature
database 6412 (20110826) __________

The message was checked by ESET Smart Security.

http://www.eset.com




__________ Information from ESET Smart Security, version of virus signature database 6412 (20110826) __________

The message was checked by ESET Smart Security.

http://www.eset.com

Preguntas similares