MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Imprimir txt somente linhas visiveis na tabela

    Compartilhe

    guma_cojogra
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 31/05/2013

    Imprimir txt somente linhas visiveis na tabela

    Mensagem  guma_cojogra em Sex 19 Set 2014, 18:53

    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
    avatar
    Mc Feba
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 30/05/2011

    Re: Imprimir txt somente linhas visiveis na tabela

    Mensagem  Mc Feba em Sex 19 Set 2014, 19:32

    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,


    .................................................................................
    Alexandro de Andrade
    SAP consultant
    VBA Developer
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Ter 27 Jun 2017, 18:16