Se aplica a
|
Objeto ComboBox |
Objeto Report |
|
Objeto CommandButton |
Colección TabControl |
|
Objeto FormatCondition |
Objeto TextBox |
|
Objeto Label |
Objeto ToggleButton |
|
Objeto ListBox |
Puede usar la propiedad FontBold para especificar si una fuente aparece en negrita en las situaciones siguientes:
-
Al mostrar o imprimir controles en formularios e informes.
-
Al usar el método de impresión en un informe.
Comentarios
En la propiedad FontBold se usa la configuración siguiente.
|
Configuración |
Descripción |
|
True |
El texto está en negrita. |
|
False |
(Predeterminado) El texto no está en negrita. |
Nota: Puede establecer la propiedad FontBold con solo usar una macro o con código VBA (Visual Basic para Aplicaciones).
Para usar la propiedad FontBold del informe, primero cree un procedimiento de evento de impresión que imprima el texto deseado.
La apariencia de una fuente en pantalla y en la impresión puede ser distinta, según el equipo y la impresora usados.
La propiedad FontWeight, que está disponible en la hoja de propiedades de controles, también se puede usar para establecer el ancho de línea del texto de un control. La propiedad FontBold le ofrece una forma rápida de convertir el texto en negrita; la propiedad FontWeight le ofrece un mayor control sobre la configuración de ancho de línea del texto. En la tabla siguiente se muestra la relación entre estas opciones de configuración de propiedades.
|
Si |
Entonces |
|
FontBold = False |
FontWeight = Normal (400) |
|
FontBold = True |
FontWeight = Bold (700) |
|
FontWeight < 700 |
FontBold = False |
|
FontWeight > = 700 |
FontBold = True |
Ejemplo
El siguiente procedimiento de evento de impresión imprime el título del informe y la fecha actual en negrita en un informe, en las coordenadas especificadas por la configuración de las propiedades CurrentX y CurrentY.
Private Sub ReportHeader0_Print(Cancel As Integer, _
PrintCount As Integer)
Dim MyDate
MyDate = Date
Me.FontBold = True
' Print report title in bold.
Me.Print("Sales Management Report")
Me.Print(MyDate)
End Sub
