dorneles Posted April 15, 2008 Report Share Posted April 15, 2008 Quando termina de imprimir, a impressora avança muito papel em branco, nao imprimi nada, somente avança. Alguem tem uma solucao? oPrin:StartPage() @ 00,000 PSay Chr(27)+"@"+Chr(15) @ 01,000 PSay Chr(14)+PADC(aEmpresa) @ 02,000 PSay Repl("=",40) @ 03,000 PSay Chr(18)+"Numero : "+TRANSF(aGetCli.pe_id_pedido,"999999")+" Ficha Nº: "+TRANSF(aGetCli.pe_id_ficha,"9999999999999") @ 04,000 PSay Chr(18)+"Data : "+TRANSF(Parametro->dt_fat_atu,"@D")+" Turno : "+TRANSF(Parametro->turno,"99") @ 05,000 PSay Chr(18)+"Hora : "+TRANSF(TIME(),"99:99") @ 06,000 PSay Chr(18)+"Operador: "+aAcesso.u_apelido @ 07,000 PSay Chr(18)+"Cond.Pg.: "+LEFT(aGetCli.pe_descvenda,11)+" "+IF(aGetCli.pe_condvenda = 5,TRANSF(aGetCli.pe_apto1,"999"),"")+" Vr.: "+TRANSFORM(aGetCli.pe_vapto1 ,"@E 99,999.99") @ 08,000 Psay Chr(18)+"Cliente : "+TRANSF(LEFT(aGEtCli.pe_nm_cliente,28),"@!") @ 09,000 PSay Chr(18)+"--------------DISCRIMINACAO-------------" * nLi := 10 nCont := 1 DO WHILE nCont <= LEN(aCod) @ nli,000 PSay PONTO(aDes[nCont],40," ") nli++ IF modo = 3 @ nli,000 PSay TRANSF(aQtd[nCont],IIF(aQtd[nCont]#INT(aQtd[nCont]),"9999.999","999,999"))+" x "+TRANSF(aVlr[nCont],"@E 9999.99")+" = "+TRANSF(aTot[nCont],"@E 9,999.99")+" FC:"+TRANSF(aFicha[nCont],"@E 999999")+" Hrs:"+TRANSF(aHora[nCont],"@!") nSubTot += aTot[nCont] nFicha := aFicha[nCont] nCont++ IF nCont > LEN(aCod) nli++ @ nli,003 PSay " ========================" nli++ @ nli,003 PSay " Sub-Total -> "+TRANSFORM(nSubTot,"@E 999,999.99") ELSEIF aFicha[nCont] <> nFicha nli++ @ nli,003 PSay " ========================" nli++ @ nli,003 PSay " Sub-Total -> "+TRANSFORM(nSubTot,"@E 999,999.99") nSubTot := 0 ENDIF ELSE @ nli,000 PSay TRANSF(aQtd[nCont],IIF(aQtd[nCont]#INT(aQtd[nCont]),"999,999.999","9,9999,999"))+" x "+TRANSF(aVlr[nCont],"@E 9,999.99")+" = "+TRANSF(aTot[nCont],"@E 9,999.99") nCont++ ENDIF nli++ ENDDO //resumo do consumo @ nli,000 PSay Chr(18)+"----------------------------------------" nli++ @ nli,007 PSay " Sub-Total -> "+TRANSFORM(aGetCli.pe_totproduto,"@E 999,999.99") nli++ IF modo = 2 @ nli,007 PSay " 10 %Garçon -> "+TRANSFORM(aGetCli.pe_garcon,"@E 999,999.99") ELSE @ nli,007 PSay " 10 %Garçon -> "+TRANSFORM((aGetCli.pe_totproduto*Parametro->garcon)/100,"@E 999,999.99") ENDIF nli++ @ nli,007 PSay " Entrada -> "+TRANSFORM(aGetCli.pe_couvert,"@E 999,999.99") nli++ IF modo = 2 @ nli,007 PSay " Desconto -> "+TRANSFORM(aGetCli.pe_desconto,"@E 999,999.99") nli++ @ nli,007 PSay " Total -> "+TRANSFORM(aGetCli.pe_total ,"@E 999,999.99") SELECT ItemPedido ELSE @ nli,007 PSay " Total -> "+TRANSFORM(aGetCli.pe_subtot ,"@E 999,999.99") SELECT ItemPedido GO nRegie ENDIF nli++ @ nli,000 PSay Chr(18)+"----------------------------------------" nLi += 1 @ nLi,000 PSay Repl(" ",2) oPrin:EndPage() oPrin:End() id=code>id=code>FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio Quote Link to comment Share on other sites More sharing options...
dorneles Posted April 15, 2008 Author Report Share Posted April 15, 2008 Quando termina de imprimir, a impressora avança muito papel em branco, nao imprimi nada, somente avança. Alguem tem uma solucao? oPrin:StartPage() @ 00,000 PSay Chr(27)+"@"+Chr(15) @ 01,000 PSay Chr(14)+PADC(aEmpresa) @ 02,000 PSay Repl("=",40) @ 03,000 PSay Chr(18)+"Numero : "+TRANSF(aGetCli.pe_id_pedido,"999999")+" Ficha Nº: "+TRANSF(aGetCli.pe_id_ficha,"9999999999999") @ 04,000 PSay Chr(18)+"Data : "+TRANSF(Parametro->dt_fat_atu,"@D")+" Turno : "+TRANSF(Parametro->turno,"99") @ 05,000 PSay Chr(18)+"Hora : "+TRANSF(TIME(),"99:99") @ 06,000 PSay Chr(18)+"Operador: "+aAcesso.u_apelido @ 07,000 PSay Chr(18)+"Cond.Pg.: "+LEFT(aGetCli.pe_descvenda,11)+" "+IF(aGetCli.pe_condvenda = 5,TRANSF(aGetCli.pe_apto1,"999"),"")+" Vr.: "+TRANSFORM(aGetCli.pe_vapto1 ,"@E 99,999.99") @ 08,000 Psay Chr(18)+"Cliente : "+TRANSF(LEFT(aGEtCli.pe_nm_cliente,28),"@!") @ 09,000 PSay Chr(18)+"--------------DISCRIMINACAO-------------" * nLi := 10 nCont := 1 DO WHILE nCont <= LEN(aCod) @ nli,000 PSay PONTO(aDes[nCont],40," ") nli++ IF modo = 3 @ nli,000 PSay TRANSF(aQtd[nCont],IIF(aQtd[nCont]#INT(aQtd[nCont]),"9999.999","999,999"))+" x "+TRANSF(aVlr[nCont],"@E 9999.99")+" = "+TRANSF(aTot[nCont],"@E 9,999.99")+" FC:"+TRANSF(aFicha[nCont],"@E 999999")+" Hrs:"+TRANSF(aHora[nCont],"@!") nSubTot += aTot[nCont] nFicha := aFicha[nCont] nCont++ IF nCont > LEN(aCod) nli++ @ nli,003 PSay " ========================" nli++ @ nli,003 PSay " Sub-Total -> "+TRANSFORM(nSubTot,"@E 999,999.99") ELSEIF aFicha[nCont] <> nFicha nli++ @ nli,003 PSay " ========================" nli++ @ nli,003 PSay " Sub-Total -> "+TRANSFORM(nSubTot,"@E 999,999.99") nSubTot := 0 ENDIF ELSE @ nli,000 PSay TRANSF(aQtd[nCont],IIF(aQtd[nCont]#INT(aQtd[nCont]),"999,999.999","9,9999,999"))+" x "+TRANSF(aVlr[nCont],"@E 9,999.99")+" = "+TRANSF(aTot[nCont],"@E 9,999.99") nCont++ ENDIF nli++ ENDDO //resumo do consumo @ nli,000 PSay Chr(18)+"----------------------------------------" nli++ @ nli,007 PSay " Sub-Total -> "+TRANSFORM(aGetCli.pe_totproduto,"@E 999,999.99") nli++ IF modo = 2 @ nli,007 PSay " 10 %Garçon -> "+TRANSFORM(aGetCli.pe_garcon,"@E 999,999.99") ELSE @ nli,007 PSay " 10 %Garçon -> "+TRANSFORM((aGetCli.pe_totproduto*Parametro->garcon)/100,"@E 999,999.99") ENDIF nli++ @ nli,007 PSay " Entrada -> "+TRANSFORM(aGetCli.pe_couvert,"@E 999,999.99") nli++ IF modo = 2 @ nli,007 PSay " Desconto -> "+TRANSFORM(aGetCli.pe_desconto,"@E 999,999.99") nli++ @ nli,007 PSay " Total -> "+TRANSFORM(aGetCli.pe_total ,"@E 999,999.99") SELECT ItemPedido ELSE @ nli,007 PSay " Total -> "+TRANSFORM(aGetCli.pe_subtot ,"@E 999,999.99") SELECT ItemPedido GO nRegie ENDIF nli++ @ nli,000 PSay Chr(18)+"----------------------------------------" nLi += 1 @ nLi,000 PSay Repl(" ",2) oPrin:EndPage() oPrin:End() id=code>id=code>FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio Quote Link to comment Share on other sites More sharing options...
toya Posted April 15, 2008 Report Share Posted April 15, 2008 Dorneles, sugiro dares uma analisada na vossa TDosPrn(), pois, em algumas "versoes" que rodam por ai tem um ::cFormFeed na METHOD EndPage() CLASS TDosPrn toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 15, 2008 Report Share Posted April 15, 2008 nLi += 1 nLi += 1@ nLi,000 PSay Repl(" ",2) nLi += 1 João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
dorneles Posted April 16, 2008 Author Report Share Posted April 16, 2008 Olá pessoal, ainda nada, notei que isso esta acontecendo somente no xp, no w2003 e win98 esta normal. FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio Quote Link to comment Share on other sites More sharing options...
kleyber Posted April 16, 2008 Report Share Posted April 16, 2008 Dorneles, Muito estranho teu problema. Experimentaste modificar isto aqui: oPrin:= TDosPrn():New("LPT1") para oPrin:= TDosPrn():New() Considerando que a impressora é a padrão do Windows. Abraços, Kleyber Derick xHarbour 1.1.0 + FWH 8.02 (BMW Zerada!!!) + xDevStudio + SQLLIB Visite São LuÃs - MA A Ilha dos Amores Quote Link to comment Share on other sites More sharing options...
dorneles Posted April 16, 2008 Author Report Share Posted April 16, 2008 Olá Kleyber, testei mas continua o problema. Obrigado FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio Quote Link to comment Share on other sites More sharing options...
aferra Posted April 16, 2008 Report Share Posted April 16, 2008 Olá Dorneles, blz...... eu vi que vc anda dando..... umas dicas por aÃ, rsrsrsrsrsrsrsrsrs Meu amigo, acho que vc deve baixar outra tdosprn somente para testar, pode ser que resolva....... Veja se te ajuda http://www.fivewin.com.br/exibedicas.asp?id=147 Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX "Nós nos transformamos naquilo que praticamos com freqüência. A perfeição, portanto, não é um ato isolado e sim um hábito". id=red> Quote Link to comment Share on other sites More sharing options...
vagner Posted April 16, 2008 Report Share Posted April 16, 2008 Olá Dorneles, Tente no Final do relatório colocar @ 00,00 PSay Chr(27)+"@" Isso fará ele ir para a próxima página e reinicializar a impressora Vagner Wirts VI Encontro está chegando , não perca P.S.: Outra coisa que eu reparei é que vc não está verificando se passou das 63 linhas Quote Link to comment Share on other sites More sharing options...
dorneles Posted April 17, 2008 Author Report Share Posted April 17, 2008 Olá Alessandro, resolveu, que sufoco passei com esse problema. add ai evaldodc@hotmail.com Olá vagner, não deu para testar, mas amanha vou testar. Obrigado FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio 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.