Compartir a través de


Propiedad Report.FontSize (Access)

Utilice la propiedad FontSize para especificar el tamaño de punto del texto en las situaciones siguientes:

  • Al mostrar o imprimir controles en formularios e informes.
  • Al usar el método Print en un informe.

Valor Entero de lectura y escritura.

Sintaxis

expresión. Fontsize

Expresión Variable que representa un objeto Report .

Comentarios

La propiedad FontSize puede tener los valores siguientes.

Configuración Descripción
8 (Valor predeterminado para todos los informes y controles excepto los botones de comando) El texto es un tipo de 8 puntos.
10 (Valor predeterminado de los botones de comando) El texto se escribe en un tipo de 10 puntos.
Otros tamaños El texto tiene el tamaño indicado.

Puede establecer el valor predeterminado de esta propiedad mediante el estilo de control predeterminado de un control o la propiedad DefaultControl en Visual Basic.

Para los informes, puede establecer esta propiedad sólo en un procedimiento de evento o en una macro especificada por el valor de propiedad del evento OnPrint.

En Visual Basic, se establece la propiedad FontSize mediante el uso de una expresión numérica igual al tamaño deseado de la fuente. El valor de la propiedad FontSize puede estar entre 1 y 127, inclusive.

Ejemplo:

El ejemplo siguiente utiliza el método Print para mostrar texto en un informe denominado Informe1. Utiliza los métodos TextWidth y TextHeight para centrar el texto verticalmente y horizontalmente.

Private Sub Detail_Format(Cancel As Integer, _ 
 FormatCount As Integer) 
 Dim rpt as Report 
 Dim strMessage As String 
 Dim intHorSize As Integer, intVerSize As Integer 
 
 Set rpt = Me 
 strMessage = "DisplayMessage" 
 With rpt 
 'Set scale to pixels, and set FontName and 
 'FontSize properties. 
 .ScaleMode = 3 
 .FontName = "Courier" 
 .FontSize = 24 
 End With 
 ' Horizontal width. 
 intHorSize = Rpt.TextWidth(strMessage) 
 ' Vertical height. 
 intVerSize = Rpt.TextHeight(strMessage) 
 ' Calculate location of text to be displayed. 
 Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2) 
 Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2) 
 ' Print text on Report object. 
 Rpt.Print strMessage 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.