Compartir a través de

Propiedad Label.FontName (Access)

  • Artículo

Utilice la propiedad FontName para especificar la fuente del texto en las situaciones siguientes:

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

String de lectura y escritura.

Sintaxis

expresión. FontName

Expresión Variable que representa un objeto Label .

Comentarios

El valor de la propiedad FontName es el nombre de la fuente que se muestra el texto.

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.

La disponibilidad de las fuentes depende del sistema y de la impresora. Si selecciona una fuente que el sistema no puede mostrar o que no está instalada, Windows la sustituye por una fuente similar.

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.