Jump to content
Fivewin Brasil

ZEBRA TLP 2844 NA PORTA USB

CleitonSH

By CleitonSH
in Programação

 Share

Recommended Posts

CleitonSH Newbie

CleitonSH

Posted
Posted

Alguém conseguiu fazer essa impressora imprimir utilizando o padrão EPL na porta USB?

Já busquei vários exemplos aqui no fórum e nada.

Com o ZebraDesigner eu consegui imprimir utilizando a font ZEBRA, e quando mando exportar para PRN o arquivo fica todo desconfigurado, abro o bloco de notas e não imprime nada.

Estou utilizando a impressão com a fita RIBBON para gôndula no formato 10cm de largura por 3cm e algura.

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

FotoCleitonForun.jpg

Link to comment
Share on other sites
CleitonSH Newbie

CleitonSH

Posted
  • Author
Posted

Alguém conseguiu fazer essa impressora imprimir utilizando o padrão EPL na porta USB?

Já busquei vários exemplos aqui no fórum e nada.

Com o ZebraDesigner eu consegui imprimir utilizando a font ZEBRA, e quando mando exportar para PRN o arquivo fica todo desconfigurado, abro o bloco de notas e não imprime nada.

Estou utilizando a impressão com a fita RIBBON para gôndula no formato 10cm de largura por 3cm e algura.

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

FotoCleitonForun.jpg

Link to comment
Share on other sites
Luiz Fernando Rookie

Luiz Fernando

Posted
Posted

Ola Cleiton pelo que sei vc usa o Fastreport, sendo assim faz a etiqueta por ele, pois funciona certinho com LPT, USB ou SERIAL,para isto o driver da impressora tem que estar instalado no micro do resto vc não precisa fazer mais nada somente direcionar na hora de imprimir...

Abraços

Luiz Fernando

http:\\img193.imageshack.us\img193\6434\foto3nr.jpg

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

Link to comment
Share on other sites
CIACPD Newbie

CIACPD

Posted
Posted

Olá Cleiton

Abaixo um exemplo funcional onde voce usa a funcao PrintFileRaw() para imprimir. Voce deve passar como parametro o nome da impressora, o arquivo a ser impresso e o nome do relatório.

Antes de usar esta impressora ela deve ser compartilhada. 



FErase("PPLB.txt")


SysRefresh()


etiq_txt := "" 


etiq_txt := etiq_txt + [D]+alltrim(str(argox->comand_d,2)) + enter


etiq_txt := etiq_txt + [R]+alltrim(str(argox->comand_rx,2))+[,]+alltrim(str(argox->comand_ry,2)) + enter


etiq_txt := etiq_txt + [R10,0] + enter


etiq_txt := etiq_txt + [Q400,320] + enter


etiq_txt := etiq_txt + [X020,000,4,395,050] + enter


etiq_txt := etiq_txt + [X420,000,4,795,050] + enter


etiq_txt := etiq_txt + [X020,050,4,395,160] + enter


etiq_txt := etiq_txt + [X420,050,4,795,160] + enter


etiq_txt := etiq_txt + [X020,160,4,395,320] + enter


etiq_txt := etiq_txt + [X420,160,4,795,320] + enter


etiq_txt := etiq_txt + [N] + enter


etiq_txt := etiq_txt + [A35,20,0,2,1,1,N,"Preço"] + enter


etiq_txt := etiq_txt + [A210,20,0,2,1,1,N,"]+c_et1_l1c2+["] + enter


If c_et2_l1c2 # [X]


   etiq_txt := etiq_txt + [A435,20,0,2,1,1,N,"Preço"] + enter


EndIf


If c_et2_l1c2 # [X]


   etiq_txt := etiq_txt + [A610,30,0,2,1,1,N,"]+c_et2_l1c2+["] + enter


EndIf


etiq_txt := etiq_txt + [A30,80,0,2,2,1,N,"]+c_et1_l3c1+["] + enter


If c_et2_l3c1 # [X]


   etiq_txt := etiq_txt + [A430,80,0,2,2,1,N,"]+c_et2_l3c1+["] + enter


EndIf


etiq_txt := etiq_txt + [A30,100,0,2,2,1,N,"]+c_et1_l4c1+["] + enter


If c_et2_l4c1 # [X]


   etiq_txt := etiq_txt + [A430,100,0,2,2,1,N,"]+c_et2_l4c1+["] + enter


EndIf


etiq_txt := etiq_txt + [A30,120,0,2,2,1,N,"]+c_et1_l5c1+["] + enter


If c_et2_l5c1 # [X]


   etiq_txt := etiq_txt + [A430,120,0,2,2,1,N,"]+c_et2_l5c1+["] + enter


