[Resolvido]Impressão direta de um Formulario

Bom dia, estou com um problema quando a impressão do meu relátorio. Eu inclui um registro na tela e gostaria de imprimir direto. Detalhe o relatorio em montado em cima de uma consulta.

Será que alguem pode me ajudar.

Como estou usando o Codigo
Private Sub Impressao_Click()
On Error Resume Next
DoCmd.OpenReport "Ticket Balanca_E", acPreview, "", ""
DoCmd.Close acForm, "F_MovimentacaoBalanca_E" ' Esta linha de código é para fechar o formulário ativo
DoCmd.RunCommand acCmdPrint
End Sub

bom dia tente esse

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "vendas"
strFilter = "ID= Forms!nomeformulario!ID"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
DoCmd.Close acForm, "nomeformlario"

Bom dia, Leam

Eu tentei o seu exemplo, mas gostaria que o sistema imprima o registro selecionado na tela, sem a pergunta de qual é o ID

tem como vc mandar par mim para ver

meu email
diego-armando-007@hotmail.com

Já encaminhe para seu Email.

Valeu, Obrigado pela ajuda

Ele está a perguntar o ID, porque a sua chave primária é outra, pode ter o nome de código, por exemplo.

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "NomedoRelatório"
strFilter = "Chaveprimária= Forms!nomeformulario!Chaveprimária"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
DoCmd.Close acForm, "nomeformlario"

seu bd nao ta brindo aqui no meu!!!

Amigos não conseguem ler os tópicos direito?

Evandrolima...leu o que postei acima????

Ele está a perguntar o ID, porque a sua chave primária é outra, pode ter o nome de código, por exemplo.

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "NomedoRelatório"
strFilter = "Chaveprimária= Forms!nomeformulario!Chaveprimária"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
DoCmd.Close acForm, "nomeformlario"

Desculpe, mas só agora retornei ao trabalho.

Amigo Viera, eu consegui enteder o que o Leam me passou, mas o que eu preciso que o sistema não pergunte qual é o registro que deve ser impresso e sim pegar o registro que está na tela.

Amigo;

O Código que o Leam lhe passou está certo. Se lhe pergunta é porque algo está mal nessa BD ou os dados estão a vir de uma consulta. Mande isso para mim

sergiovieirasoft@gmail.com

Posso mandar em Access 2010 (accdb)

foi esse arquivo que tava faltando
que nao abriu aqui
accdb

Mandei o arquivo em Access 2003

Ok, já recebi e vou ver

Se for este o formulário,(F_MovimentacaoBalanca_E) vai directo para impressão e não pede nenhum parâmetro???

Veja agora

http://dl.dropbox.com/u/8157744/Impress%C3%A3o%20Forum.rar

Ok, Viera

Mas eu precisava imprimir o resgistro que está atual na tela.

Então é simples; substitui-a a seguinte linha que está em negrito.:

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "Relatorio_Dica_Atual"
strFilter = "NTicket_MB= Forms!F_MovimentacaoBalanca_E!NTicket_MB"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter

ou seja, copie a linha em negrito e substituir no seu módulo

Funcionou perfeito Viera.

Só mais uma duvida como posso fazer para salvar e imprimir duas por vez e mostrar o preview na tela.

http://dl.dropbox.com/u/8157744/Impress%C3%A3o%20Forum.rar

Ou mandamos imprimir directo ou queremos ver na tela

Ok, ficou tudo certo.

Obrigado pelas dicas

Um abraço e bom trabalho