Innanzitutto grazie per la risposta.

Però non credo di aver ben capito la modifica che mi hai suggerito.
Comunque ho messo giù il codice in questo modo ma ancora non c'è grassetto nel report.

codice:
Option Explicit

Dim WithEvents myDescription As StdDataFormat

Private Sub DataReport_Initialize()

    Set myDescription = New StdDataFormat
    Set Me.Sections(3).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
Suggerimenti?