Olá pessoal, boa noite

 

Estou fazendo um relatório para impressão de etiquetas, preciso fazer dois filtros, o primeiro filtro é por data, e o segundo é por seleção em um listview. Na listview utilizei a propriedade checkboxes para seleção, agora preciso vincular isso ao relatório para que seja impresso apenas os registros que forem selecionados, ocorre que eu não sei qual é a propriedade da listview e a sintaxe utilizada para isso, se alguém puder me ajudar agradeço muinto.

 

Um abraço a todos

Raiane.

 

Oi Amigo infelizmente eu ainda não consegui mostrar as etiquetas no relatório. Tentei desta forma, mas, é impresso a página em branco:

 

With cr1

 

        .ReportFileName = App.Path & "Etiquetas.rpt"
        .WindowTitle = "Impressão de Etiquetas: "
        .Destination = 0
        For i% = 1 To ListViewDetalhes.ListItems.Count - 1
             If ListViewDetalhes.ListItems(i%).Checked = True Then
                .SelectionFormula = "{Clientes.cl_contrato}='" & ListViewDetalhes.ListItems(i%).Checked = True & "'"
                .WindowState = crptMaximized
                .WindowShowRefreshBtn = True
             End If
        Next i%
      
       .Action = 1

End With

 

Quem puder me ajudar agradeço muinto.

Um Abraço a todos

Raiane

Raiane,

    O que é o campo "{Clientes.cl_contrato}" ?

     Numero do Contrato?

 

Talvez o erro esteja aí...

 

 

Sds,

Watson

É o numero do contrato sim, na verdade é para selecionar todos cujo numero do contrato esteja selecionado.

Então na linha

.SelectionFormula = "{Clientes.cl_contrato}='" & ListViewDetalhes.ListItems(i%).Checked = True & "'"
o item em negrito não pode ser este,

tem que passar o numero do contrato onde está no listview.

Ex.

.SelectionFormula = "{Clientes.cl_contrato}='" & ListViewDetalhes.ListItems(i%).text & "'"
ou

.SelectionFormula = "{Clientes.cl_contrato}='" & ListViewDetalhes.ListItems(i%).subitens(1) & "'"

 

OK

 

Watson