[resolvido] Imprimir o filtrado

Moderador: Avelino Sampaio

Marco Sousa
Mensagens: 20
Registrado em: 15 Dez 2016, 14:59

[resolvido] Imprimir o filtrado

Mensagempor Marco Sousa » 08 Mai 2017, 13:14

boas
Como posso imprimir o que esta a ser visualizado/ filtrado ? Deixo parte do bd para uma melhor ajuda. Obrigado.
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
Última edição por Marco Sousa em 09 Mai 2017, 16:38, editado 2 vezes no total.

Disable adblock

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


Avatar do usuário
Avelino Sampaio
Mensagens: 2160
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Imprimir o filtrado

Mensagempor Avelino Sampaio » 08 Mai 2017, 14:21

Marco,

altere seu código, conforme partes em vermelho:

Código:
Private Sub filtro_Click()
Dim filtro As String
filtro = "DataInicial between #" & Format(DI, "mm/dd/yyyy") & "# and #" & Format(DF, "mm/dd/yyyy") & "#"
Me.Filter = filtro
Me.FilterOn = True
Me.Requery
End Sub

Private Sub Imprimir_Click()
DoCmd.OpenReport "reltabBaixasMensal", acViewPreview, , Me.Filter
End Sub


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Marco Sousa
Mensagens: 20
Registrado em: 15 Dez 2016, 14:59

Re: Imprimir o filtrado

Mensagempor Marco Sousa » 09 Mai 2017, 11:24

Resolvido... Obrigado mestre, era isto mesmo. Obrigado.

Disable adblock

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



Voltar para “Formulários”

Quem está online

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