Jump to content
Fivewin Brasil

Impressora Termica ARGOX como usar a DLL

Helio_hbinfo

By Helio_hbinfo
in Programação

 Share

Recommended Posts

Helio_hbinfo Newbie

Helio_hbinfo

Posted
Posted

Ola pessoal, eu novamente precisando de ajuda.

Eu estou precisando imprimir etiquetas termicas, No DOS funciona, mas no windows eu tenho que mandar um texto direto para aporta de impressao e nao deu certo.

Ai eu peguei os comandos da impressora (exemplos) e coloquei :

SET RESOURCES TO "WINPPLA.DLL"

/////////////////////////////////////////////

A_CreatePrn(1,"PPLA.prn")

A_Set_Darkness(12)

A_Prn_Text( 0,100,1,9,0,1,1,110,2,'"'+wLin1+'"')

A_Prn_Text( 0, 90,1,9,0,1,1,110,2,'"'+wLin2+'"')

A_Prn_Text( 0, 60,1,9,0,1,1,110,2,'"'+wLin3+'"')

A_Prn_Text( 0, 30,1,9,0,1,1,110,2,'"'+wLin4+'"')

A_Prn_Text( 0, 0,1,9,0,1,1,110,2,'"'+wLin5+'"')

A_Print_Out(1,1,1,1)

A_ClosePrn()

////////////////////////////////

na compilacao ele indica que :

Executando: ILINK32 @B32.BC

Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland

Error: Unresolved external '_HB_FUN_A_CREATEPRN' referenced from C:\DES\WIND32\ETIQBALA.OBJ

Error: Unresolved external '_HB_FUN_A_SET_DARKNESS' referenced from C:\DES\WIND32\ETIQBALA.OBJ

Error: Unresolved external '_HB_FUN_A_PRN_TEXT' referenced from C:\DES\WIND32\ETIQBALA.OBJ

Error: Unresolved external '_HB_FUN_A_PRINT_OUT' referenced from C:\DES\WIND32\ETIQBALA.OBJ

Error: Unresolved external '_HB_FUN_A_CLOSEPRN' referenced from C:\DES\WIND32\ETIQBALA.OBJ

Mas Abrindo o exemplo do Vb, pelo que entendi as rotinas estao na DLL.

