[Resolvido]Impressão de Relatório

Oi pessoal, estou mais uma vez recorrendo a ajuda dos mestres, estou tentando imprimir um relátorio e não sai nada, tenho este código que o Criquio e o David, me ajudaram a montar.
Eu preciso imprimir o cliênte atual de um formulário onde é gerado no relatório, não sei se tem que por como pagina atual, não estou conseguindo segue o código:

Private Sub Comando9_Click()
On Error GoTo Err_Comando9_Click
Me.Refresh

Dim stDocName As String

stDocName = "rtlIsento"
'DoCmd.OpenReport stDocName, acPreview '\\\\\\\\\\somente para abri
'DoCmd.OpenReport "rtlIsento", acViewPreview, , "[CodigoControle] ='" & Me.[CodigoControle] & "'"
Msg = MsgBox("Deseja imprimir? Clique em Sim para imprimir ou Não para visualizar", vbYesNoCancel + vbQuestion, "Opções")

Select Case Msg
Case vbYes
DoCmd.OpenReport "rtlIsento", acViewNormal, , "[CodigoControle] ='" & Me.[CodigoControle] & "'"
Case vbNo
DoCmd.OpenReport "rtlIsento", acViewPreview, , "[CodigoControle] ='" & Me.[CodigoControle] & "'"
Case Else

End Select


Exit_Comando9_Click:
Exit Sub

Err_Comando9_Click:
MsgBox Err.Description
Resume Exit_Comando9_Click

End Sub

Desde já agradeço

Olá, voce está retirando os apóstrofos das instruções e pondo os nomes corretos dos seus controles?

Bom dia Colega

Se é para abrir o Relatório actual na tela, não entendo o porquê de tanta confusão, mas parece bem simples:

1- Um botão de comando

2- No evento Click()

O Código:

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "NomedoRelatório"
strFilter = "Chaveprimária= Forms!NomedoFormulário!Chaveprimária"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter

Vieira, acho que o código que ela está usando é apenas copiado de outro comando. Só que a isntrução que imprime o registro atual está como um comentário.
Pois o código acima foi para uma outra necessidade da amiga. Acho que ela não está mudando o nome dos controles e nem tirando os apóstrofos da seguinte linha: 'DoCmd.OpenReport "rtlIsento", acViewPreview, , "[CodigoControle] ='" & Me.[CodigoControle] & "'"

Acredito que basta usar algo assim:

Dim Msg As String

Msg = MsgBox("Deseja imprimir? Clique em Sim para imprimir ou Não para visualizar", vbYesNoCancel + vbQuestion, "Opções")

Select Case Msg
Case vbYes
DoCmd.OpenReport "rtlIsento", acViewNormal, , "[CodigoControle] ='" & Me.[CodigoControle] & "'"
Case vbNo
DoCmd.OpenReport "rtlIsento", acViewPreview, , "[CodigoControle] ='" & Me.[CodigoControle] & "'"
Case Else

End Select

A meu ver, essas linhas bastam.

É verdade criquio, realmente essas linhas devem serem suficientes...

Olá meus amigos, desculpe o sumiço pois tive uns problemas de saúde.
A respeito de minhas duvidas sobre a impressão do relatório, é o seguine:

este código que estou usando foi os amigos Criquio e David que fizeram para mim, quanto aos comentário e so apóstrofo desculpem eu comentei no meu bd para saber como funciona, mas está funcionando pefeitamente. O meu problema é o seguinte quando peço para imprimir o registro atual ele abre o relatório e funciona certinho, só que não sei por que cargas d'agua, ele imprime três folhas antes de imprimir o que quero, sai parte de uma moldura que coloquei em uma pagina, o que gostaria é que fosse como igual ao word por exemplo imprimir pagina atual, tem como? não sei se fui muito clara espero que entendam, só falta isso para funcionar certinho. Obrigada novamente

Seria interessante voce postar o seu bd para analizarmos com mais precisão...

Saúde para voce!!

Olá.. se está aparecendo folhas a mais.. sendo que o relatorio é filtrado, deve ser porque os controles que iseriu está passando da largura da página válida para a impressão.. se ele (relatório) estiver maior na largura ele tende a imprimir o espaço que sobra em outras páginas. Por isso ela sai com a parte da moldura...

Esperimente diminuir o reltório na largura. Deve resolver

Saudações

Bom dia, Amigos,

Como faço para meu relatório ser exibido já com 100% do zoom ao invés de 48% como está acontecendo. E como faço para que o relatório já exibido nele mesmo tenha uma opção para mandar para a impressora.

Atenciosamente,

Adilson

Qual access esta usando?

Boa tarde,

Estou usando o Access 2007 e o zoom do relatório está em 48% e gostaria de exibi-lo sempre em 100%. Como faço?

ADilson

Leia o post do Mestre João Paulo acima amigão...

Saudações

Boa tarde,

O Que o meestre Paulo fez colocar um botão, eu preciso que seja já quando o relatório abre ele por si só esteja no zoom 100% e maximizado. Entende?

Adilson

Dá pra fazer isso em uma macro.. creio que tem a opção de zoom ...

Já tentei por macro não dá, não tem a opção zoom, mas valeu vou tentar algo até dar certo e informo

Tento como na sugestão do Meste JP colocá-lo no evento ao abrir do form.. diretamente, sem ser ao click de um botão....