Postada em 05/08/2011 11:34 hs
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:
[u]DataValue.TargetObject.Font.Bold = True[/u]
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
|
