Tem como selecionar os dados no listview antes de exportar pro relatório?
Tem também como deixar algumas informações fixa no relatório antes dos dados exportados?
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Listview
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: Listview
Valdecy, referente a:
Tem como selecionar os dados no listview antes de exportar pro relatório?
Primeiro defina nas Propriedades do ListView o item: MultiSelect = True
Como não especificou quantas colunas tem o seu ListView, a Rotina abaixo envia para a Plan2 todos os itens selecionados referentes a Primeira Coluna:
E nas rotinas abaixo, é se seu ListView tiver 04 Colunas:
Quanro a :
Tem também como deixar algumas informações fixa no relatório antes dos dados exportados?
Se entendi, é só definir o Layout da aba Relatorio colocando as informações que serão fixas, e enviar os dados para os ranges que estiverem em branco, se não for isto, forneça mais detalhes.
[]s
Tem como selecionar os dados no listview antes de exportar pro relatório?
Primeiro defina nas Propriedades do ListView o item: MultiSelect = True
Como não especificou quantas colunas tem o seu ListView, a Rotina abaixo envia para a Plan2 todos os itens selecionados referentes a Primeira Coluna:
Código: Selecionar todos
Private Sub CommandButton1_Click()
Dim iRow As Integer
Dim i, w, lastRow As Integer
Dim rStartCell As Range
Plan2.Range("A2:D22").Value = ""
Set rStartCell = Plan2.Range("A65536").End(xlUp).Offset(1, 0)
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Selected = True Then
iRow = iRow + 1
rStartCell.Cells(iRow, 2).Value = ListView1.ListItems(i).Text
End If
Next
End Sub
Código: Selecionar todos
Private Sub CommandButton3_Click()
Dim iRow As Integer
Dim i, w, lastRow As Integer
Dim rStartCell As Range
Plan2.Range("A2:D22").Value = ""
Set rStartCell = Plan2.Range("A65536").End(xlUp).Offset(1, 0)
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Selected = True Then
iRow = iRow + 1
rStartCell.Cells(iRow, 1).Value = ListView1.ListItems(i).Text
rStartCell.Cells(iRow, 2).Value = ListView1.ListItems(i).ListSubItems(1).Text
rStartCell.Cells(iRow, 3).Value = ListView1.ListItems(i).ListSubItems(2).Text
rStartCell.Cells(iRow, 4).Value = ListView1.ListItems(i).ListSubItems(3).Text
End If
Next
End Sub
Tem também como deixar algumas informações fixa no relatório antes dos dados exportados?
Se entendi, é só definir o Layout da aba Relatorio colocando as informações que serão fixas, e enviar os dados para os ranges que estiverem em branco, se não for isto, forneça mais detalhes.
[]s
Re: Listview
Mauro Coutinho, obrigado pela atenção.
Aqui está a rotina que exporta os dados para a planilha.
logo abaixo está o relatório.
Private Sub Exportar()
Dim i As Integer
Dim NewWorkBook As Workbook
Dim rst As ADODB.Recordset
Set rst = PreecheRecordSet(txtCATEGORIA.Text, txtuso.Text, txtBITOLA.Text)
Set NewWorkBook = Application.Workbooks.Add
For i = 0 To rst.Fields.Count - 1
NewWorkBook.Sheets(1).Range("A5").Offset(0, i).Value = rst.Fields(i).Name
Next i
NewWorkBook.Sheets(1).Range("A6").CopyFromRecordset rst
NewWorkBook.Activate
End Sub
As informações seriam aqui !!!
Código Categoria Uso Tipo Bitola Peca
28 AGUA FRIA AGUA FRIA SOLD 20 MM ADAPTADOR JET 30
29 AGUA FRIA AGUA FRIA SOLD 25 MM ADAPTADOR JET 30
Aqui está a rotina que exporta os dados para a planilha.
logo abaixo está o relatório.
Private Sub Exportar()
Dim i As Integer
Dim NewWorkBook As Workbook
Dim rst As ADODB.Recordset
Set rst = PreecheRecordSet(txtCATEGORIA.Text, txtuso.Text, txtBITOLA.Text)
Set NewWorkBook = Application.Workbooks.Add
For i = 0 To rst.Fields.Count - 1
NewWorkBook.Sheets(1).Range("A5").Offset(0, i).Value = rst.Fields(i).Name
Next i
NewWorkBook.Sheets(1).Range("A6").CopyFromRecordset rst
NewWorkBook.Activate
End Sub
As informações seriam aqui !!!
Código Categoria Uso Tipo Bitola Peca
28 AGUA FRIA AGUA FRIA SOLD 20 MM ADAPTADOR JET 30
29 AGUA FRIA AGUA FRIA SOLD 25 MM ADAPTADOR JET 30