Imprimir informe (con subformulario) en varias páginas

Tengo un informe el cual he conseguido que me salgan páginas según el tamaño del subformulario (proviene de un consulta).

Ahora bien, si el total son 3 hojas, cuando voy a vista preliminar me imprimir las 3 hojas tantas veces como registros hay... Por lo que si en esas 3 hojas hay en total 100 registros, me imprimie 100 veces las 3 páginas.

No encuentro como conseguir que solo me imprima una única vez las 3 páginas.

1 Respuesta

Respuesta
2

La verdad es que no acabo de entender el problema que expones e ignoro si acierto al recomendarte éste ejemplo que tengo en Mediafire de >>

http://www.mediafire.com/file/vi5eh9iok8kjgdl/UnInformePorRegistro.rar/file 

Si no es exactamente lo que buscas, seguro que te dará alguna pista. Un saludo >> Jacinto

NO me deja abrirlo.

Haber... tengo un informe que me muestra todo el subinforme en paginas (tantas como largo necesita el subinforme), pero al mismo tiempo imprime lo mismo tantas veces como registros tengo.

Haber... si realmente, el informe són por ejemplo 3 páginas, quiero que deje de imprimir a las 3 páginas y no que repita esas 3 páginas tantas veces como registros tengo.

Espero haberme explicado mejor.

Veamos si avanzamos un poco. Si tenemos un Informe con un origen de datos de una Tabla/Consulta con 50... o N Registros y lo mandamos a Imprimir sin más, nos va a Imprimir "TODA" la fuente de datos. Ejemplo

DoCmd. OpenReport "NombreInforme", acNormal

Para que solo nos Imprima "UN" registro tenemos que darle un "Identificador"

Ejemplo: Tenemos un Botón en un Formulario que muestra Clientes y que le voy a llamar >> BtnImprime

Para imprimir el Cliente "SOLO" que hay en el Formulario, en el Procedimiento Click del Botón le he de poner.

Private Sub BtnImprime_Click()
DoCmd.OpenReport "[Nombre DelInforme]", acNormal, , "IdCliente = " & Me.IdCliente
DoCmd.Close acReport, "[Nombre Del Informe]"
End Sub

Con ello le dices que el Informe que vas a Imprimir es el del Cliente que estás mostrando, que estoy suponiendo que tiene un Id de tipo Numérico.

Si el IdCliente fuera de tipo Texto, has de poner >> "IdCliente = '" & Me.IdCliente & "'"

Naturalmente has de sustituir los nombres que yo pongo por los que tu tienes. Saludos >> Jacinto

Se me ha pasado adjuntarte el enlace del ejemplo con una Base de datos en Formato .mdb para que pruebes si puedes abrir el Fichero.

http://www.mediafire.com/file/qfzipj31qiwe3pt/UnInformePorRegistroFormatomdb.rar/file 

Un saludo >> Jacinto

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas