MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    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: Sab 03 Dez 2016, 02:22