Tenho um relatório no datareport, e na section2 tem um image1 onde coloco um logotipo, e agora estou querendo fazer o seguinte: no form coloquei um checkbox e que quando este estiver ativado no relatório não deve aparecer o logotipo.

tentei fazer assim:

 

Dim d As Integer

With DataReport1

    Set .DataSource = rs
    .DataMember = ""
        With .Sections("section2").Controls
            For d = 1 To .Count
                If TypeOf .Item(d) Is RptImage Then
                    If chk1.Value = True Then
                    .Item(d).Picture = ""
                    d = d + 1
                    End If
                End If
            Next d
        End With
    .Refresh
    .Show 1
    End With

 

mas não deu certo, não acontece nada e o relatório é gerado normamente com o logotipo..., alguém tem alguma idéia?

 

Marcelo