[Resolvido]Imprimir filtro de pesquisa

Salve,

No anexo, tenho um formulario com filtro ( creditos Mestre Avelino ), que é exatamente o que preciso, com a ajuda de algumas pessoas aqui do forum ja adaptei e esta quase perfeito, so que me falta ainda poder imprimir o resultado do filtro e não tenho o menor conhecimento de como fazer isso, no codigo ate tem uma rotina imprimir mas que não consegui fazer rodar...

Preciso de ideias ou tutorias,



Obrigado.

Fábio,

Coloque esse código no evento ao clicar do butão imprimir:

Dim filtro As String

If Len(Me!CboCliente & "") > 0 Then filtro = "cliente = '" & CboCliente.Column(0) & "'"
If Len(Me!DataInicial & "") > 0 And Len(Me!DataFinal & "") > 0 Then
If filtro = "" Then
filtro = "consultaavista.Data Between #" & Format(Me!DataInicial, "mm/dd/yyyy") & "# AND #" & Format(Me!DataFinal, "mm/dd/yyyy") & "#"
Else
filtro = filtro & " AND consultaavista.Data Between #" & Format(Me!DataInicial, "mm/dd/yyyy") & "# AND #" & Format(Me!DataFinal, "mm/dd/yyyy") & "#"
End If
End If

DoCmd.OpenReport "RelatorioAvista", acViewPreview, , filtro
DoCmd.Maximize


Veja no anexo!

Isaias,


Muito obrigado, ajudou muito.


Fabio Pradella

O fórum agradece o retorno.

Isaias,


como faço para o relatorio abrir com aquela barra em cima aberta, imprimir, zoom, fechar ???

Fábio,

Neste caso faz necessario a criação de uma Ribbon para impressão,
depois da ribbon criada basta configurar o relatório para quando abrir carregar a ribbon de impressão.

Nas propriedades do relatório na guia "Outra"

Nome da Faixa de Opções "Informe o nome da ribbon criada para impressão"

Se não tiver o melhor Kit do mundo para montar Ribbons, entre no site

www.usandoaccess.com.br e adiquira o MontaRibbons ferramenta fantastica para criar suas ribbons personalizadas.

É, tenho estudado bastante neste site, usandoaccess mas ainda não parei para saber o que é uma ribbon, obrigado mais uma vez.

http://maximoaccess.forumeiros.com/t11724-montaribbons-v40-no-access-2007-2010-e-2013

Isaias bom dia,


Ja avancei bastante no projeto mas acabei esbarrando em mais uma dificuldade, gostaria que alem do resultado do filtro, o relatorio tambem mostrasse o Nome do cliente e o entre datas no cabeçalho do relatorio, achei que seria so digitar:

no evento report_open
Me!TxtCliente.Value = Form!frmAtendimentos.CboCliente

mas nao tive sucesso...

Obrigado

Fábio,

Não entendi muito bem sua pergunta...

Gostaria que ao imprimir o relatorio aparecesse tambem o nome do cliente e as datas inicial e final, criterios de filtragem do formulario.

o codigo esta assim mas so aparecem caracteres #Nome?...

=[Formulários]![FormulárioAVista]![CboCliente].[Valor]

Fábio,

Pelo que eu entendi deve ser isso que precisa... Veja!

Nas propriedades do relatório na aba "Evento" coloque o código na opção "Ao carregar" o seguinte código:

On Error Resume Next
Me!dtInicial.Caption = [Forms]![frmAtendimentos]![DataInicial]
Me!dtFinal.Caption = [Forms]![frmAtendimentos]![DataFinal]
Me!rotCliente.Caption = [Forms]![frmAtendimentos]![CboCliente]

Os valores só vão aparecer caso o relatório seja chamado pelo formulário.

Confira o anexo!

Quem sabe sabe, hahahahaha

e eu me matando com a textbox, aprendi mais uma Isaias,


Meu muito obrigado mais uma vez, voce tem sido de grande ajuda.
Espero um dia poder ser util aqui no forum como voces.

Abraços


Fabio Pradella

O fórum agradece o retorno.

Bom dia,


não ha memoria livre suficiente para atualizar a exibição. feche os programas desnecessarios e tente novamente. ( abre o relatorio em uma mini janela )

estou recebendo esta mensagem quando tempo imprimir o relatorio, fiz um teste criando outro arquivo so com a consulta , formulario e relatorio para ver se rodava, e assim abre normalmente, o que pode ser???

Fábio,

Veja se encontra uma solução nos links abaixo:

http://www.expertaccess.com.br/forumnew/forum_posts.asp?TID=11839&PN=2

http://maximoaccess.forumeiros.com/t8337-resolvidovisualizar-relatorio-quando-access-tiver-invisivel

Isaias,

Obrigado pelas dicas.

Boa tarde,

pelo código abaixo, o rotulo deveria ser preenchido com o nome do cliente que esta dentro do CboCliente, mas ao invés disto, ele me da o numero de registro do cliente...
para popular este comando, usei o assistente.


Me!rotCliente.Caption = [Forms]![frmAtendimentos]![CboCliente]


Alguém se habilita ???

Resolvido,


Para os leigos como eu...

Coluna Acoplada valor 2...