EndIf


etiq_txt := etiq_txt + [A35,170,0,2,1,1,N, xNome_Empre ] + enter


If c_et2_l1c2 # [X]


   etiq_txt := etiq_txt + [A435,170,0,2,1,1,N, xNome_Empre ] + enter


EndIf


etiq_txt := etiq_txt + [b35,195,0,1,2,2,90,B,"]+c_et1_l6c1+["] + enter


If c_et2_l6c1 # [X]


   etiq_txt := etiq_txt + [b435,195,0,1,2,2,90,B,"]+c_et2_l6c1+["] + enter


EndIf


etiq_txt := etiq_txt + [P] + enter


etiq_txt := etiq_txt + [FE] + enter


SysRefresh()


SysWait( .3 )


memowrit("PPLB.txt",  etiq_txt )


SysWait( .4 )


SysRefresh()


SysWait( .4 )


PrintFileRaw( \\meumicro\minhaimpressora , "PPLB.txt" , "Impressao de Etiqueta" )


SysRefresh()


SysWait( .5 )


id=code>id=code>
Daniel Segura



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		CleitonSH
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


CleitonSH
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Daniel seria muito pedir pra você postar exatamente o arquivo TXT que você cria ai?


Obrigado !


Que fria, na argox vai beleza, mas nesta impressora nem com fastreport e nem word imprime a etiqueta... 


Se mais alguém já tiver o TXT pronto para mandar para impressora e quiser disponibilizar fico eternamente grato.


Cleiton


FWH906+xHarbour, MySql, WorkShop, PellesC,  FW20d+Clipper5.2+Clip53b


FotoCleitonForun.jpg



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		netsys
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


netsys
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Ola Cleiton


Serve do jeito "luso" de 1.900 e qq coisa....?


ou seja, arquivo TXT copiado para PRN....


net use lpt1: \\maquina\zebra...


A rotina abaixo imprime uma etiqueta nas dimensões aprox.


que você disse, para um frigorífico. São passados:


cProd=Código do Produto


dFabr=Data de Fabricação


dVale=Data de Validade


nQtde=Quant.de etiquetas


cObse=Observações


Os campos do arquivo referenciado como LS->


são os valores impressos (gordura saturada, trans, 


carbo, etc)...


Veja se ajuda:


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


Function fImpreti(cProd,dFabr,dVale,nQtde,cObse)


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


Local cLetra, nHand, cLote


Local aEstru:={}


Local cArqImp:="Argox.TXT"


cLote:=Subs(Dtoc(dFabr),7)+Subs(Dtoc(dFabr),4,2)


nHand:=fCreate(cArqImp)


// cLetra:="A" // Code 3 de 9


// cLetra:="E" // Code 128


   cLetra:="F" // Ean 13


// cLetra:="G" // Upca


fWrite(nHand,Chr(94)+"XA")


//                HHHxxxxyyyy


fWrite(nHand,Chr(94)+"FO311,001")


fWrite(nHand,Chr(94)+"FDV.ENERGETICO")


