[Resolvido]Campo não imprime através do botão imprimir

bom dia todos.....
( que segunda feira complicada !!)

Colegas, tenho um problemão aqui comigo.

Criei umas tabelas ( óbito, eutanásia, atestado de saúde, autorização para cirurgias )....após isso, criei as consultas das mesmas baseadas nas tabelas.
Montei os formulários baseados nas tabelas e os relatórios baseados nas consultas criadas. O que tenho nos forms, tenho nas consultas e por seguinte mesmos campos nos relatórios.
Todas as tabelas tem as chaves primárias( codobito, codeutanasia, etc..etc..)

Bom, que acontece, todos os relatórios tem um filtro (Fonte de registro="obito consulta"
filtro = "codobito=forms!obito!codobito" e assim por diante para os outros relatórios )....

O que acontece, quando mando imprimir via botão /macro, não aparece nada de nada de dados algum, mas quando chamo o relatório via painel de controle e coloco o número do mesmo, por exemplo 3....eis que surge todos os dados.

Alguns dos colegas tem alguma ideia do que possa ser ?? pois eu já não tenho nenhuma mais.

Alguma luz no fim do túnel ?

Grato a todos desde já

Olá Silvio, bem vindo ao Fórum

Se eu entendi você tem uma tabela onde todos os óbitos são registrados ? Se sim você terá que localizar o registro do óbito e não o código do tipo de óbito. Caso você não possua essa tabela para guardar os óbitos crie uma e faça uma consulta acréscimo com as outras tabelas para preencher. Depois faça uma nova consulta para localizar o que precisa.

Uma pergunta: tem diferença quando você abre o relatório em modo Visualização e em modo Relatório?

Tem que ser feito com uma macro?

porque não assim num botão de comando:

Dim strDocName As String
Dim strFilter As String
strDocName = "NomeRelatório"
strFilter = "codobito= Forms!obito!codobito"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter

Senhores.....Sérgio, Criquio e Gerson, grato sou a vocês pelas respostas.

Não respondi antes devido a queda da minha internet ( telefônica ).

Bom vamos lá.

Criquio tem diferença sim, quando mando imprimir via botão/macro....não aparece nenhum campo preenchido ( nome, CPF, RG, Motivo óbito..etc..etc..) mas quando vou para o painel de controle e selecione esse relatório, ele me pede para inserir o número do relatório e eu coloco esse número e o relatório fica preenchido corretamente.

Mestre Sérgio, ao terminar de postar essas respostas, vou testar esse código ao qual o senhor está me passando.

Gerson, não fica muito confuso se eu seguir esse procedimento ?

Bem senhores amigos meus...deu erro.

Option Compare Database
Option Explicit

Private Sub Comando34_Click()
Dim strDocName As String
Dim strFilter As String
Dim cirurgia As Variant

strDocName = cirurgia
strFilter = CodCirurgia = Forms!cirurgia!CodCirurgia
DoCmd.OpenReport strDocName, acViewPreview, , strFilter
End Sub

Óbito, cirurgia, eutanasia...todos eles são iguais.

Procedi da seguinte maneira.....copiei o código do mestre Sérgio, mudei os nomes, declarei a variável que esta em negrito e deu a seguinte mensagem de erro:

erro em tempo de execução '2497'
O método ou ação requer o argumento nome do relatório

Bom e eu sinceramente não sei como colocar esse argumento.

Dim strDocName As String
Dim strFilter As String
strDocName = "NomeRelatório"
strFilter = "codobito= Forms!obito!codobito"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter

Mestre Sérgio, apenas uma questiuncula.....mantenho as aspas duplas " nos nomes ?

Amigo Silvio, chame-me sergio.só, mantenha tudo igual. No que está a bold insira o nome do seu relatório

Sérgio....ok...

uma última questão......para imprimir direto, sem preview ( acViewNormal) ....é só mudar para qual ? pois a imagem do relatório fica ao fundo e se der gostaria de mandar direto para impressora sem ver a imagem do mesmo ao fundo ?

acViewNormal

Sérgio, tens toda a razão, foi uma mancada minha aqui.

Estou a alterar todos os meus formulários onde estão as macros pelo código, até o momentos já fiz testes em 2 deles e funciona perfeitamente.

Portanto, dou por encerrado mais esse tópico de ajuda.

Grato mesmo, a todos os envolvidos.

' cada vez mais, estou a crescer em conhecimento com vocês, muito obrigado mesmo '

Vamos lá você diz painel de controle ? Isso siguinifica Barra de menus certo ?
Os relatórios foram criados baseados em dados de consultas (uma para cada relatório) já com os filtros necessários certo ? ou existe parametros?
Ao abrir os relatórios na guia de relatórios é impresso o que está na tela, por isso não haveria necessidade de botao de comando. Poste o Bd para podermos visualizar.
Gerson

Bom trabalho meu amigo

Amigo Gerson, o assunto está resolvido.

Sérgio, gostaria eu de postar esse BD feito em Acess 2007 para que todos possam ver e melhorar ele com idéias ou até mesmo usá-lo....como posso fazer isso ?

basta coloca-lo no repositóro.S tiver dificuldades, envie para o meu email que eu coloco aqui

Sérgio, terá que ser por teu mail, pois aqui me diz que tenho apenas 103kb disponíveis.

Sem problema

sergiovieirasoft@gmail.com

Silvio, vá ao repositório e altere os dados.