[Resolvido]imprimir dados atuais

Ola pessoal tenho um formulario folha dados filtrado por um campo combo
como faço para imprimir somente aqueles dados fitrados?

tem que criar um relatorio para imprimir esses dados
relatorio com os dados deste formulario

e depois no botão imprimir
ao clicar coloque:

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "nome do relatorio"
strFilter = "ID= Forms!nome do formulario!ID"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
DoCmd.Close acForm, "nome do formulario"

como faço para chamar este relatorio

voçe ja criou o form?

se já

vai em criar e depois assistente
relatorio e la voçe escolhe o seu form
que quer imprimir

Veja se pode ,me ajudar
http://www.speedyshare.com/files/28433629/agravina11.accdb

mande para meu email

e diga qual form que para imprimir

email diego-armando-007@hotmail.com

mande o bd tambem que nao estou coseguindo baixar

Mandei Zipado

ok recebie

ai voçe que que imprima todos que tem na lista?

Aqueles depois de filtrado exemplo
fornecedor valdir
vai aparecer dois itens quero que imprima somente estes dois itens

vou ver aqui se consigo

para imprimri tudo ja fiz

agora so o selecionado

vou tentar

os id nao batem bem (para relacionarem para imprimir somente o selecionado)

tinha que ter um

ex:

Artigo
detalhe do artigo

como fazer vc sabe

essa parte so meio ruim estamos no emso nivel em

agora nao entendie seu bd

para que voçe vai usalo?

qual seu projeto

eu ajustei ele aqui o formulario para imprimir

ta bem mas legal padronizado agora eu nao sei porque ao ta imprimindo
so o selecionado

vou tentar mas uma vez se nao der
mando ele de volta modficado o relatorio

e form mas bonito ok

certo fico no aguardo

Enviarei para seu email

nao coseguie imprimir so o selecionado por causa dos relacionamentos

mas deichi um botão personalisado para imprimir

ajustei seu form com visual mas agradavel

e seu sob formulario

sem seletores de registros

de um olhada ai

Valeu mas vou manter o topico aberto,mestre criquio talves possa me ajudar

sim mantenha ele pos nao foi resolvido por completo

obrigado

voçe viu as modificações

depois mude a cor para a sua preferencia

Bom Dia Alexandre, veja o simples;

http://dl.dropbox.com/u/771097/agravina11_OLD.rar

É Isso JPaulo, simples para quem sabe tudo e mais um pouco !
Obrigado!

Obrigado pelo retorno o fórum agradece.

JPaulo só mais uma duvida se eu quizer imprimir direto sem abrir o relatorio mandar direto impressora como faço?

É só mudar a instrução do botão de:

DoCmd.OpenReport "Artigo Consulta", acViewPreview, "", "", acNormal

Para:

DoCmd.OpenReport "Artigo Consulta", acViewNormal, "", "", acNormal

certo vou fazer la Obrigado

Fico Feliz pelo mesmtre JP ter resolvido
para impriimir so selecionado

bom trabalhp