Estoy usando Image2Pdf para generar PDF a partir de preview de listados. Tengo el problema de que en el preview los listados se ven bien, pero en los PDF las columnas se montan una encima de otra. Cuando genero el informe con el Report pongo una anchura de columna con la clausula SIZE pero no recorto el campo, es decir, no hago Substr(campo,1,longitud). Al generar el Preview me recorta automaticamente el contenido a mostrar en las columnas en función del ancho de la columna, pero al generar el PDF no recorta el ancho de las columnas como lo hace en el preview, y me muestra las cadenas completas montandose en la columna de la derecha.
El codigo que uso para lanzar el PDF es este:
- Code: Select all Expand view RUN
cPdfFileName := oApp():cPdfPath+RTrim(cPdfFileName)
TRY
if ValType( aFiles ) == "A"
I2PDF_License( "codigo de licencia" )
iErr := IPMeta() // Flag that his is a meta file
iErr := IPSize() // Reset the size
FOR ix := 1 TO LEN( aFiles ) // Build the pages using the array of temp files
imageFilename := aFiles[ix]
iErr := IPAddImg(imageFilename)
NEXT
iErr := IPSetDPI(0) // Set DPI to the default for PDF's. It works better.
iErr := IPMakePDF(cPdfFileName, 0, errorText, 40 ) // Create the PDF.
endif
CATCH
Alguien ha tenido un problema similar y lo ha solucionado.
Saludos,
