Imprimir txt somente linhas visiveis na tabela

Boa tarde

estou usando o seguinte código para imprimir as linhas de uma tabela num arquivo texto, o problema é que existe linhas filtradas e eu queria que ele leva-se em consideração somente as linhas que estão visíveis. o código a seguir leva até mesmo as linhas ocultas. alguém sabe como posso modificar isto?

Obrigado.

Código:

Sub ExportarTXT()
    Dim v1 As String
    Dim Tbl As Recordset
    Dim Arquivo As String
    
    Set Tbl = CurrentDb.OpenRecordset("tabela")
    
    Arquivo = "C:\Temp\teste.txt"
    Open Arquivo For Output As #1
    
 
    Do Until Tbl.EOF
    
        
        v1 = Tbl!conteudo
      
        Print #1, v1
                        
        Tbl.MoveNext
    Loop
    
    Close
    
    MsgBox "Exportação Concluida"
    
End Sub

Boa Tarde ....

Já experimentou fazer uma consulta para pegar somente os dados q se deseja imprimir e criar o txt a partir desta cônsul ao invés de criar direto da tabela?
Pense nisso e resolverá fácil seu problema sem precisar mexer muito no código.


Abraços,