[resolvido] Imprimir por form diferente após Filtragem de dados

Moderador: Avelino Sampaio

Jedder
Mensagens: 19
Registrado em: 08 Jun 2015, 19:49

[resolvido] Imprimir por form diferente após Filtragem de dados

Mensagempor Jedder » 17 Jul 2017, 00:35

Boa noite à todos!
Tenho um formulário de filtragem que executo códigos de impressão pelo mesmo.
Podem ser imprimir ou visualizar o registro marcado ou todos os registros existentes na filtragem.
Até aqui tudo bem....
Como necessito criar outros botões de impressão e visualização de mais de um relatório, resolvi criar um outro form só com os botões para impressão e visualização do referido formulário de filtragem.
Acontece que estou "apanhando" com um dos códigos, ou seja:
No formulário de filtragem, ele imprimi/visualiza todos os registros normalmente, mas no formulário de "botões", não.
Segue um exemplo para download do BD para análise através deste link no meu onedrive, pois o tamanho dele excedeu o limite do fórum.

https://1drv.ms/u/s!AgVJt-AxYYCCg8ED7ptnbP3iggEhOw

Espero que possam me ajudar!

Obrigado!!!

Disable adblock

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


Jedder
Mensagens: 19
Registrado em: 08 Jun 2015, 19:49

[Resolvido]Re: Imprimir por form diferente após Filtragem de dados

Mensagempor Jedder » 17 Jul 2017, 12:31

Bom dia à todos!
Consegui resolver e deixo aqui a solução para os que como eu necessitarem de ajuda.

Segue o código alterado:

Private Sub cmdVisualTodos_Click()
On Error GoTo trataerro

DoCmd.OpenForm "frmFiltrarDadosTXT"

Dim filtro As String

If Len(Forms!frmFiltrarDados.CodServID) > 0 Then
filtro = ""
End If
Forms!frmFiltrarDados.SetFocus
DoCmd.OpenReport "relServExecInventPCNumRecibo", acViewPreview, , Forms!frmFiltrarDados.Filter

DoCmd.Maximize

DoCmd.Close acForm, "frmPrintFiltrarDados"

sair:
Exit Sub
trataerro:
If Err.Number = 2501 Then
DoCmd.Restore
End If
Resume sair:

End Sub

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

Re: Imprimir por form diferente após Filtragem de dados

Mensagempor Avelino Sampaio » 17 Jul 2017, 12:41

Jedder

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

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 1 visitante