MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Gerar arquivos

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar arquivos Empty [Resolvido]Gerar arquivos

    Mensagem  msilveir em 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
    VIP
    VIP

    Respeito às Regras 50%

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

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

    Mensagem  crysostomo em 2/7/2019, 21:33

    Qual arquivos você quer gerar ?


    .................................................................................
    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 100%

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

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

    Mensagem  msilveir em 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
    VIP
    VIP

    Respeito às Regras 50%

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

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

    Mensagem  crysostomo em 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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  ARGONZALE em 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 6 vez(es)


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  msilveir em 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

      Data/hora atual: 8/7/2020, 04:54