Page 1 of 1
Evitar avance de página
Posted: Fri Mar 31, 2006 4:09 pm
by 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.
Posted: Sat Apr 01, 2006 7:09 am
by Antonio Linares
Ricardo,
has probado ha definir el tamaño de página que vas a usar con PrnSetSize( nAncho, nAlto ) ?
Posted: Mon Apr 03, 2006 11:28 am
by 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 _ 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 )
Posted: Mon Apr 03, 2006 11:58 am
by Antonio Linares
bien
