En los informes puedes incluir líneas y rectángulos, están
en el cuadro de herramientas, junto con los cuadros de
texto, las etiquetas...
Saludos,
CarCar
MVP-Access
--
Saludos.
José Bengoechea Ibaceta [MS-MVP Access]
http://perso.wanadoo.es/j.bchea
"CarlosMora" <ann...@discussions.microsoft.com> escribió en el mensaje
news:6FC22BF5-D4D7-4159...@microsoft.com...
> Hola Grupo,
>
> Vengo con otra duda: Estoy creando unos informes que serán impresos EN
BLANCO (hojas de registro) con el fin de recolectar datos (manuscritos) que
luego, otra persona, introducirá en la base de datos. La idea es que,
después, los informes finales se crearán muy parecidos a estos pero con los
datos procesados por el sistema.
>
> Ya tengo los informes finales y tenía la idea de usarlos para crear las
hojas de registro de datos (los informes en blanco), pero tengo el
inconveniente de que los informes finales no tienen cuadrícula entonces al
crear las hojas de registro solo tengo una linda...hoja en blanco!. Quiero
añadir una cuadrícula para que la persona encargada de recolectar la
información pueda hacerlo fácilmente.
>
> Gracias por sus ideas
>
> Ah! una aclaración: la razón para imprimir informes en blanco es que
tendrán el encabezado y algunos datos de la entidad cuya información
Se me ocurre que dibujes el máximo de rectángulos que
deban de ser impresos. Si les pones como nombres: Cuadro1,
Cuadro2... CuadroN y existe el número de rectángulos que
se ha de imprimir por cada informe, se trataría de, en el
evento "Al dar formato" de la sección en la que estén
dibujados, incluir un procedimiento que haga No visibles,
aquellos que no sean necesarios, un bucle desde dicho
número hasta "N" serviría, algo así como:
Private Sub Detalle_Format(Cancel As Integer, FormatCount
As Integer)
Dim X As Integer
For X = 1 To 24 '24 es el número máximo de cuadros.
If X > N Then
Me.Controls("Cuadro" & X).Visible = False
Else
Me.Controls("Cuadro" & X).Visible = True
End If
Next X
End Sub
En este ejemplo he supuesto que cada registro tiene un
campo N, en dónde va el número de rectángulos a
visualizarse, el campo se puede poner en el informe con la
propiedad Visible a No.
Saludos,
CarCar
MVP-Access
>-----Mensaje original-----