FiveTech Software tech support forums

Posted: **Wed Jul 01, 2015 4:27 pm**

Saludos al Forum
Algun ejemplo de como crear un reporte directamente en PDF, sin usar ningun programa utilitario.?

Posted: **Wed Jul 01, 2015 5:11 pm**

Sería algo así como esto:

..........................
          IF lPDF
             //
             PRINT oPrn FILE "HOJA4.PDF"
             REPORT oReport ;
             TITLE cTitulo  CENTER ;
             FONT oFont1,oFont2, oFont3 ;
             HEADER cHeader,cHeader2 CENTER ;
             FOOTER "Página: "+str(oReport:nPage,3) ;
             CAPTION cCaption;
             TO DEVICE oPrn
             //
          ELSE
             //
             REPORT oReport ;
             TITLE cTitulo  CENTER ;
             FONT oFont1,oFont2, oFont3 ;
             HEADER cHeader,cHeader2 CENTER ;
             FOOTER "Página: "+str(oReport:nPage,3) ;
             PREVIEW CAPTION cCaption
             //
          ENDIF


..........................

Posted: **Wed Jul 01, 2015 7:16 pm**

No, algo directamente de la libreria de PDF,
Algo asi

oPdf := tpdf():new( cPath )
titpdef( oPdf )

o

function main()
local oPDF
oPDF := PDFClass():New()
oPDF:nType := 1
oPDF:cFileName := "ARQUIVO.PDF"
oPDF:Begin()
foR nCont = 1 TO 1000
oPDF:MaxRowTest()
oPDF:DrawText( oPDF:nRow++, 0, nCont )
NEXT
oPDF:END()
RETURN

Pero no tengo esta Clase. PDFClass()

Posted: **Wed Jul 01, 2015 7:19 pm**

http://www.harbourdoc.com.br/show.asp?s ... y=PDFClass

http://www.pctoledo.com.br/forum/viewto ... 43&t=14475

Saludos.

FiveTech Software tech support forums

Algun Ejemplo para crear un reporte PDF

Algun Ejemplo para crear un reporte PDF

Re: Algun Ejemplo para crear un reporte PDF

Re: Algun Ejemplo para crear un reporte PDF

Re: Algun Ejemplo para crear un reporte PDF