Access - Macro para imprimir informe "n" veces

 
Vista:

Macro para imprimir informe "n" veces

Publicado por Lauuszp (1 intervención) el 14/12/2018 12:29:01
Buenos días,

Antes de nada, agradecer que dediquéis vuestro tiempo en leer y/o responder mi post. Soy nueva en foros así como en la utilización de Access.

Estoy elaborando una bbdd que me permita imprimir etiquetas de productos, en función de un nº de albarán.

He creado una macro que abre el informe e imprime las etiquetas, pero 1 unidad de cada.

La macro convertido a VB es:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'------------------------------------------------------------
' Imprimir_Etiqueta_05
'
'------------------------------------------------------------
Function Imprimir_Etiqueta_05()
On Error GoTo Imprimir_Etiqueta_05_Err
 
    DoCmd.OpenReport "Etiquetas Consulta Albarán", acViewNormal, "", "", acNormal
 
 
Imprimir_Etiqueta_05_Exit:
    Exit Function
 
Imprimir_Etiqueta_05_Err:
    MsgBox Error$
    Resume Imprimir_Etiqueta_05_Exit
 
End Function


Necesito que se impriman "n" etiquetas, en función de la cantidad pedida en cada línea del albarán. Ese dato lo tengo en la consulta "Consulta Albaran", en un campo que se llama "CantidadPedida"

He estado mirando los bucles que existen, pero no sé muy bien cuál se adapta a mis necesidades, ni como ponerlo.

Agradecería muchísimo que me pudierais echar una mano.

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Macro para imprimir informe "n" veces

Publicado por jose (806 intervenciones) el 17/12/2018 19:00:13
Una forma
Crea un cuadro de texto y ponle un nombre, por ejemplo copias
Aquí es donde pones el número de copias que quieres del informe


Ahora crea una etiqueta puedes usar la que tienes etiqueta_05
Ponte encima de esa etiqueta -- botón derecho del raton----- propiedades_____eventos_____al hacer clic

Y aquí pones
Forma N=1 to copias
Docmd.openReport "nombre del informe"(
(Copia la línea que has puesto arriba)
Next n


Ahora tienes que quitar el código que tenías o la macro que tengas

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar