Página 1 de 1
FUNCAO PARA IMPRIMIR ARQUIVO .BMP EM ARGOX
Enviado: 16 Ago 2023 20:09
por rosalvo rosa
Caros amigos,
Na função abaixo, estou tentando imprimir na ARGOX OS214 o arquivo FILEBMP (arquivo de imagem), mas não estou conseguindo.
Alguém poderia me dizer como fazer ?
***************************************************
Func PrnImagem(FILEBMP,cPrinter)
Local Inicia,cCab
SET ALTERNATE TO ETIQUETA.PRN
SET ALTERNATE ON
Inicia:=.T.
cCab:=CHR(2)+"KI7"+CHR(13)+CHR(10)+CHR(2)+"C0100"+CHR(13)+CHR(10)+CHR(2)+"L"+CHR(13)+CHR(10)+CHR(2)+"D11"
?? cCab
? "N"+CHR(13)+CHR(10) // Clear Image Buffer in Printer
? "1Y1104000550050FILEBMP"
? "Q"+ StrZero(1,4)
? "E"
Inicia:=.F.
SET ALTERNATE OFF
SET ALTERNATE TO
PrintFileRaw(cPrinter, "ETIQUETA.PRN", "Arquivo de etiquetas")
RETURN NIL
***************************************************
Desde já agradeço
FUNCAO PARA IMPRIMIR ARQUIVO .BMP EM ARGOX
Enviado: 16 Ago 2023 20:27
por Itamar M. Lins Jr.
Olá!
Use o programa que vem e pede para imprimir em arquivo e veja como é.
É assim que fiz.
Desenha a etiqueta no programa da argox e imprime em arquivo.
Saudações,
Itamar M. Lins Jr.
FUNCAO PARA IMPRIMIR ARQUIVO .BMP EM ARGOX
Enviado: 17 Ago 2023 09:57
por rosalvo rosa
Bom dia,
fiquei sem entender direito como seria o processo...
Itamar, você poderia ser mais didático, até mesmo para pesquisas futuras aqui no fórum, porque eu mesmo pesquisei e não encontrei nenhum código que pudesse
usar como modelo.
Se puder ajudar agradeço
FUNCAO PARA IMPRIMIR ARQUIVO .BMP EM ARGOX
Enviado: 17 Ago 2023 10:09
por marco.prodata
rosalvo rosa escreveu:Bom dia,
fiquei sem entender direito como seria o processo...
Itamar, você poderia ser mais didático, até mesmo para pesquisas futuras aqui no fórum, porque eu mesmo pesquisei e não encontrei nenhum código que pudesse
usar como modelo.
Se puder ajudar agradeço
Geralmente vc precisa carregar pra memória dela a imagem, e não passar o nome do arquivo, ela não vai conseguir ler no hd do computador o arquivo, a imagem é carregada pra impressora de forma binaria, ai como o Itamar disse, eu fiz isso também quando precisei, baixei o programa da própria impressora e desenhei uma etiqueta adicionando o arquivo, ai tinha uma opção que gerava um arquivo .prn, com os códigos que o programa usa pra imprimir, no caso, simplesmente copiei esses códigos e adicionei na minha aplicação e depois personalizei o resto que precisava.
FUNCAO PARA IMPRIMIR ARQUIVO .BMP EM ARGOX
Enviado: 17 Ago 2023 11:03
por rosalvo rosa
Ok, mas teria como me mostrar o comando para carregar na memória da impressora ? E o desenho da etiqueta que você fez, qual seria o formato do arquivo ? Pode ser .BMP ?
FUNCAO PARA IMPRIMIR ARQUIVO .BMP EM ARGOX
Enviado: 17 Ago 2023 11:12
por Itamar M. Lins Jr.
Olá!
encontrei nenhum código que pudesse
usar como modelo.
São milhares de opções...
Tem uma fininha para colocar no óculos por exemplo.
O PROGRAMA que vem junto ou baixa no site.
Eu não lembro mais o nome. Tem no manual o local do drive e do software para confecção de qualquer modelo que a impressora suporta.
Código: Selecionar todos
*******************************
Function EtiquetaIncluirModeloC //Óticas
*******************************
*
*
Incluir("etq")
etq->modelo := "003"; etq->comando := 'Chr(2) + "L" '
Incluir("etq")
etq->modelo := "003"; etq->comando := '"H" + ' + 'ltrim(str(nTemp,2)) '
Incluir("etq")
etq->modelo := "003"; etq->comando := '"D11" '
Incluir("etq")
etq->modelo := "003"; etq->comando := '"PD" '
Incluir("etq")
etq->modelo := "003"; etq->comando := '"112200000000008->" ' + ' + rtrim(eq->modelo)+rtrim(eq->cor)+rtrim(eq->tamanho) '
Incluir("etq")
etq->modelo := "003"; etq->comando := '"112200000000130" ' + ' + SubStr(em->empresa,1,16) '
Incluir("etq")
etq->modelo := "003"; etq->comando := '"112200000200008->" ' + ' + eq->cod_mercad '
Incluir("etq")
etq->modelo := "003"; etq->comando := '"112200000200130$:" ' + ' + alltrim(transform(round(eq->avista,2),"@e9999,999.99")) '
Incluir("etq")
etq->modelo := "003"; etq->comando := '"Q" ' + ' + IIF(lQtd,alltrim(str(eq->etiquetas,3)),alltrim(str(nQtd,3))) '
Incluir("etq")
etq->modelo := "003"; etq->comando := '"E" '
Return Nil
*******************************
Function EtiquetaIncluirModeloD //Roupas até 3 vias
*******************************
*
*
Incluir("etq")
etq->modelo := "004"; etq->comando := 'n'
Incluir("etq")
etq->modelo := "004"; etq->comando := 'M0641'
Incluir("etq")
etq->modelo := "004"; etq->comando := 'O0220'
Incluir("etq")
etq->modelo := "004"; etq->comando := 'V0'
Incluir("etq")
etq->modelo := "004"; etq->comando := 'f220'
Incluir("etq")
etq->modelo := "004"; etq->comando := 'D'
Incluir("etq")
etq->modelo := "004"; etq->comando := 'L'
Incluir("etq")
etq->modelo := "004"; etq->comando := 'D11'
Incluir("etq")
etq->modelo := "004"; etq->comando := 'A2'
return .t.
Vai depender de vc fazer tudo antes e imprimir para arquivo, depois vc copia e cola no seu .prg e programa a parte que muda.
Saudações,
Itamar M. Lins Jr.