Evitar avance de página

[RPATON]

Tengo un formulario con EasyReport y quiero evitar que al finalizar de imprimir se avance el folio hasta el tamaño indicado por el formato de papel ya que utilizo papel contínuo. Si cambio el tamaño del papel a un formato inferior al A4 siempre me salta hasta el A4 en XP. Con Windows 98 no ocurre.

[Antonio Linares]

Ricardo,

has probado ha definir el tamaño de página que vas a usar con PrnSetSize( nAncho, nAlto ) ?

[RPATON]

He cambiado esto en la VRD.PRG para cuando quiero que se tenga en cuenta el largo de página del reporte creado con EasyReport y así si funciona. Mantengo en mi programa dos campos para el ancho y el largo y una variable (oApp:ImpDoc) para indicar a la clase que se ejecute de esta forma.

METHOD SetPaperSize( aSize ) CLASS VRD

LOCAL aSizes

IF empre2->ancho#0 .and. empre2->largo#0 .and. oApp:ImpDoc
::oPrn:SetSize( empre2->ancho*10, empre2->largo*10)
ELSE
IF aSize <> NIL
::oPrn:SetSize( aSize[1], aSize[2] )
ELSE

IF ::nPaperSize = 42
::oPrn:SetSize( ::nPaperWidth, ::nPaperHeight )
ELSE
::oPrn:SetPage( ::nPaperSize )
ENDIF

ENDIF

ENDIF

RETURN ( NIL )

[Antonio Linares]

bien