[VB6] Report Designer 6.0 e modifiche runtime

[Gianluca Frati]

Rieccomi.
Niente da fare. Il risultato è ancora lo stesso. Niente grassetto.

Questo è il codice:

Option Explicit

Dim WithEvents myDescription As StdDataFormat

Private Sub DataReport_Initialize()

    Set myDescription = New StdDataFormat
    Set rptCartellino.Sections("Section1").Controls("txtData").DataFormat = myDescription

End Sub

Private Sub myDescription_Format(ByVal DataValue As StdFormat.StdDataValue)
    If Weekday(DataValue) = 1 Or Weekday(DataValue) = 7 Then
        With rptCartellino.Sections("Section1")
            .Controls("txtData").Font.Bold = True
        End With
    End If
    DataValue = Format(DataValue, "d ddd")
End Sub