Mi sembra che questa parte del codice ora sia giusta:
If Weekday(DataValue) = 1 Or Weekday(DataValue) = 7 Then
With rptCartellino.Sections("Section1")
.Controls("txtData").Font.Bold = True
End With
End If

Mentre questa parte non mi convince:
Set Me.Sections(3).Controls("txtData").DataFormat = myDescription

Prova a modificarla così:

Set rptCartellino.Sections("Section3").Controls("txtDa ta").DataFormat = myDescription