Quiero generar un fichero PDF usando TPrinter pero sin utilizar HaruPDF. Hasta ahora hacía lo siguiente utilizando HaruPDF:
- Code: Select all Expand view RUN
cFile := oApp():cPdfPath+Rtrim(FI->FiNombre)+DtoS(date())+StrTran(Time(),":","")+'.pdf'
PRINTER oprn FILE cFile
oPrn:SetLandscape()
oPrn:lUseHaruPDF := .t.
oPrn:StartPage()
WITH OBJECT oPrn
nLin := 1.5// 0.5
nRow := 0.5
nMar := 1 // oAppl:MarGen
nDes1 := 2.4
nDes2 := 7.4
... aqui siguen los :cmsay del listado
:EndPage()
:GenHaruPdf( cFile, .f. )
:End()
END WITH
y me generaba el fichero en la ruta que yo indicaba. El problema de usar HaruPDF es que me descuadra los PDF que genero desde los listados - ver https://forums.fivetechsupport.com/viewtopic.php?f=6&t=44794&sid=c8abcb4d21aa6df0be9d15c47b7e8078 - y por eso quiero evitar su uso.
El problema es que no se generar el PDF son HaruPDF. Cambio oPrn:lUseHaruPDF := .t. por oPrn:lUseFWPDF := .t. y quito la linea de :GenHaruPdf( cFile, .f. ) y el fichero PDF no se genera en la ruta indicada. He visto los ejemplos print01.prg y print02.prg pero no me llego a enterar de qué hacer para generar los PDF. Me vendría genial una ayuda.
Saludos,
José Luis