[Resolvido]Imprimir 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,
CboCliente.Column(0) devolve a Empresa, dados tipo número?
RelatorioAVista é campo Sim/Não?
Se as respostas forem verdadeiras, deveria abrir o relatório

Alexandre!

Obrigado pelo retorno.

CboCliente.Column(0) devolve a Empresa, dados tipo número? Ok é isso
RelatorioAVista é campo Sim/Não? RelatorioAVista é o nome do relatório.

Já tentei outros códigos tipo de impressão direta e pdf, mas nada resolveu

Açs

Então
substitua
filtro = "Empresa = " & CboCliente.Column(0)
filtro = filtro & " AND RelatorioAVista" dá erro nesta parte
DoCmd.OpenReport "RelatorioAVista", acViewPreview, , filtro
por
DoCmd.OpenReport "RelatorioAVista", acViewPreview, , "Empresa = " & CboCliente.Column(0)

veja o outro tema que lhe respondi

Ainda não deu

Agora ele me pede "parâmetro" da empresa, após incluir o código que vc enviou.

Att

Fabiano

Alexandre!

Segue meu e-mail, se quiseres te mando o arquivo via e-mail pra vc avaliar o projeto

fabianobilo2000@yahoo.com.br

Pode enviar teste que respondo com o arquivo. blz?

Aguardo