/*

function A_Set_Darkness ( darkness:integer):integer;stdcall;external 'WINPPLA.DLL'

function A_CreatePrn ( selection:integer;FileName:pchar):integer;stdcall;external 'WINPPLA.DLL'

function A_Print_Out ( width,height,copies,amount:integer):integer;stdcall;external 'WINPPLA.DLL'

function A_Prn_Text ( x,y,ori,font,typee,hor_factor,ver_factor:integer;mode:char;numeric:integer;data:pchar):integer;stdcall;external 'WINPPLA.DLL';

function A_Prn_Barcode ( x,y,ori:integer;typee:char;narrow,width,height:integer;mode:char;numeric:integer;data:pchar):integer;stdcall;external 'WINPPLA.DLL';

function A_Prn_Text_TrueType ( x,y,FSize:integer;FType:pchar;Fspin,FWeight,FItalic,FUnline,FStrikeOut:integer;id_name,data:pchar;mem_mode:integer):integer;stdcall;external 'WINPPLA.DLL';

function A_Get_Graphic ( x,y,mem_mode:integer;format:char;filename:pchar):integer;stdcall;external 'WINPPLA.DLL';

function A_Draw_Box ( mode, x, y, width, height, top, side:integer):integer;stdcall;external 'WINPPLA.DLL';

function A_Draw_Line (mode, x, y, width, height:integer):integer;stdcall;external 'WINPPLA.DLL';

Procedure A_ClosePrn ();stdcall;external 'WINPPLA.DLL'

/*

Grato pela Ajuda

Helio Tsuyama

Santo Andre - SP

FWH25Fev - WS - xHb .99.50 - xMate 1.9w4 - xDev Studio v0.57

hbinfo@pop.com.br

hbinfo.br@uol.com.br

Editado por - hinfo on 12/02/2007 14:38:19

Link to comment
Share on other sites
Helio_hbinfo Newbie

Helio_hbinfo

Posted
  • Author
Posted

Ola pessoal, eu novamente precisando de ajuda.

Eu estou precisando imprimir etiquetas termicas, No DOS funciona, mas no windows eu tenho que mandar um texto direto para aporta de impressao e nao deu certo.

Ai eu peguei os comandos da impressora (exemplos) e coloquei :

SET RESOURCES TO "WINPPLA.DLL"

/////////////////////////////////////////////

A_CreatePrn(1,"PPLA.prn")

A_Set_Darkness(12)

A_Prn_Text( 0,100,1,9,0,1,1,110,2,'"'+wLin1+'"')

A_Prn_Text( 0, 90,1,9,0,1,1,110,2,'"'+wLin2+'"')

A_Prn_Text( 0, 60,1,9,0,1,1,110,2,'"'+wLin3+'"')

A_Prn_Text( 0, 30,1,9,0,1,1,110,2,'"'+wLin4+'"')

A_Prn_Text( 0, 0,1,9,0,1,1,110,2,'"'+wLin5+'"')

A_Print_Out(1,1,1,1)

A_ClosePrn()

////////////////////////////////

na compilacao ele indica que :

Executando: ILINK32 @B32.BC

Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland

Error: Unresolved external '_HB_FUN_A_CREATEPRN' referenced from C:\DES\WIND32\ETIQBALA.OBJ

Error: Unresolved external '_HB_FUN_A_SET_DARKNESS' referenced from C:\DES\WIND32\ETIQBALA.OBJ

Error: Unresolved external '_HB_FUN_A_PRN_TEXT' referenced from C:\DES\WIND32\ETIQBALA.OBJ

Error: Unresolved external '_HB_FUN_A_PRINT_OUT' referenced from C:\DES\WIND32\ETIQBALA.OBJ

Error: Unresolved external '_HB_FUN_A_CLOSEPRN' referenced from C:\DES\WIND32\ETIQBALA.OBJ

Mas Abrindo o exemplo do Vb, pelo que entendi as rotinas estao na DLL.

/*

function A_Set_Darkness ( darkness:integer):integer;stdcall;external 'WINPPLA.DLL'

function A_CreatePrn ( selection:integer;FileName:pchar):integer;stdcall;external 'WINPPLA.DLL'

function A_Print_Out ( width,height,copies,amount:integer):integer;stdcall;external 'WINPPLA.DLL'

function A_Prn_Text ( x,y,ori,font,typee,hor_factor,ver_factor:integer;mode:char;numeric:integer;data:pchar):integer;stdcall;external 'WINPPLA.DLL';

function A_Prn_Barcode ( x,y,ori:integer;typee:char;narrow,width,height:integer;mode:char;numeric:integer;data:pchar):integer;stdcall;external 'WINPPLA.DLL';

function A_Prn_Text_TrueType ( x,y,FSize:integer;FType:pchar;Fspin,FWeight,FItalic,FUnline,FStrikeOut:integer;id_name,data:pchar;mem_mode:integer):integer;stdcall;external 'WINPPLA.DLL';

function A_Get_Graphic ( x,y,mem_mode:integer;format:char;filename:pchar):integer;stdcall;external 'WINPPLA.DLL';

function A_Draw_Box ( mode, x, y, width, height, top, side:integer):integer;stdcall;external 'WINPPLA.DLL';

function A_Draw_Line (mode, x, y, width, height:integer):integer;stdcall;external 'WINPPLA.DLL';

Procedure A_ClosePrn ();stdcall;external 'WINPPLA.DLL'

/*

Grato pela Ajuda

Helio Tsuyama

Santo Andre - SP

FWH25Fev - WS - xHb .99.50 - xMate 1.9w4 - xDev Studio v0.57

hbinfo@pop.com.br

hbinfo.br@uol.com.br

Editado por - hinfo on 12/02/2007 14:38:19

Link to comment
Share on other sites
luiz53 Newbie

luiz53

Posted
Posted

tente mandar os comandos da mesma forma que usava em dos....

use os comandos atraves da porta serial.;;;

HBCOMM;;;;

Messager

luizantoniooliveira@hotmail.com

Skype

luizantoniooliveira

Xhb 99.5 / FW 2.6 / WorkShop / HbMake / Xmate / Clipper 5.3b / Blinker 5.1 / LLibg

www.omega-store.com.br

Link to comment
Share on other sites
atnsoft Newbie

atnsoft

Posted
Posted

Levando em conta que sua impressora seja Paralela:



oPrn:Say(01,01,chr(2)+"L")


oPrn:Say(02,01,"D11")


oPrn:Say(03,01'121000000960008'+Lleti+wcodigo)


oprn:Say(05,01,'121000000840008'+wnomeN)


oprn:Say(06,01,'0001')


oprn:Say(07,01,'Q')


id=code>id=code>
AtnSoft


Harbour 0.43 Flex /xHarbour 0.99.30 / Fwh 2.5 / Verce



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Marca
	

				
				
					
						
Rookie
					
				
			

		

		

			

				


Marca
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

cMonta  := cEnter


               cMonta +=  'N'   + cEnter    // Limpa o Buffer


               cMonta += 'q800' + cEnter


               cMonta += 'Q'    + cAlt + ',24' + cEnter


               cMonta += 'R0,0' + cEnter


               cMonta += 'A120,44,0,4,1,2,N,"' + eMpre + '"' + cEnter


               cMonta += 'A490,44,0,4,1,2,N,"' + eMpre + '"' + cEnter


               cMonta += 'A120,90,0,1,1,2,N,"' + eMend + '"' + cEnter


               cMonta += 'A490,90,0,1,1,2,N,"' + eMend + '"' + cEnter


               cMonta += 'B120,120,0,1,2,4,80,B,"' + v_cod1 + '"' + cEnter


               cMonta += 'B490,120,0,1,2,4,80,B,"' + v_cod2 + '"' + cEnter


               cMonta += 'A410,120,0,4,1,2,N,"' + v_tam1 +'"' + cEnter


               cMonta += 'A750,120,0,4,1,2,N,"' + v_tam2 +'"' + cEnter


               cMonta += 'A120,230,0,1,1,2,N,"' +  v_dgru1 +  '"' + cEnter


               cMonta += 'A490,230,0,1,1,2,N,"' +  v_dgru2 +  '"' + cEnter


               cMonta += 'A120,260,0,1,1,2,N,"' +  v_desa + v_data1 + '"' + cEnter


               cMonta += 'A490,260,0,1,1,2,N,"' +  v_desb + v_data2 + '"' + cEnter


               cMonta += 'B120,290,0,1,2,4,40,B,"' + v_cod1+ '"' + cEnter


               cMonta += 'B490,290,0,1,2,4,40,B,"' + v_cod2 + '"' + cEnter


               cMonta += 'A120,360,0,1,1,2,N,"'  + v_des1 +  '"' + cEnter


               cMonta += 'A490,360,0,1,1,2,N,"'  + v_des2 +  '"' + cEnter


               cMonta += 'B120,390,0,1,2,4,40,B,"' + v_cod1 + '"' + cEnter


               cMonta += 'B490,390,0,1,2,4,40,B,"' + v_cod2 + '"' + cEnter


               cMonta += 'A120,460,0,1,1,2,N,"' + v_des1 +  '"' + cEnter


               cMonta += 'A490,460,0,1,1,2,N,"' + v_des2 +  '"' + cEnter


               cMonta += 'B120,490,0,1,2,4,40,B,"' + v_cod1 + '"' + cEnter


               cMonta += 'B490,490,0,1,2,4,40,B,"' + v_cod2 + '"' + cEnter


               cMonta += 'A120,560,0,1,1,2,N,"' + v_des1 +  '"' + cEnter


               cMonta += 'A490,560,0,1,1,2,N,"' + v_des2 +  '"' + cEnter


               cMonta += 'P' + '1' + cEnter


            cArq := fCreate(oPub:wPorta)


            fWrite(cArq,cMonta)


            fClose(cArq)


Esperimente assim


Um abraço


Marcelo Ferro


Fwh25/xHarbour 99.3/SqlLib /xMate/WS



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Helio_hbinfo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Helio_hbinfo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Valdecir, bom dia


eu nao recebi o teu email hbinfo.br@uol.com.br


Marcelo, bom dia


eu coloquei estas linhas no meu programa


   LOCAL oPrn, oPub


   LOCAL wPorta := "lpt1"


   LOCAL cMonta 


   LOCAL cEnter := CHR(13)+CHR(10)


   LOCAL cAlt := '816'


   LOCAL cArq 


cMonta := cEnter


cMonta += 'N' + cEnter // Limpa o Buffer


cMonta += 'q800' + cEnter


cMonta += 'Q' + cAlt + ',24' + cEnter


cMonta += 'R0,0' + cEnter


cMonta += 'A120,44,0,4,1,2,N,"' + wLin1 + '"' + cEnter


cMonta += 'P' + '1' + cEnter


cArq := fCreate(oPub:wPorta)


fWrite(cArq,cMonta)


fClose(cArq)


Esta ocorrendo o seguinte erro de execucao :


Application


===========


   Path and name: C:\DES\WIND32\wind.EXE (32 bits)


   Size: 2,724,864 bytes


   Time from start: 0 hours 0 mins 10 secs 


   Error occurred at: 14/02/07, 10:55:45


   Error description: Error BASE/1004  Class: 'NIL' has no exported method: WPORTA


   Args:


Stack Calls


===========


   Called from WPORTA(0)


   Called from ETIQBALAN3(1159)


Grato


Helio Tsuyama


Santo Andre - SP


FWH25Fev - WS - xHb .99.50 - xMate 1.9w4 - xDev Studio v0.57


hbinfo@pop.com.br


hbinfo.br@uol.com.br



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Helio_hbinfo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Helio_hbinfo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Bom dia pessoal!


Pelas varias tentativas o que eu percebi é que nao consigo passar nada para a impressora, quando nao da erro, ele passa sem fazer nada.


Qual a sintaxe para enviar algo direto para a LPT1 como texto?


Grato


Helio Tsuyama


Santo Andre - SP


FWH25Fev - WS - xHb .99.50 - xMate 1.9w4 - xDev Studio v0.57


hbinfo@pop.com.br


hbinfo.br@uol.com.br



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		personal
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


personal
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Helio, esta impressora tem dois tipos de programação.


No momento estou sem condições de dar maiores detales, mas faça uma busca, que vai encontrar  algo a este respeito.


http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=6787


Oliveira, Sérgio A.


PERSONAL Comp. e Sitemas.id=green>


Lins - SP ** sergio@personal.com.br


FWH 2.5, xharbour 0.99.4, SqlLib, MySql, xMate.


TWBrowse(),C5Menu,vPrinter.


Windows XP, Vista Ultimate.


Editado por - personal on 15/02/2007  07:52:44



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Helio_hbinfo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Helio_hbinfo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Bom dia Oliveira, 


eu nao sei o que ocorre, porque eu mando a indormacao e a impressora nao faz nada. Eu estou usando XP


cMonta := cEnter


cMonta += 'N' + cEnter // Limpa o Buffer


cMonta += 'q800' + cEnter


cMonta += 'Q' + cAlt + ',24' + cEnter


cMonta += 'R0,0' + cEnter


cMonta += 'A120,44,0,4,1,2,N,"' + wLin1 + '"' + cEnter


cMonta += 'P' + '1' + cEnter


cArq := fCreate("lpt1")


fWrite(cArq,cMonta)


fClose(cArq)


Grato


Helio



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		personal
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


personal
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Helio... Como disse acima, esta impressora tem dois tipos de linguagem PplA e Pplb.


Voce teria que ver qual é a sua.


Padrão PPLb


**--[ Inicializa impressora ]--**


cManda:=""+CRLF


cManda:=cManda+"00000"+CRLF


cManda:=cManda+"M0300"+CRLF


cManda:=cManda+"c0000"+CRLF


cManda:=cManda+"f000"+CRLF


cManda:=cManda+"e"+CRLF


cManda:=cManda+"LC0000"+CRLF


cManda:=cManda+"H12"+CRLF


cManda:=cManda+"D11"+CRLF


cManda:=cManda+"SC"+CRLF


cManda:=cManda+"PC"+CRLF


cManda:=cManda+"R0000"+CRLF


cManda:=cManda+"z"+CRLF


cManda:=cManda+"W"+CRLF


cManda:=cManda+"^01"+CRLF


**--[ etiquetas de produtos ]--**


While(ETQ->(! Eof() ))


cManda1:=""


cManda1:=cManda1+"120000300700010"+ETQ->despro+CRLF


cManda1:=cManda1+"1F1203500180020"+Subs(ETQ->eanpro,1,12)+CRLF


cManda1:=cManda1+"120000300020010"+pAlinha("SUP. ESPERANCA",20,"C")+CRLF


ETQ->(dbSkip(1))


IF (ETQ->(! Eof() ))


cManda1:=cManda1+"120000300700150"+ETQ->despro+CRLF


cManda1:=cManda1+"1F1203500180160"+Subs(ETQ->eanpro,1,12)+CRLF


cManda1:=cManda1+"120000300020150"+pAlinha("SUP. ESPERANCA",20,"C")+CRLF


ETQ->(dbSkip(1))


If (ETQ->(!Eof() ))


cManda1:=cManda1+"120000300700290"+ETQ->despro+CRLF


cManda1:=cManda1+"1F1203500180295"+Subs(ETQ->eanpro,1,12)+CRLF


cManda1:=cManda1+"120000300020290"+pAlinha("SUP. ESPERANCA",20,"C")+CRLF


EndIf


Este código refere-se a PPLB.


Oliveira, Sérgio A.


PERSONAL Comp. e Sitemas.id=green>


Lins - SP ** sergio@personal.com.br


FWH 2.5, xharbour 0.99.4, SqlLib, MySql, xMate.


TWBrowse(),C5Menu,vPrinter.


Windows XP, Vista Ultimate.



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Helio_hbinfo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Helio_hbinfo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Bom dia 


Sergio, 


-eu fiz varias tentativas, mas a impressoara nao da sinal de vida. 


-Se eu utilizo o "Argobar PRO", ela funciona 


-Se utilizo o Printer utility ele passa os parametros da impressora sem problema.


-Liguei uma impressora normal, rodei o exeplo 1 e o programa imprimiu as linhas de texto.


Mas se eu rodo os exemplos na ARGOX nada acontece.


Exemplo 1


//////////////////////////////////////////////////////////////////////


FUNCTION FC_BARRA1 


   LOCAL oPrn, oPub


   LOCAL wPorta := "lpt1"


   LOCAL cMonta 


   LOCAL cEnter := CHR(13)+CHR(10)


   LOCAL cAlt := '816'


   LOCAL cArq


   LOCAL Id 


Id:=Fcreate("LPT1") // "ETIBARRA.PRN")  //


FWrite(Id, 'N' + cEnter) // Limpa o Buffer


FWrite(Id, 'q800' + cEnter)


FWrite(Id, 'Q' + cAlt + ',24' + cEnter)


FWrite(Id, 'R0,0' + cEnter)


FWrite(Id, 'A120,44,0,4,1,2,N,"teste"' + cEnter)


FWrite(Id, 'P' + '1' + cEnter)


FClose(Id)


return (.t.)


/////////////////////////////////////////////////////////


Exemplo 2


////////////////////////////////////////////////////////////////


FUNCTION PPLb


LOCAL cManda


LOCAL cManda1


LOCAL cArq


//Padrão PPLb


**--[ Inicializa impressora ]--**


cManda:=""+CRLF


cManda:=cManda+"00000"+CRLF


cManda:=cManda+"M0300"+CRLF


cManda:=cManda+"c0000"+CRLF


cManda:=cManda+"f000"+CRLF


cManda:=cManda+"e"+CRLF


cManda:=cManda+"LC0000"+CRLF


cManda:=cManda+"H12"+CRLF


cManda:=cManda+"D11"+CRLF


cManda:=cManda+"SC"+CRLF


cManda:=cManda+"PC"+CRLF


cManda:=cManda+"R0000"+CRLF


cManda:=cManda+"z"+CRLF


cManda:=cManda+"W"+CRLF


cManda:=cManda+"^01"+CRLF


**--[ etiquetas de produtos ]--**


cManda1:=""


cManda1:=cManda1+"120000300700010"+"teste"+CRLF


cManda1:=cManda1+"1F1203500180020"+"teste1"+CRLF


cManda1:=cManda1+"120000300020010"+"teste2"+CRLF


cArq := fCreate("LPT1")


fWrite(cArq,cManda)


fWrite(cArq,cManda1)


fClose(cArq)


return (.t.)


////////////////////////////////////////////////


exemplo 3


   LOCAL wcont := wQuantEtiq


   LOCAL oPrn, oPub


   LOCAL wPorta := "lpt1"


   LOCAL cMonta 


   LOCAL cEnter := CHR(13)+CHR(10)


   LOCAL cAlt := '816'


   LOCAL cArq 


cMonta := cEnter


cMonta += 'N' + cEnter // Limpa o Buffer


cMonta += 'q800' + cEnter


cMonta += 'Q' + cAlt + ',24' + cEnter


cMonta += 'R0,0' + cEnter


cMonta += 'A120,44,0,4,1,2,N,"' + wLin4 + '"' + cEnter


cMonta += 'P' + '1' + cEnter


cArq := fCreate("lpt1")


fWrite(cArq,cMonta)


fClose(cArq)


Muito obrigado pela atenção


Helio Tsuyama


Santo Andre - SP


FWH25Fev - WS - xHb .99.50 - xMate 1.9w4 - xDev Studio v0.57


hbinfo@pop.com.br


hbinfo.br@uol.com.br



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		personal
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


personal
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Hélio a rotina abaixo, uso em maquinas 98,XP e VISTA Ultimate, e para impressora ARGOX.


Padrão PPLB






**------------------------------**


    Static Function bImprime()


**------------------------------**


PrnPorta:="\\"+AllTrim(pTerminal)+"\Argox"


TMP->(dbGoTop())


If (TMP->(Eof()))


    MsgStop("Nenhuma etiqueta para imprimir  "," Atenção")


    Return(.t.)


EndIf


**--[ Inicializa impressora ]--**


    cManda:=""+CRLF


    cManda:=cManda+"00000"+CRLF


    cManda:=cManda+"M0300"+CRLF


    cManda:=cManda+"c0000"+CRLF


    cManda:=cManda+"f000"+CRLF


    cManda:=cManda+"e"+CRLF


    cManda:=cManda+"LC0000"+CRLF


    cManda:=cManda+"H12"+CRLF


    cManda:=cManda+"D11"+CRLF


    cManda:=cManda+"SC"+CRLF


    cManda:=cManda+"PC"+CRLF


    cManda:=cManda+"R0000"+CRLF


    cManda:=cManda+"z"+CRLF


    cManda:=cManda+"W"+CRLF


    cManda:=cManda+"^01"+CRLF


**--[ etiquetas de gondola ]--**


cArq:=fCreate(PrnPorta)


While(TMP->(!Eof()))


    IF(TMP->prnpro>0)


        cManda1:=""


        cManda1:=cManda1+"130000300100080"+pAlinha(TMP->despro,40,"C")+CRLF


        cManda1:=cManda1+"161200500300080"+pAlinha("R$ "+allTrim(Transf(TMP->vispro,"@E 999,999.99")),12,"C")+CRLF


        cManda1:=cManda1+"1F1203000500300"+Subs(TMP->eanpro,1,12)+CRLF


        cManda1:=cManda1+"Q001"+CRLF


        cManda1:=cmanda1+"E"+CRLF


        cManda1:=cManda1+"Q001"+CRLF


        cManda1:=cmanda1+"E"+CRLF


        fWrite(cArq,cManda+cManda1)


    EndIf


    TMP->(dbSkip(1))


    IF (TMP->(Eof()))


        Exit


    Endif


EndDo


FClose(cArq)


SysWait(0.5)


TMP->(dbGoBottom()) ; TMP->(dbSkip(-18)) ; oLbx[1]:Refresh()


Return(.t.)


id=code>id=code>
Padrão PPLA.






cArq:=fCreate(PrnPorta)


While (TMP->(! Eof()))


    _qtd  := "P1"


    _vlr  := "R$ " + AllTrim(Transf(TMP->a_vlrpro, "@E 9,999.99"))


    _ean  := TMP->a_eanpro


    If (TMP->a_prapro > 0.00)


        _ean := _ean + "   a prazo R$ " + AllTrim(Transf(TMP->a_prapro, "@EZ 9,999.99"))


    EndIf


    _pra  := p_alinha("R$ " + AllTrim(Transf(TMP->a_prapro, "@E 9,999.99")),08,"C")


    _des  := TMP->a_despro


    _uni  := Space(31) + TMP->a_unipro


    _manda := ""


    _manda :=          "N"        + Chr(13) + Chr(10)  //  limpa buffers


    _manda := _manda + "D12"      + Chr(13) + Chr(10)  //  densidade


    _manda := _manda + "S2"       + Chr(13) + Chr(10)  //  velocidade 1,2,3


    _manda := _manda + "R280,000" + Chr(13) + Chr(10)  //  posicionamento horiz/verti


    _manda := _manda + "I8,3,001" + Chr(13) + Chr(10)  //


    _manda := _manda + "A010,090,2,4,3,3,N," + Chr(34) + _vlr + Chr(34) + Chr(13) + Chr(10)


    _manda := _manda + "A010,130,2,4,1,1,N," + Chr(34) + _ean + Chr(34) + Chr(13) + Chr(10)


    _manda := _manda + "A010,180,2,4,1,2,N," + Chr(34) + _des + Chr(34) + Chr(13) + Chr(10)


    _manda := _manda + "A250,130,2,4,1,1,N," + Chr(34) + "SUPERMERCADO" + Chr(34) + Chr(13) + Chr(10)


    _manda := _manda + "A220,090,2,4,1,2,N," + Chr(34) + "L I D E R"   + Chr(34) + Chr(13) + Chr(10)


    _manda := _manda        + chr(13) + chr(10)


    _manda := _manda + _qtd + chr(13) + chr(10)


    fWrite(cArq,_Manda)


    TMP->(dbSkip(1))


    If (TMP->(Eof() ))


        Exit


    EndIf


    _conta += 1


//    If (_conta > 10)


//        p_somerr()


//        resp := p_resp("Continuar  ?","SN",28,00,80,cor_resp)


//        If (resp == "N")


//            Exit


//        EndIf


//        _conta := 0


//    EndIf


EndDo


fClose(cArq)


id=code>id=code>
Oliveira, Sérgio A.


PERSONAL Comp. e Sitemas.id=green>


Lins - SP ** sergio@personal.com.br


FWH 2.5, xharbour 0.99.4, SqlLib, MySql, xMate.


TWBrowse(),C5Menu,vPrinter.


Windows XP, Vista Ultimate.



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Helio_hbinfo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Helio_hbinfo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Sergio, 


eu coloquei esta rotina e nada conteceu


FUNCTION PPLA


   LOCAL PrnPorta:="\\hbinfo\Argox" // cterminal


   LOCAL _manda


   LOCAL cArq


   cArq:=fCreate(PrnPorta)


  _qtd := "P1"


_manda := ""


_manda := "N" + Chr(13) + Chr(10) // limpa buffers


_manda := _manda + "D12" + Chr(13) + Chr(10) // densidade


_manda := _manda + "S2" + Chr(13) + Chr(10) // velocidade 1,2,3


_manda := _manda + "R280,000" + Chr(13) + Chr(10) // posicionamento horiz/verti


_manda := _manda + "I8,3,001" + Chr(13) + Chr(10) //


_manda := _manda + "A010,090,2,4,3,3,N," + Chr(34) + "teste" + Chr(34) + Chr(13) + Chr(10)


_manda := _manda + "A010,180,2,4,1,2,N," + Chr(34) + "descricao" + Chr(34) + Chr(13) + Chr(10)


_manda := _manda + "A250,130,2,4,1,1,N," + Chr(34) + "T E S T E" + Chr(34) + Chr(13) + Chr(10)


_manda := _manda + "A220,090,2,4,1,2,N," + Chr(34) + "momomo" + Chr(34) + Chr(13) + Chr(10)


_manda := _manda + chr(13) + chr(10)


_manda := _manda + _qtd + chr(13) + chr(10)


fWrite(cArq,_Manda)


fClose(cArq)


return (.t.) 


Novamente muito obrigado pela atencao


Helio Tsuyama


Santo Andre - SP


FWH25Fev - WS - xHb .99.50 - xMate 1.9w4 - xDev Studio v0.57


hbinfo@pop.com.br


hbinfo.br@uol.com.br



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		personal
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


personal
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Bem meu amigo, aí fica dificil.


Se a impressora nao tem problemas,


Se está na porta correta.


Se o windows não tem nada de errado.


Como dizia Sócrates... Ferrou .


Oliveira, Sérgio A.


PERSONAL Comp. e Sitemas.id=green>


Lins - SP ** sergio@personal.com.br


FWH 2.5, xharbour 0.99.4, SqlLib, MySql, xMate.


TWBrowse(),C5Menu,vPrinter.


Windows XP, Vista Ultimate.



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Valdir
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Valdir
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Olá Hélio...


Pelas respostas acima, deveria estar funcionando normalmente, pois utilizo este tipo de impressora no meu Sistema e não tenho problemas.


Será que não está faltando "Instalar" os drivers desta impressora no rWindows. 


Outra causa para este tipo de problemas, pode estar relacionado com o "Firmware" da impressora. 


Se este for o caso, entre no site da BarCode e atualize o Firmware dela.


Um abraço


enterprise5.gif


Valdir - Jundiaí - S.P.



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Helio_hbinfo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Helio_hbinfo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Ola pessoal nao teve jeito, 


eu troquei de micro e nada de imprimir, troquei o driver tambem, peguei um dos ARGOX-USA


No programa exemplo Bar-Tender a impressora funciona normalmente.


Eu gostaria de tentar carregar a DLL mas ocorre o erro inicial do topico.


Alguem pode me ajudar?


Grato pela Ajuda


Helio Tsuyama


Santo Andre - SP


FWH25Fev - WS - xHb .99.50 - xMate 1.9w4 - xDev Studio v0.57


hbinfo@pop.com.br


hbinfo.br@uol.com.br



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Valdir
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Valdir
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Olá Hélio...


Seguinte, não uso nenhuma Dll para imprimir estas etiquetas. Crieu um exemplo de como utilizo e estou postando em Dicas, inclusive com o executável deste exemplo.


Só não tenho como testar por aqui, pois estou sem a impressora no momento. Faça os testes e veja como estou usando, se te servir, faça bom proveito.


Um abraço


enterprise5.gif


Valdir - Jundiaí - S.P.



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Helio_hbinfo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Helio_hbinfo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Valdir, 


boa noite, muito obrigado pea atencao


use baixei o arquivo da secao de dicas e fiz o teste, infelimente nao deu certo. o qua eu achei interessante foi que o mesmo desligada ele nao reconhece que a impressora esta desligada.


Eu realmente nao sei o que fazer.


mas grato mesmo assim.


Mandei um email para o argox.com


Helio Tsuyama


Santo Andre - SP


FWH25Fev - WS - xHb .99.50 - xMate 1.9w4 - xDev Studio v0.57


hbinfo@pop.com.br


hbinfo.br@uol.com.br



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Helio_hbinfo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Helio_hbinfo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Valdir, 


eu estive hoje a tarde no distribuidor da impressora e la o seu programa tambem nao funcionou e ele estava utilizando o WIN98 SE, bem trocamos o firmware de PPLA para PPLB e nao deu certo, voltamos para o PPLA, ficou somente uma duvida.


Qual a versao que voce utiliza na sua impressora?, sera que vc poderia me passar?


Eu fiz um teste interessante que pode ser util para muita gente. Principalmente para fazer etiqueta de instrucao.


Eu peguei uma folha em PDF e mandei imprimir, o drive da impressora ajusta e imprime. Ficou muito bom. Estive pensando em fazer a minha etiqueta em PDF e mandar imprimir.


Tem um pessoal que grava a etiqueta em um arquivo texto e manda imprimir pelo DOS atraves de um ARQ.BAT, eu vou experimentar.


Eu tenho algumas alterantivas novas, mas a primeira seria compatibilizar com a versao do FIRMWARE do Valdir.


Grato a todos


Helio Tsuyama


Santo Andre - SP


FWH25Fev - WS - xHb .99.50 - xMate 1.9w4 - xDev Studio v0.57


hbinfo@pop.com.br


hbinfo.br@uol.com.br



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Valdir
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Valdir
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Olá Hélio...





citação:Valdir, 
eu estive hoje a tarde no distribuidor da impressora e la o seu programa tambem nao funcionou e ele estava utilizando o WIN98 SE, bem trocamos o firmware de PPLA para PPLB e nao deu certo, voltamos para o PPLA, ficou somente uma duvida.


R.: Foi como te falei, não tive como testar esse exemplo, porém a ideía era te passar a maneira de como faço a impressão das minhas etiquetas. id=green>


Qual a versao que voce utiliza na sua impressora?, sera que vc poderia me passar?


R.: Utilizo o firmware original que acompanha o CD de Instalação da impressora. Se voce não tiver, posso te enviar uma cópia do CD.id=green>


Eu fiz um teste interessante que pode ser util para muita gente. Principalmente para fazer etiqueta de instrucao.


R.: Legal meu amigo... também utilizo esses recursos para diversos tipos de etiquetas.id=green>


Eu peguei uma folha em PDF e mandei imprimir, o drive da impressora ajusta e imprime. Ficou muito bom. Estive pensando em fazer a minha etiqueta em PDF e mandar imprimir.


R.: Eu não sabia que era possível imprimir um arquivo PDF diretamente neste tipo de impressoraid=green>


Tem um pessoal que grava a etiqueta em um arquivo texto e manda imprimir pelo DOS atraves de um ARQ.BAT, eu vou experimentar.


Eu tenho algumas alterantivas novas, mas a primeira seria compatibilizar com a versao do FIRMWARE do Valdir.


Grato a todos


Helio Tsuyama


Santo Andre - SP


 


id=quote>id=quote>
Um abraço


enterprise5.gif


Valdir - Jundiaí - S.P.



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
						
    
							
							
								
  • 
									2 years later...
								
    • 
							
						

					
					
					
				

					

					
					






	

	

	

		

			

				


	
		gersonczjunior
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


gersonczjunior
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Alguém poderia me ajudar a imprimir na impressora ELGIN WIND TP 3000 series? Ela é uma impressora que usa a porta paralela.


O ACBRMonitor não funciounou para ela. Alguém sabe alguma outra dll que pode ser utilizada? Ou alguém tem algum código de exemplo de impressão na mesma? pode ser em vb 5 ou qualquer linguagm


Obrigado


meu email para enviar a dll caso precisa é gersonczjunior@gmail.com



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				
			
			



		

	


	
		

			


	
	

		

	
	
	
	
	
		
	

			
				
				

	
		

			
Join the conversation

			

	
				
					You can post now and register later.
				
				If you have an account, sign in now to post with your account.
				
			

	
		

	




	
	
		
	
		
	
		
	
	
		
		
	
	

		

		


	
		Guest
	


		

			
				
					
				
					
						
    
							
  • 
								


	
	
	
	

								
							
    • 
						

					
				
					
				
			
			
				
					
						
							
						
						



    

		
		

			
		

		
			
 Reply to this topic...

		
		

			

				
					×
					  Pasted as rich text.   Paste as plain text instead
				
			

		

		

			

				  Only 75 emoji are allowed.
			

		

		

			

				×
				  Your link has been automatically embedded.   Display as a link instead
			

		

		

			

			

		

		

			

				×
				  Your previous content has been restored.   Clear editor
			

		

		

			

				×
				  You cannot paste images directly. Upload or insert images from URL.
			

		

		


	

		

			
			

				Loading...
			

		
		
	



	

	

		

			×
			
		

		

	



						
					
				
					
				
					
				
			
			
    
				
					
						
					
						
					
						
							
  • 
								

    
	

    
								
							
    • 
						
					
				
				
					
  • 

	

    • 
				
			

		

	



			
		

	

	
		

			

				
					


    
          Share
    

    

        
        
            

            
        
    


				
				
                

                




				
			

		

	







	

		
			
				Go to topic listing
			
		
	

	




						


					

					


					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    •