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 :
cBuf 聽 聽 聽 聽:= DibToStr( hDib )Aqu铆 va el ejemplo :
#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 nilLo 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.
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4