[Resolvido]Imprimir consulta em caixa de listagem

Boa noite grandes mestres,

Preciso de ajuda.

Fiz um banco de dados Patrimônio e no opção "Responsável pelo Bem" elaborei uma consulta por nome do responsável pelo mesmo.
A consulta está funcionando perfeitamente.

A questão é:

- Como faço para imprimir esta consulta?
- Como faço para mandar este mesmo comando para gerar um relatório?

É só criar o relatório baseado na consulta.

Bom dia,

Assim você visualiza a consulta direto e como se fosse um relatório:

Private Sub Botao_Click()
DoCmd.OpenQuery "SuaConsulta", acViewPreview
End Sub

Assim você imprime direto na impressora padrão:

Private Sub Botao_Click()
DoCmd.SelectObject acQuery, "SuaConsulta", True
DoCmd.PrintOut
End Sub

Foi mau Críquio! Perdoe-me.

No problem

Segui suas instruções mas não consegui uma solução.

O que eu preciso é que os "dados" mostrados na Caixa de Listagem sejam impressos como estão sendo mostrados na Visualização da tela e ao mesmo tempo precisaria de um relatório identificando que àqueles bens referen-se aquele responsável.

Creio que seja um caso diferente do que tentou me mostrar pois a consulta é por um comando na caixa de combinação para mostrar os dados para uma simples consulta.

Envio novamente o banco com a tentativa de modificação.

edjunho, fiz aqui, porém tem um problema, meu servidor não permite fazer o upload, você pode me enviar um e-mail e eu te encaminho o arquivo de depois você coloca aqui?
lbarbosa@sanepar.com.br
abraço

Edjunhoscj@gmail.com

valeu leandro.

Obrigado Leandro, era isso que eu queria irmão.
Muito agradecido pela sua ajuda em nome do Fórum que é o máximo.

Até fiz algumas modificações a partir da sua brilhante idéia para chegar exatamente onde queria.
Precisava de um direcionamento na programação do banco.

Me ajudou muito.

Valeu.

Tá na benção.

Banco finalizado.