MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Gerar arquivos

    avatar
    msilveir
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 391
    Registrado : 13/03/2011

    [Resolvido]Gerar arquivos Empty [Resolvido]Gerar arquivos

    Mensagem  msilveir 2/7/2019, 21:25

    ola Pessoal

    tenho esse código abaixo , ele gerar um arquivo solicita.txt eu gostaria de gerar varios arquivos
    exemplo solicita1,solicita2,solicita3 e assim por diante no mesmo diretorio

    Código:
    Open "c:\Temp\Solicita.txt" For Output As #1

    Print #1, Me.txt1
    Print #1, Me.txt2
    Print #1, Me.txt3
    Print #1, Me.txt4
    Print #1, Me.txt5;
    Print #1, Me.txt6; Me.Filial; Me.txt7
    Print #1, Me.txt8
    Print #1, Me.txt9; Me.txtNumeroNota; Me.txt10
    Print #1, Me.txt11; Me.txtRampa; Me.txt12
    Print #1, Me.txt13
    Print #1, Me.txt14
    Print #1, Me.txt15
    Print #1, Me.txt16
    Print #1, Me.txt17
    Print #1, Me.txt18
    Print #1, Me.txt19; Me.txtVolumes; Me.txt20
    Print #1, Me.txt21; Me.txtVolumes; Me.txt22

    MsgBox "Arquivo Gerado com sucesso!", vbInformation, "Gerado com Sucesso"

    Close #1

    Shell "c:\imprimirsolicita.bat", vbNormalFocus
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]Gerar arquivos Empty Re: [Resolvido]Gerar arquivos

    Mensagem  crysostomo 2/7/2019, 21:33

    Qual arquivos você quer gerar ?


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    msilveir
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 391
    Registrado : 13/03/2011

    [Resolvido]Gerar arquivos Empty Re: [Resolvido]Gerar arquivos

    Mensagem  msilveir 3/7/2019, 12:38

    ola crysostomo

    nos txt1 e txt2 e assim por diante nos outros txt são valores fixos como padrao
    para gerar uma etiqueta na zebra abaixo seria o codigo que gera

    ele gerar o arquivo solicita.txt com o conteudo abaixo
    como falei eu gostaria de gerar o primeiro solicita.txt
    depois os outros

    segue codigo
    CT~~CD,~CC^~CT~
    ^XA
    ^PW799
    ^FT559,186^A0N,39,38^SN001,1,Y^FS
    ^FT23,82^A0N,62,62^FH\^FDFilial^FS^FT35,218^A0N,62,62^FH\^FD 13 ^FS
    ^FT169,161^A0N,45,45^FH\^FDRampa^FS
    ^FT173,236^A0N,45,45^FH\^FD456123^FS
    ^FT333,161^A0N,45,45^FH\^FDM 13-14^FS
    ^FO153,105^GB634,205,4^FS
    ^FO14,106^GB143,204,4^FS
    ^FO153,13^GB634,97,4^FS
    ^FO14,13^GB143,96,4^FS
    ^FT168,85^A0N,59,160^FH\^FDSOLICITA^FS
    ^FT597,136^A0N,25,24^FH\^FDVolumes^FS
    ^FT624,186^A0N,36,38^FH\^FD/ 1 ^FS
    ^PQ 1 ,0,1,Y^XZ
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]Gerar arquivos Empty Re: [Resolvido]Gerar arquivos

    Mensagem  crysostomo 3/7/2019, 12:43

    Bom dia , tenho um arquivo aqui que gera etiqueta, mas fico te devendo , pois desconheço desse jeito.
    Vamos esperar um de nossos amigos aí.
    Abçs


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 21/05/2015

    [Resolvido]Gerar arquivos Empty Re: [Resolvido]Gerar arquivos

    Mensagem  ARGONZALE 3/7/2019, 15:58

    Bom dia,

    Tenho este aquivo que gera etiquetas para impressora Zebra.

    Veja se te ajuda:

    Anexos
    [Resolvido]Gerar arquivos AttachmentVolumes de Etiquetas_OLD_OLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (177 Kb) Baixado 14 vez(es)


    .................................................................................
    Att.

    Alexandre Gonzales
    avatar
    msilveir
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 391
    Registrado : 13/03/2011

    [Resolvido]Gerar arquivos Empty Re: [Resolvido]Gerar arquivos

    Mensagem  msilveir 15/7/2019, 23:43

    Ola Pessoal

    Apos falar com cliente ele desistiu de ter vários arquivos de etiquetas e ficou com uma arquivo só.

    muito obrigado a todos que me ajudaram nesse tópico

    Conteúdo patrocinado


    [Resolvido]Gerar arquivos Empty Re: [Resolvido]Gerar arquivos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 06:48