[Resolvido] Imprimir imagem em Argox Os 214

[Patrique Santos 0]

Olá, Sou novo por aqui

 

Bom, estou desenvolvendo uma rotina de impressões de etiquetas em uma Argox Os214, já está imprimindo textos e códigos de barras, porém parei na questão de imagens.

 

Como estou imprimindo direto na lpt1. Teria q carregar a imagem na memória da impressora? como faço o controle via código PPLA?

 

Grato..

[Claudio Neto 3]

Olá Patrique. Seja bem vindo ao fórum.

 

Pode postar uma parte do seu código que está usando para imprimir textos? Para vermos como está fazendo hoje.

 

Obrigado.

[Patrique Santos 0]

Olá Claudio, Obrigado

 

Estou imprimindo textos e códigos de barras dessa maneira:

 

Open "lpt1" For Output As #1
Print #1, Chr(2) + "m"	  
Print #1, Chr(2) + "KI7" + Chr$(1)
Print #1, Chr(2) + "M0100"		 
Print #1, Chr(2) + "e"				 
Print #1, Chr(2) + "L"				 
Print #1, "D11"						  
Print #1, "150000004000020" & titulo 
Print #1, "150000004000020" & titulo 
Print #1, "120000003600050" & linha(1)
Print #1, "120000003200050" & linha(2)	   
Print #1, "120000002800050" & linha(3)	   
Print #1, "120000002400050" & linha(4)	   
Print #1, "120000002000050" & linha(5)	   
Print #1, "120000001600050" & linha(6)	   
Print #1, "1A0013000020280PA" & inicio_barra 
Print #1, "+10"								
Print #1, "Q" & Format(qtd_etiquetas, "0000") 
Print #1, "J"								 
Print #1, "E"								
Close #1

Funciona corretamente, o problema é que gostaria de imprimir imagens tbm. E ai que entra o problema, no manual PPLA fala em carregar a img para a memória da impressora, mais não tem nenhum exemplo.

Grato!

[Patrique Santos 0]

Consegui resolver meu problema

Eis o código para impressão direto pela porta paralela

 

Open "lpt1" For Output As #1

 

Open "CaminhoImg.bmp" For Binary As #2

img = Space(LOF(2))

Get #2, 1, img

Close #2

 

Print #1, Chr(2) + "IABNomeImg"

Print #1, img

 

Print #1, Chr(2) + "m"

Print #1, Chr(2) + "KI7" + Chr(1)

Print #1, Chr(2) + "M0100"

Print #1, Chr(2) + "e"

Print #1, Chr(2) + "L"

Print #1, "D11"

 

Print #1, "1Y1100003000020" + "NomeImg"

Print #1, "120000003600050" & texto

Print #1, "1A0013000020280" & barra

 

Print #1, "Q" "0005")

Print #1, "E"

Print #1, Chr(2) + "Q"

Close #1

 

Obrigado!