- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- código de barras em impressão PSAY
×
Linguagem de Programação ADVPL
Perguntas código de barras em impressão PSAY
- alyson
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 118
- Obrigados Recebidos: 1
10 anos 3 meses atrás #24250
por alyson
código de barras em impressão PSAY foi criado por alyson
Boa tarde tenho um relatório todo escrito com a função PSAY,
preciso adicionar um código de barras mas não funciona já vi vários exemplos q não funciona alguém tem algum
exemplo de como fazer?
Local oPr
oPr := ReturnPrtObj()
@1 ,001 PSAY 'Codigo 128 subset A'
MSBAR("CODE128", 3 , 1 ,"12345678901" ,oPr,NIL,NIL,NIL,NIL,NIL,NIL,NIL,"A")
preciso adicionar um código de barras mas não funciona já vi vários exemplos q não funciona alguém tem algum
exemplo de como fazer?
Local oPr
oPr := ReturnPrtObj()
@1 ,001 PSAY 'Codigo 128 subset A'
MSBAR("CODE128", 3 , 1 ,"12345678901" ,oPr,NIL,NIL,NIL,NIL,NIL,NIL,NIL,"A")
Por favor Acessar ou Registrar para participar da conversa.
- Darkbeo
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 33
- Obrigados Recebidos: 0
10 anos 3 meses atrás #24252
por Darkbeo
Respondido por Darkbeo no tópico código de barras em impressão PSAY
Boa Tarde,
Aqui na empresa a impressão era realizada através do oPrint:say e MSBAR, porém recentemente troquei para MSCBSAY e MSCBSAYBAR para poder realizar a impressão direto pela porta LPT1 com a impressão Térmica da Zebra.
Segue um exemplo da linha de impressão de como estava anteriormente
Espero que isso ajude em algo.
Aqui na empresa a impressão era realizada através do oPrint:say e MSBAR, porém recentemente troquei para MSCBSAY e MSCBSAYBAR para poder realizar a impressão direto pela porta LPT1 com a impressão Térmica da Zebra.
Segue um exemplo da linha de impressão de como estava anteriormente
// Prepara para a primeira impressão
If !lFirst
lFirst := .T.
oPrint := TMSPrinter():New("Montando Etiqueta de Embalagem...")
oBrush := TBrush():New("",255*255*255)
If !oPrint:Setup() .or. !oPrint:IsPrinterActive()
Alert("Selecione a impressora padrao.")
return(.f.)
Endif
Endif
oPrint:StartPage()
....
Outros Comandos
....
MSBAR2("EAN13", nTam1CB, nAlt1CB, cCBar1, oprint, .T.,,.T.,0.015,1.2,.t., cLetra, NIL, .F.) // Etiqueta
MSBAR("CODE3_9", nTam3CB, nAlt3CB, cCBar3, oprint, .F.,,.T.,0.015,0.3,.F., NIL, NIL, .F.)
....
Outros Comandos
....
oPrint:EndPage()Espero que isso ajude em algo.
Por favor Acessar ou Registrar para participar da conversa.
- alyson
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 118
- Obrigados Recebidos: 1
10 anos 3 meses atrás - 10 anos 3 meses atrás #24255
por alyson
Respondido por alyson no tópico código de barras em impressão PSAY
Valeu amigo utilizo dessa forma pra boleto, e precisaria mudar a rotina inteira para esse padrão,esse fonte ta bem antigo.
Ultima edição: 10 anos 3 meses atrás por alyson.
Por favor Acessar ou Registrar para participar da conversa.
- admin
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 216
- Obrigados Recebidos: 0
10 anos 3 meses atrás #24256
por admin
Respondido por admin no tópico código de barras em impressão PSAY
Alyson boa noite, a impressão de código de barras realmente só vai funcionar no objeto tmsprinter ou seja, relatório gráfico.
Realmente vai precisar mudar o seu relatório para este formato.
Abraços.
Precisando chama nóis.
Realmente vai precisar mudar o seu relatório para este formato.
Abraços.
Precisando chama nóis.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- código de barras em impressão PSAY
Tempo para a criação da página:0.110 segundos