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.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Evitar avance de pƔgina
Ricardo,
has probado ha definir el tamaƱo de pƔgina que vas a usar con PrnSetSize( nAncho, nAlto ) ?
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
::SetSize( empre2->ancho*10, empre2->largo*10)
ELSE
IF aSize <> NIL
::SetSize( aSize[1], aSize[2] )
ELSE
IF ::nPaperSize = 42
::SetSize( ::nPaperWidth, ::nPaperHeight )
ELSE
::SetPage( ::nPaperSize )
ENDIF
ENDIF
ENDIF
RETURN ( NIL )
METHOD SetPaperSize( aSize ) CLASS VRD
LOCAL aSizes
IF empre2->ancho#0 .and. empre2->largo#0 .and. oApp:ImpDoc
::SetSize( empre2->ancho*10, empre2->largo*10)
ELSE
IF aSize <> NIL
::SetSize( aSize[1], aSize[2] )
ELSE
IF ::nPaperSize = 42
::SetSize( ::nPaperWidth, ::nPaperHeight )
ELSE
::SetPage( ::nPaperSize )
ENDIF
ENDIF
ENDIF
RETURN ( NIL )
bien 