e nao da pra jogar esse soma dentro desse rotina? essa rotina serve para o seguinte toda a linha que tiver com o checkbox marcado = true, imprime....nao da pra fazer atraves dessa rotina ? quando ele marcar o checkbox ele ja soma essa coluna ?, desculpa se falei besteira
With ficha_etiquetas
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
.cont = .cont + 1
End If
Next
If .cont = 0 Then: MsgBox "Não Existe Cliente Selecionado", vbInformation: Exit Sub
.InitArray
.Show vbModal
Exit Sub
End With
dessa forma eu marco todos os Checkbox atraves de um botao
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems.Item(i).Checked = True
Next
dessa forma eu desmarco
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems.Item(i).Checked = False
Next