flpcrz Posted July 11, 2007 Report Share Posted July 11, 2007 Boa tarde pessoal ! Estou com um problema q vejo como um erro, e nao sei o q fazer... Estou montando um relatorio muito simples no vPrinter, porém as letras aparecem como uns rabiscos no Preview, e qdo eu clico nas setinhas de cima pra esticar, ela fica enorme, nao sei o q fazer, ja q estou usando tamanho de fontes padrões meus, ai vai o dódigo, quem sabe batendo o olho vcs achem o erro, pq pra mim nao vejo nada: nLin := 00.00 PRINT oPrn NAME "Impressão de Etiquetas" PREVIEW oPrn:nFator := 4 nDiv := (oPrn:nLogPixelX()/300) //Pega divisor por causa da Laser e Jato DEFINE PEN oPen2 Width nDiv Of oPrn DEFINE PEN oPen3 Width nDiv+1 Of oPrn DEFINE FONT oFoImp0 NAME "Times New Roman" SIZE 0,-(18/nDiv) OF oPrn BOLD DEFINE FONT oFoImp1 NAME "Times New Roman" SIZE 0,-(7/nDiv) OF oPrn DEFINE FONT oFoImp2 NAME "Times New Roman" SIZE 0,-(9/nDiv) OF oPrn DEFINE FONT oFoImp3 NAME "Times New Roman" SIZE 0,-(9/nDiv) OF oPrn BOLD DEFINE FONT oFoImp4 NAME "Times New Roman" SIZE 0,-(8/nDiv) OF oPrn BOLD DEFINE FONT oFoImp5 NAME "Times New Roman" SIZE 0,-(12/nDiv) OF oPrn BOLD DEFINE FONT oFoImp6 NAME "Times New Roman" SIZE 0,-(12/nDiv) OF oPrn DEFINE FONT oFoImp7 NAME "Times New Roman" SIZE 0,-(10/nDiv) OF oPrn DEFINE FONT oFoImp8 NAME "Times New Roman" SIZE 0,-(10/nDiv) OF oPrn BOLD DEFINE FONT oFoImp9 NAME "c39hrp24dhtt" SIZE 0,-(11/nDiv) OF oPrn PAGE FOR ii = 1 TO wQtd_Etiq oPrn:VSay (nLin+02.00,01.00,nLin+03.00,02.00,{DTOC(wDta_Movi) + SPACE(10) + wPrz_Vali,2,3,1,1,1},oFoImp5) oPrn:VSay (nLin+04.00,01.00,nLin+05.00,02.00,{TRANSFORM(wPor_Caix,"999")+ " " + wUni_Caix + wGra_Prod,2,3,1,1,1},oFoImp5) oPrn:VSay (nLin+00.00,01.00,nLin+00.00,01.00,{wTip_Prod+wFor_Prod,2,3,1,1,1},oFoImp5) oPrn:VSay (nLin+00.00,01.00,nLin+00.00,01.00,{TRANSFORM(wNum_Lote,IIF(EMPTY(SUBSTR(wNum_Lote,4,1)),"999","@r 999/!")),2,3,1,1,1},oFoImp5) IF EMPTY(wCod_Bosh) oPrn:VSay (nLin+00.00,00.00,nLin+00.00,00.00,{wCod_Barr,2,3,1,1,1},oFoImp9) ELSE oPrn:VSay (nLin+00.00,00.00,nLin+00.00,00.00,{ALLTRIM(wCod_Bosh),2,3,1,1,1},oFoImp5) ENDIF nLin+=7 NEXT ENDPAGE ENDPRINT Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev Quote Link to comment Share on other sites More sharing options...
flpcrz Posted July 11, 2007 Author Report Share Posted July 11, 2007 Boa tarde pessoal ! Estou com um problema q vejo como um erro, e nao sei o q fazer... Estou montando um relatorio muito simples no vPrinter, porém as letras aparecem como uns rabiscos no Preview, e qdo eu clico nas setinhas de cima pra esticar, ela fica enorme, nao sei o q fazer, ja q estou usando tamanho de fontes padrões meus, ai vai o dódigo, quem sabe batendo o olho vcs achem o erro, pq pra mim nao vejo nada: nLin := 00.00 PRINT oPrn NAME "Impressão de Etiquetas" PREVIEW oPrn:nFator := 4 nDiv := (oPrn:nLogPixelX()/300) //Pega divisor por causa da Laser e Jato DEFINE PEN oPen2 Width nDiv Of oPrn DEFINE PEN oPen3 Width nDiv+1 Of oPrn DEFINE FONT oFoImp0 NAME "Times New Roman" SIZE 0,-(18/nDiv) OF oPrn BOLD DEFINE FONT oFoImp1 NAME "Times New Roman" SIZE 0,-(7/nDiv) OF oPrn DEFINE FONT oFoImp2 NAME "Times New Roman" SIZE 0,-(9/nDiv) OF oPrn DEFINE FONT oFoImp3 NAME "Times New Roman" SIZE 0,-(9/nDiv) OF oPrn BOLD DEFINE FONT oFoImp4 NAME "Times New Roman" SIZE 0,-(8/nDiv) OF oPrn BOLD DEFINE FONT oFoImp5 NAME "Times New Roman" SIZE 0,-(12/nDiv) OF oPrn BOLD DEFINE FONT oFoImp6 NAME "Times New Roman" SIZE 0,-(12/nDiv) OF oPrn DEFINE FONT oFoImp7 NAME "Times New Roman" SIZE 0,-(10/nDiv) OF oPrn DEFINE FONT oFoImp8 NAME "Times New Roman" SIZE 0,-(10/nDiv) OF oPrn BOLD DEFINE FONT oFoImp9 NAME "c39hrp24dhtt" SIZE 0,-(11/nDiv) OF oPrn PAGE FOR ii = 1 TO wQtd_Etiq oPrn:VSay (nLin+02.00,01.00,nLin+03.00,02.00,{DTOC(wDta_Movi) + SPACE(10) + wPrz_Vali,2,3,1,1,1},oFoImp5) oPrn:VSay (nLin+04.00,01.00,nLin+05.00,02.00,{TRANSFORM(wPor_Caix,"999")+ " " + wUni_Caix + wGra_Prod,2,3,1,1,1},oFoImp5) oPrn:VSay (nLin+00.00,01.00,nLin+00.00,01.00,{wTip_Prod+wFor_Prod,2,3,1,1,1},oFoImp5) oPrn:VSay (nLin+00.00,01.00,nLin+00.00,01.00,{TRANSFORM(wNum_Lote,IIF(EMPTY(SUBSTR(wNum_Lote,4,1)),"999","@r 999/!")),2,3,1,1,1},oFoImp5) IF EMPTY(wCod_Bosh) oPrn:VSay (nLin+00.00,00.00,nLin+00.00,00.00,{wCod_Barr,2,3,1,1,1},oFoImp9) ELSE oPrn:VSay (nLin+00.00,00.00,nLin+00.00,00.00,{ALLTRIM(wCod_Bosh),2,3,1,1,1},oFoImp5) ENDIF nLin+=7 NEXT ENDPAGE ENDPRINT Felipe Cruz. Santo Andre-SP FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev 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.