Algun Ejemplo para crear un reporte PDF

[ruben Dario]

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

[Manuel Aranda]

Sería algo así como esto:

Code: Select all

..........................
          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


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

 

[ruben Dario]

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()

[karinha]

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

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

Saludos.