Imprimir página | Cerrar ventana

Imprimir rectangulo

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84554
Fecha de impresión: 16/Julio/2019 a las 11:01


Tema: Imprimir rectangulo
Publicado por: Nomada
Asunto: Imprimir rectangulo
Fecha de publicación: 13/Junio/2019 a las 11:46
Buenas.
Tengo un formulario con campos, texto y un rectángulo. Este rectángulo aparece y desaparece encima de del texto y campos, al pulsar sobre una casilla de verificación.
Cómo haría para que al aparecer el rectángulo, el texto y campos que están debajo no se impriman, puesto que no se ven?

Tengo la propiedad del rectángulo Mostrar cuando "Siempre".
Como son varios textos y también varios campos no deseo ir uno a uno poniendo la propiedad de "Visible" en False.

Alguna solución?

Gracias y un saludo.



Respuestas:
Publicado por: OmniPresente
Fecha de publicación: 13/Junio/2019 a las 12:30
Yo al menos, no sé si te sigo... ¿podrías poner una captura de pantalla?


Publicado por: Nomada
Fecha de publicación: 13/Junio/2019 a las 12:59
Gracias OmniPresente.
Me explico tengo un texto, un campo, un rectángulo de color blanco y una casilla de verificación. Si activo la casilla de verificación, aparece el rectángulo encima del texto y el campo. Ahora al imprimir, no debería imprimir nada, puesto que el rectángulo está encima del texto y en pantalla el texto y el campo ya no se ve.

No se si me he explicado mejor. 


Publicado por: xavi
Fecha de publicación: 13/Junio/2019 a las 16:16
Yo entiendo que utilizas el rectángulo para tapar los controles en lugar de utilizar la propiedad visible de los mismos.

Por otro lado entiendo que imprimes el formulario.

1. Yo tendría un función para mostrar/ocultar los controles. Al final vas a dedicar más esfuerzos a "pintar" un cuadro que tape controles que a ocultar los propios controles.
2. Para imprimir tenemos los informes. Te recuerdo que existe la posibilidad de hacer un "guardar como" de un formulario y decirle que es un informe. Ese sencillo paso te permite no partir de cero en la creación del informe. Lo que no se es si te ahorrará lo que pides o tendrás que programarlo.

En definitiva: una función que oculte/muestre los controles es mucho más práctica. Además la puedes reducir bastante utilizando una función independiente y un array. El valor de visibilidad lo marcaría el checkbox

Function VerOcultar(blnValue As Boolean)
  Dim i As Integer
  Dim arrControles As Variant

  arrControles = Array("uncontrol", "otrocontrol")
  For i = 0 To UBound(arrControles)
    Me(arrControles(i)).Visible = blnValue
  Next
End Function

Y la llamas en el evento AfterUpdate de la casilla de verificacion
VerOcultar Me!LaCasilla

¿Me explico?


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: Nomada
Fecha de publicación: 14/Junio/2019 a las 13:54
Gracias Xavi. Voy a probarlo y te cuento.


Publicado por: Nomada
Fecha de publicación: 24/Junio/2019 a las 08:47
Perfecto Xavi.
Este hilo se puede cerrar satisfactoriamente
Saludos y gracias a todos.



Imprimir página | Cerrar ventana