[Resolvido]Imprimir relatorio após filtro

Bom dia pessoal! Estou com dificuldade de imprimir "Filtro" após a filtragem

- tabela "SubServicoEmpresa";
- consulta "consultaavista";
- form "FormGeral".

No filtro contém:

- Pesquisa da empresa (DataInicial e DataFinal).

Códigos:

Filtros:
Private Sub btFiltrar_Click()

Dim filtro As String
If Len(Me!CboCliente & "") > 0 Then filtro = "Empresa = '" & CboCliente.Column(0) & "'"
If Len(Me!datainicial & "") > 0 And Len(Me!datafinal & "") > 0 Then
If filtro = "" Then
filtro = "consultaavista.DataAtendimento Between #" & Format(Me!datainicial, "mm/dd/yyyy") & "# AND #" & Format(Me!datafinal, "mm/dd/yyyy") & "#"
Else
filtro = filtro & " AND consultaavista.DataAtendimento Between #" & Format(Me!datainicial, "mm/dd/yyyy") & "# AND #" & Format(Me!datafinal, "mm/dd/yyyy") & "#"
End If
End If

sfrmConsulta.Form.Filter = filtro
sfrmConsulta.Form.FilterOn = True

End Sub
----------------------------------------------------------------------------------------------------------------------------
Impressão:
Private Sub btImprimir_Click()
Dim j As Boolean, filtro As String
If IsNull(Me!CboCliente) Then j = True
If IsNull(Me!datainicial) Then j = True
If IsNull(Me!datafinal) Then j = True
If j = True Then
MsgBox "Preencha as datas...", vbInformation, "Aviso"
Me!CboCliente.SetFocus
Exit Sub
End If
filtro = "Empresa = " & CboCliente.Column(0)
filtro = filtro & " AND RelatorioAVista" dá erro nesta parte
DoCmd.OpenReport "RelatorioAVista", acViewPreview, , filtro
DoCmd.Maximize

End Sub

--------------------------------------------------------------------------------------------------------------------
Conto com a colaboração para resolver esse código.
Só me falta este item pra por o sistema a rodar.

Aguardo e bom dia a todos.

Boa tarde,
Corrija a sua participação no fórum, de forma a manter quer a organização do fórum quer o respeito pelos que o ajudam.
1 - Não repita as dúvidas
http://maximoaccess.forumeiros.com/t13119-imprimir-filtro
é a mesma dúvida da presente
2 - Responda às ajudas que lhe dão, mesmo que não funcionem
http://maximoaccess.forumeiros.com/t12782-filtro-de-tabela#98584
http://maximoaccess.forumeiros.com/t11712-numerar-linhas-do-sub-formulario-folha-de-dados#91710
http://maximoaccess.forumeiros.com/t10200-resolvidohiperlink-para-arquivo-em-uma-pasta-meus-documento#81490
http://maximoaccess.forumeiros.com/t9916-resolvidolembretes-no-access-2007#79231