Access - Ajustar Texto a cuadro

   
Vista:

Ajustar Texto a cuadro

Publicado por Gabriel Dim (2 intervenciones) el 15/01/2010 23:12:56
Tengo diseñada un informe en el cual deseo que el texto de un campo ajuste automáticamente su tamaño tipográfico al tamaño del cuadro de texto.

Es decir, si el cuadro de control es de 10 caracteres y el tamaño de la fuente es de 24 por ejemplo:
- al tener que imprimir un dato de ese campo que supera los 10 caracteres, que automáticamente se reduzca la fuente a un tamaño adecuado para que no deje de imprimirse ningún caracter.

Esto es posible definirlo?

Muchas gracias por su ayuda.

Gabriel Dim
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

RE:Ajustar Texto a cuadro

Publicado por mi menda (1111 intervenciones) el 16/01/2010 12:32:59
Hola:
Podrías basar el origen del informe en una consulta, a esa consulta le añades un campo para medir la longitud del texto:
NumCaracteres: Len([Campo])

En el botón que abre el informe, chequeamos si hay algún campo con longitud mayor de 10 caracteres:

DoCmd.OpenReport "NombreInforme", acViewDesign

if DMax("NumCaracteres","[NombreConsulta]")> 10 Then
Reports!NombreInforme!Campo.FontSize = 9
Else
Reports!NombreInforme!Campo.FontSize = 12
end if

DoCmd.Close acReport, "NombreInforme", acSaveYes

'Abrimos el informe en vista previa
DoCmd.OpenReport "NobreInforme", acViewPreview

También podrías sacar el valor máximo del campo, y mediante un Select case según sea ese valor, establecer el tamaño de la fuente.

Un saludo
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