Kan man tilldela olika fonter under körning till en låsäga Label

Ex.
Label1.font = Bold osv

Tacksam för svar

Ta en titt på de olika .Font kommandona.

<code>
Label1.FontName
Label1.FontSize
Label1.FontBold
Label1.FontItalic
Label1.FontStrikethru
Label1.FontUnderline
</code>

Men du kanske menade flera olika fonter i samma label? Isåfall så går det inte vad jag vet.

/Micke

för att förtydliga mig lite

with .datareport1

With .Sections("SECTION1").Controls
.Item("Label1").XXXXX

xxxx = fontbold el dyl
Är det så man ska göra

Förlåt mig, trodde att du menade vanliga labels.

/Micke

Lösning på problemet med font storlek

.Item("Label1").Font.Size = 20
.Item("Label1").Font.Bold = True

Om du skall förändra fonten för mer än en kontroll. Bör du skapa ett fontobjekt och tilldelar det istället till kontrollerna:
<code>
Public Sub ChangeFont
Dim MyFont as stdFont
Set MyFont = New stdFont
MyFont.Size = 20
MyFont.Bold = True

Set .Item("Label1").Font = MyFont
Set .Item("Label2").Font = MyFont
Set .Item("Label3").Font = MyFont
'osv...
End Sub
</code>

Om du vill ändra någa egenskaper för en befintlig font kan du först clona den:
<code>
Public Function CloneFont(Font As IFont) As StdFont
Font.Clone NewFont
End Function

Public Sub ChangeFont
Dim MyFont as stdFont
Set MyFont = CloneFont(.Item("Label1").Font)
MyFont.Size = 20
MyFont.Bold = True

Set .Item("Label1").Font = MyFont
Set .Item("Label2").Font = MyFont
Set .Item("Label3").Font = MyFont
'osv...
End Sub