ERROR DATAREPORT

IRENKO 05/08/2011 11:33:52
#380897

Explicando o código abaixo:

Estou tentando colocar a fonte da variavel (DataValue) em negrito. Para mudar o valor dessa varialvel esta funcionando conforme condição, mas para passar para Font.Bold = True da o erro:

(Object Variable Or With Block Variable Not Set), na linha:

DataValue.TargetObject.Font.Bold = True

O que estou esquecendo de declarar? Estou usando o DataReport.


Option Explicit
Dim WithEvents FtTexto As StdDataFormat
Private Sub DataReport_Initialize()
Set FtTexto = New StdDataFormat

With Me
.Height = 13965
.Width = 16965
.Orientation = rptOrientLandscape
.TopMargin = 400
.BottomMargin = 400
.LeftMargin = 400
.RightMargin = 400
With .Sections([Ô]Dados[Ô]).Controls
Set .Item([Ô]TxtCliente[Ô]).DataFormat = FtTexto
End With
End With

End Sub
Private Sub FtTexto_Format(ByVal DataValue As StdFormat.StdDataValue)

With DataValue
If InStr(1, .Value, [Ô]<<<< Valor >>>>[Ô]) Then
DataValue.Value = [Ô]Teste-Teste-Teste[Ô]
DataValue.TargetObject.Font.Bold = True
End If

End With
End Sub