** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Imprimir rectangulo
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoImprimir rectangulo

 Responder Responder
Autor
Mensaje
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1719
Enlace directo a este mensaje Tema: Imprimir rectangulo
    Enviado: 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.
Arriba
OmniPresente Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Febrero/2009
Localización: España
Estado: Sin conexión
Puntos: 1882
Enlace directo a este mensaje Enviado: 13/Junio/2019 a las 12:30
Yo al menos, no sé si te sigo... ¿podrías poner una captura de pantalla?
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1719
Enlace directo a este mensaje Enviado: 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. 
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 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

Mi web
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1719
Enlace directo a este mensaje Enviado: 14/Junio/2019 a las 13:54
Gracias Xavi. Voy a probarlo y te cuento.
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1719
Enlace directo a este mensaje Enviado: 24/Junio/2019 a las 08:47
Perfecto Xavi.
Este hilo se puede cerrar satisfactoriamente
Saludos y gracias a todos.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable