[resolvido] Imprimindo através de Listbox

Moderador: Avelino Sampaio

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

[resolvido] Imprimindo através de Listbox

Mensagempor José Waldick » 25 Dez 2017, 11:10

Gostaria de imprimir um relatório (Lista de Clientes), onde a escolha dos 'Clientes' será efetuada através de uma 'Listbox'.
Ex: Tenho uma 'Listbox' com vinte clientes cadastrados, porém, desejo selecionar apenas cinco clientes para imprimir o relatório.
Deus é bom e fiel!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 443
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Imprimindo através de Listbox

Mensagempor Damasceno Jr. » 26 Dez 2017, 13:10

Não há exemplo melhor do que no maestro sobre filtragens para relatório.
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

Re: Imprimindo através de Listbox

Mensagempor José Waldick » 26 Dez 2017, 14:04

Não estou conseguindo obter o código dos formulários e módulos, teria como você nos enviar?
Deus é bom e fiel!

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

Re: Imprimindo através de Listbox

Mensagempor José Waldick » 26 Dez 2017, 14:14

Código:
Private Sub btRelatorio_Click()
Dim strFiltro As String, Sel As Variant, j As Boolean
strFiltro = "in("
For Each Sel In Me!Lista.ItemsSelected
strFiltro = strFiltro & Me!Lista.Column(0, Sel) & ","
j = True
Next
strFiltro = Mid(strFiltro, 1, len(strFiltro) - 1) & ")"
strFiltro = "idCliente " & strFiltro

If j = False Then Exit Sub
DoCmd.OpenReport "rltClientes", acViewPreview, , strFiltro
End Sub

Pesquisando no site, encontrei este código elaborado por Avelino, na seção 'Artigo'.
Agradeço dede já pela atenção!
Deus é bom e fiel!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Relatórios”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 4 visitantes