Boa tarde Toledo...
Tá inicializando a pagina na linha 05.
Só que não desenha...
Código: Selecionar todos
Function pdf2()
pdf := HPDF_New()
HPDF_SetCompressionMode( pdf, HPDF_COMP_ALL )
oPage := HPDF_AddPage(pdf)
/* HPDF_Page_BeginText(page)
HPDF_Page_MoveTextPos(page,15,height-20)
font := HPDF_GetFont( pdf, "Courier", NIL )
fontsize := 12
HPDF_Page_SetFontAndSize(oPage, font, fontsize)
FOR X = 1 TO 10
aPos :=HPdf_Page_GetCurrentPos( oPage )
cCOL :=STR( aPOS[1] )
cROW :=STR( aPOS[2] )
HPDF_Page_ShowText(page, 'LINHA: '+cROW + ' COLUNA: '+cCOL )
HPDF_Page_MoveTextPos(oPage,0,-12.5)
NEXT
HPDF_Page_EndText(oPage)
*/
*HPDF_Page_FillStroke( pdf )
*HPDF_Page_SetRGBFill( pdf, 0.9, 0.9, 0.9 )
*HPDF_Page_SetRGBStroke( pdf, 0.9, 0.9, 0.9 )
* L R W H
HPDF_Page_Rectangle( oPage, 30, 30, 100, 100 )
cFILETOSAVE := 'TESTEPDF.PDF'
x_ret= HPDF_SaveToFile( pdf, cFILETOSAVE )
HPDF_Free( pdf )
HB_RUN( 'START /MAX sumatra\sumatrapdf.exe -reuse-instance -lang pt '+cFILETOSAVE) //-restrict -fullscreen
return nil
Se eu "descomento" da linha 07 até a linha 21, ele imprime o texto do for/next. mas não desenha o retângulo.
Com a classe do Quintas eu consegui desenha e fazer o zebrado que eu quero, mas para eu inserir a classe dele no meu projeto agora, vai me dar muito trabalho devido aos relatórios já estarem todos prontos com a minha rotina da HPDF.
Só esse bendito retângulo não sai. Se eu conseguir desenha um, quebro a cabeça mais aqui e desenho o zebrado nos meus relatórios.
Ficou muito jóia os relatórios... Juntando uns códigos aqui e ali, consegui montar uma rotina que reconhece se a impressora é matricial ou laser e já direciona o tipo da impressão conforme o tipo da impressora já gerando o PDF configurado com os códigos ASCII dos relatórios da matricial.
Obrigado,
Rubens
"
