Helio_hbinfo Posted February 12, 2007 Report Share Posted February 12, 2007 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 Quote Link to comment Share on other sites More sharing options...
Helio_hbinfo Posted February 12, 2007 Author Report Share Posted February 12, 2007 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 Quote Link to comment Share on other sites More sharing options...
luiz53 Posted February 12, 2007 Report Share Posted February 12, 2007 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 Quote Link to comment Share on other sites More sharing options...
atnsoft Posted February 12, 2007 Report Share Posted February 12, 2007 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 Quote Link to comment Share on other sites More sharing options...
Marca Posted February 13, 2007 Report Share Posted February 13, 2007 Hélio p. acaso esta impressora é serial ou paralela ? Marcelo Ferro Fwh25/xHarbour 99.3/SqlLib /xMate/WS Quote Link to comment Share on other sites More sharing options...
Helio_hbinfo Posted February 13, 2007 Author Report Share Posted February 13, 2007 Marcelo é paralela 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 Quote Link to comment Share on other sites More sharing options...
valdecir Posted February 14, 2007 Report Share Posted February 14, 2007 Vc testou o que mandei no seu e-mail ? Quote Link to comment Share on other sites More sharing options...
Marca Posted February 14, 2007 Report Share Posted February 14, 2007 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 Quote Link to comment Share on other sites More sharing options...
Helio_hbinfo Posted February 14, 2007 Author Report Share Posted February 14, 2007 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 Quote Link to comment Share on other sites More sharing options...
Helio_hbinfo Posted February 15, 2007 Author Report Share Posted February 15, 2007 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 Quote Link to comment Share on other sites More sharing options...
personal Posted February 15, 2007 Report Share Posted February 15, 2007 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 Quote Link to comment Share on other sites More sharing options...
Helio_hbinfo Posted February 15, 2007 Author Report Share Posted February 15, 2007 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 Quote Link to comment Share on other sites More sharing options...
personal Posted February 15, 2007 Report Share Posted February 15, 2007 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. Quote Link to comment Share on other sites More sharing options...
Helio_hbinfo Posted February 16, 2007 Author Report Share Posted February 16, 2007 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 Quote Link to comment Share on other sites More sharing options...
Helio_hbinfo Posted February 16, 2007 Author Report Share Posted February 16, 2007 Bom dia a todos. Eu estou usando o XP SP2 e me parece que o programa nao esta conseguindo mandar as linhas de comando diretammente para a LPT1. Alguem sabe como fazer ? 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 Quote Link to comment Share on other sites More sharing options...
personal Posted February 16, 2007 Report Share Posted February 16, 2007 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. Quote Link to comment Share on other sites More sharing options...
Helio_hbinfo Posted February 16, 2007 Author Report Share Posted February 16, 2007 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 Quote Link to comment Share on other sites More sharing options...
personal Posted February 16, 2007 Report Share Posted February 16, 2007 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. Quote Link to comment Share on other sites More sharing options...
Valdir Posted February 16, 2007 Report Share Posted February 16, 2007 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 Valdir - Jundiaà - S.P. Quote Link to comment Share on other sites More sharing options...
Helio_hbinfo Posted February 20, 2007 Author Report Share Posted February 20, 2007 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 Quote Link to comment Share on other sites More sharing options...
Valdir Posted February 20, 2007 Report Share Posted February 20, 2007 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 Valdir - Jundiaà - S.P. Quote Link to comment Share on other sites More sharing options...
Helio_hbinfo Posted February 20, 2007 Author Report Share Posted February 20, 2007 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 Quote Link to comment Share on other sites More sharing options...
Helio_hbinfo Posted February 21, 2007 Author Report Share Posted February 21, 2007 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 Quote Link to comment Share on other sites More sharing options...
Valdir Posted February 22, 2007 Report Share Posted February 22, 2007 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 Valdir - Jundiaà - S.P. Quote Link to comment Share on other sites More sharing options...
gersonczjunior Posted May 24, 2009 Report Share Posted May 24, 2009 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.