FUNCAO PARA IMPRIMIR ARQUIVO .BMP EM ARGOX

[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

[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.

[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

[marco.prodata]

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.

[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 ?

[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.