ola pessoal eu denovo, gostaria de perguntar se alguem sabe como fazer isso , imprimir itens do listview dentro de txts do Active report nao achei nenhum exemplo de como fazer isso , por favor se alguem souber me ajude, obrigado ate mais

obrigado por postar , eu fiz assim ò

 

dentro do lsitview no botao Imprimir

 

Dim rpt As New RptCartaCobranca
Set rpt.listv = ListView1
RptCartaCobranca.Show 1

 

e no active report eu deixei assim

 

Option Explicit
Private list As ListView
Private iRow As Integer
Dim cont As Integer

 

 
Property Set listv(lsv As ListView)
    Set list = lsv
End Property

 

Private Sub ActiveReport_FetchData(eof As Boolean)
   
    If iRow < list.Rows Then

        list.Row = iRow
   
            list.Col = 2
            FieldNomeInqui = list.Text

            list.Col = 3
            Fieldmes = list.Text & Space(2)

     

        iRow = iRow + 1
        eof = False
    End If
End Sub

 

Private Sub ActiveReport_ReportStart()
cont = 1
iRow = 1
End Sub

Esta dando erro na hora de abrir o relatorio tipo o erro é assim

 

"Extended Info:Format of the initialization string does not conform to the OLE DB specification."

 

ate chega a entrar no Active mas é parado por esse erro

Ajuda alguem

POw pessoal me ajuda AE