/*/


fWrite(nHand,Chr(94)+"FO311100001300365")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Valoren))


fWrite(nHand,Chr(94)+"FO311100001300318")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Valorpe,2))+"%")


fWrite(nHand,Chr(94)+"FO311100001300300")


fWrite(nHand,Chr(94)+"FDCOLESTEROL")


fWrite(nHand,Chr(94)+"FO311100001300245")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Coleste))


fWrite(nHand,Chr(94)+"FO311100001300208")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Colespe,2))+"%")


fWrite(nHand,Chr(94)+"FO311100001380420")


fWrite(nHand,Chr(94)+"FDCARBOIDRATOS")


fWrite(nHand,Chr(94)+"FO311100001380345")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Carboid))


fWrite(nHand,Chr(94)+"FO311100001380318")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Carbope,2))+"%")


fWrite(nHand,Chr(94)+"FO311100001380300")


fWrite(nHand,Chr(94)+"FDFIBRAS")


fWrite(nHand,Chr(94)+"FO311100001380245")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Fibrape,2))+"%")


fWrite(nHand,Chr(94)+"FO311100001460420")


fWrite(nHand,Chr(94)+"FDPROTEINAS")


fWrite(nHand,Chr(94)+"FO311100001460345")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Protein))


fWrite(nHand,Chr(94)+"FO311100001460318")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Protepe,2))+"%")


fWrite(nHand,Chr(94)+"FO311100001460300")


fWrite(nHand,Chr(94)+"FDCALCIO")


fWrite(nHand,Chr(94)+"FO311100001460245")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Calcios))


fWrite(nHand,Chr(94)+"FO311100001460208")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Calcipe,2))+"%")


fWrite(nHand,Chr(94)+"FO311100001540420")


fWrite(nHand,Chr(94)+"FDGORD.TOTAIS")


fWrite(nHand,Chr(94)+"FO311100001540345")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Gortota))


fWrite(nHand,Chr(94)+"FO311100001540318")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Gortope,2))+"%")


fWrite(nHand,Chr(94)+"FO311100001540300")


fWrite(nHand,Chr(94)+"FDFERRO")


fWrite(nHand,Chr(94)+"FO311100001540245")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Ferroso))


fWrite(nHand,Chr(94)+"FO311100001540208")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Ferrope,2))+"%")


fWrite(nHand,Chr(94)+"FO311100001620420")


fWrite(nHand,Chr(94)+"FDGORD.SATURAD")


fWrite(nHand,Chr(94)+"FO311100001620345")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Gorsatu))


fWrite(nHand,Chr(94)+"FO311100001620318")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Gorsape,2))+"%")


fWrite(nHand,Chr(94)+"FO311100001620300")


fWrite(nHand,Chr(94)+"FDSODIO")


fWrite(nHand,Chr(94)+"FO311100001620245")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Sodioso))


fWrite(nHand,Chr(94)+"FO311100001620208")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Sodiope,2))+"%")


fWrite(nHand,Chr(94)+"FO311100001700420")


fWrite(nHand,Chr(94)+"FDGORD.TRANS")


fWrite(nHand,Chr(94)+"FO311100001700345")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Gortran))


fWrite(nHand,Chr(94)+"FO311100001700318")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Gortrap,2))+"%")


fWrite(nHand,Chr(94)+"FO321100002200400")


fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Descri)+" - "+Alltrim(Ls->Fantas))


fWrite(nHand,Chr(94)+"FO321100002500420")


fWrite(nHand,Chr(94)+"FD"+Dtoc(dFabr)+"  "+Dtoc(dVale)+"  "+cLote+"  5 gramas   M")


fWrite(nHand,Chr(94)+"FO311100002500120")


fWrite(nHand,Chr(94)+"FD"+Subs(cObse,1,20))


fWrite(nHand,Chr(94)+"FO311100002580120")


fWrite(nHand,Chr(94)+"FD"+Subs(cObse,21))


/*/


fWrite(nHand,Chr(94)+"PQ"+StrZero(nQtde,4)) // 


fwrite(nHand,Chr(94)+"XZ")


fClose(nHand)


Copy File(cArqImp) to Prn


Delete File(cArqImp)


Return Nil


Abraços


Alberto-SP



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		CIACPD
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


CIACPD
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Olá Cleiton


Caso nao resolveu ainda o problema da etiqueta segue o conteudo do arquivo.


D0


R0,0


R10,0


Q400,320


X020,000,4,395,050


X420,000,4,795,050


X020,050,4,395,160


X420,050,4,795,160


X020,160,4,395,320


X420,160,4,795,320


N


A460,20,1,2,2,1,N,"Preco"


A460,190,1,2,2,1,N,"  R$     14,11"


A790,20,1,2,2,1,N,"Preco"


A790,190,1,2,2,1,N,"  R$     24,15"


A410,60,1,2,2,1,N,"ACAB.REGISTRO "


A730,60,1,2,2,1,N,"ACAB.REGISTRO "


A380,60,1,2,2,1,N,"C50 CR ABS "


A700,60,1,2,2,1,N,"C52 3/4 "


A350,60,1,2,2,1,N,"09020121 BLUKI"


A670,60,1,2,2,1,N,"C/CANOPLA PIM "


B310,80,1,1,2,2,90,B,"7897210401177"


B630,80,1,1,2,2,90,B,"7898023243428"


P


FE


----


abaixo um HardCod ou POG para resolver quando as impressoras ZEBRA vira literalmente uma...


 




      If file("c:\cialoja\copyetiq.txt")


         SysRefresh()


         SysWait( .4 )


         cArqBkp = FCreate( ('Etiqueta.bat' ), 0 )


         cComando:='copy PPLB.txt ' + ximp_etiqueta + CRLF


         Fwrite( cArqBkp, cComando )


         Fclose( cArqBkp )


         SysRefresh()


         WaitRun( 'Etiqueta.bat',.F. )


         // winexec( 'Etiqueta.bat',.F. )


      else


         SysRefresh()


         SysWait( .4 )


         PrintFileRaw( ximp_etiqueta , "PPLB.txt" , "Impressao de Etiqueta" )


         SysRefresh()


         SysWait( .5 )


      endif


      //ximp_etiqueta = nome da impressora ex: \\micro\impressora


 
id=code>id=code>
Daniel Segura



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





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