Page 1 of 1
Evitar avance de página
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
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.
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
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 ) ?
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
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 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 )
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Mon Apr 03, 2006 11:58 am
by Antonio Linares
bien
![Smile :)](./images/smilies/icon_smile.gif)