Uso la versión de FWH 12.04 y con este ejemplo que incluyo (basado en el report.prg de samples) al exportar a PDF el programa se aborta sin arrojar error. A base de depurar he encontrado que la función que falla está en PRV2PDF.PRG , la función Emf2Jpeg , concretamente en la línea :
- Code: Select all Expand view RUN
- cBuf := DibToStr( hDib )
Aquí va el ejemplo :
- Code: Select all Expand view RUN
- #include "FiveWin.ch"
#include "Report.ch"
static oWnd
function Main()
local oMiRep, oMiFuente
DEFINE FONT oMiFuente NAME "Arial" SIZE 11,0
USE Customer
REPORT oMiRep PREVIEW
COLUMN TITLE "First" DATA Customer->First
COLUMN TITLE "Last" DATA Customer->Last
COLUMN TITLE "State" DATA Customer->State
END REPORT
ACTIVATE REPORT oMiRep ON STARTPAGE ImprimePie (oMiRep,oMiFuente)
USE
RELEASE FONT oMiFuente
return nil
function ImprimePie (oMiRep,oMiFuente)
Local nPosX1:=oMiRep:nLeftMargin,;
nPosX2:=oMiRep:nWidth-oMiRep:nLeftMargin,;
nYFot1:=oMiRep:nBottomRow-5,;
nYFot2:=oMiRep:nBottomRow-5
If oMiRep:lTotal
nYFot1:=oMiRep:nBottomRow+(oMiRep:nStdLineHeight*2)+5
nYFot2:=nYFot1
Endif
oMiRep:oDevice:Line(nYFot1,nPosX1,nYFot2,nPosX2)
oMiRep:oDevice:Say( nYFot1+10,nPosX2-100, "* TEXTO PIE DE PAGINA *", oMiFuente )
return nil
Lo curioso es que si no imprimo el pie de página (omitir la opción ON STARTPAGE de activación al REPORT), la exportación a PDF funciona a la perfección.
¿Alguna idea?
Muchas gracias.
