[Resolvido]imprimir Relatório dentro de um Formulário com Sub-Formulário

Obrigada pela atenção, novamente. Gostaria de ajuda para solucionar problema com código abaixo. Possui um Formulário com Sub-Formulário que filtra os dados pelo Código funcionando corretamente. Para imprimir o respectivo relatório, criei um relatório com subrelatório: consCadCorresp.
Já coloquei no botão imprimir, o código abaixo, porém, ao clicar o sistema não mostra os dados sozinho, ou seja, solicita o código para então filtrar.

Private Sub cmdImprimir_Click()

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "consCadCorresp"
strFilter = "CodCorresp= Forms!consTramitLocal!CodigoCorresp"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter

End Sub

Legenda:
consCadCorresp = nome do Relatório
CodCorresp - ID do Formulário Principal
consTramitLocal = nome da Consulta do Sub-Formulário
CodigoCorresp = ID que liga o Sub ao Formulário Principal.

Obrigada

Bom dia...

No modo design do teu relatório, folha de propriedades, aba dados ..veja se está habilitado o campo Filtro, se não estiver, coloque-o

Obrigada pela atenção. O Filtro está como:

CodCorresp= Forms!consTramitLocal!CodigoCorresp

Não está funcionando. O botão para a impressão está no Formulário Principal com a configuração abaixo. Quando clico no botão, aparece a mensagem de Inserir valor do parâmetro: Formulários!consTramitLocal!CodigoCorresp

Private Sub cmdImprimir_Click()

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "consCadCorresp"

strFilter = "CodCorresp= Forms!consTramitLocal!CodigoCorresp"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter

End Sub

Obrigada

eu escreveu:No modo design do teu relatório, folha de propriedades, aba dados ..veja se está habilitado o campo Filtro, se não estiver, coloque-o cmo sim.

Fabiana........releia a minha mensagem anterior.

Desculpe, mas ainda não estou conseguindo corrigir o problema da mensagem no botão imprimir do Formulário. Os campos filtrar ao Carregar,Ordenar ao Carregar e Permitir Filtro, estão como Sim, no Relatório.
Já alterei o campo filtro de: CodCorresp= Forms!consTramitLocal!CodigoCorresp para: Sim e também não funcionou.

Obrigada.

Ok, vamos por partes então..


no botão de impressão, eis o código:

Código:

Private Sub bt_imprimir_Click()
Dim strDocName As String
Dim strFilter As String
strDocName = "rptoservico" ' nome do relatorio
strFilter = "IDOservico=forms!ordservico!IDOservico" 'filtro aplicado no relatorio
'onde= idoserviço é a chave primária da tabela onde esta criado o formulário
'onde = forms!ordeservico = é o formulário em questão.
DoCmd.OpenReport strDocName, acViewNormal, , strFilter

Após isso, na estrutura do relatório, no modo desing, folha de propriedades, aba dados:

filtro: IDOservico=forms!ordservico!IDOservico
filtrar ao carregar: sim


Mude os campos na instrução acima para os teus.

Qualquer coisa, de um grito !!

Abraços.

Obrigada. Deu certo!!!

O fórum agradece o retorno. Bom fim de semana.