ayuda con Report

[wilsongamboa]

compañeros, buenas tardes

tengo un report que intento escribir al finalizar el listado una texto
donde se indique
el resposable para que firme

lo tengo asi

REPORT oReport ;
TITLE cTit1 ......
..........

GROUP ON Te_Acti->Num_recibo ;
FOOTER Alltrim(str(oReport:aGroups[1]:nCounter))+"
Item"+If(oReport:aGroups[1]:nCounter>1,'s','') ;
FONT 2 //EJECT ojo esto para que salte en cada grupo de hoja
END REPORT

ACTIVATE REPORT oReport WHILE Te_Acti->Num_Recibo == Num ;
ON ENDPAGE( FinPagina_Recibo( oReport ) )


STATIC FUNCTION FinPagina_Recibo( oReport )

oReport:oDevice:cmSay(17.8 ,05,"----------------",oReport:aFont[01],,)
oReport:oDevice:cmSay(18.0 ,05,"RECIBIDO" ,oReport:aFont[01],,)

oReport:oDevice:cmSay(17.8 ,10,"----------------",oReport:aFont[01],,)
oReport:oDevice:cmSay(18.0 ,10,"AUTORIZADO" ,oReport:aFont[01],,)

RETURN NIL

La pregunta es como imprimo al final del listado como se en que posicion
queda la impresora, ya que a veces cuando es mas grande el listados que los 17.8 cmst me queda mal esta impresion

Gracias x Todo
Att

Wilson 'W' Gamboa A
SoftWare Writer
swrite@uio.satnet.net

[DanielPuente]

Wilson:

Con la clase treport podes hacer cosas como esta:

ACTIVATE REPORT oReport ON CHANGE (SayMemoMIO(), oReport:NewLine()) ;
ON STARTPAGE StartRep() ;
ON INIT oReport:nStdLineHeight:=6.98 ;
ON POSTEND TotLst1Movi(tAceite,tOtro,tPrepuesto,tDrepuesto);
FOR !ANULADOMIO(@tAceite,@tOtro,@tPrepuesto,@tDrepuesto)


Static Funct TotLst1Movi(tAceite,tOtro,tPrepuesto,tDrepuesto)

Local cfila
Local wComiPesos:=0
Local wComiDolares:=0

cfila:=oReport:nRow*1.12
nuevalinea(oReport,4)
nuevalinea(oReport,4)
oReport:Say(1," Aceites $ "+TRANS(tAceite,"@ez 99,999.99")+;
" Otros $ "+TRANS(tOtro,"@ez 99,999.99")+;
" Repuestos $ "+TRANS(tPrepuesto,"@ez 99,999.99")+;
" U$S "+TRANS(tDRepuesto,"@ez 99,999.99"),4,,oReport:nRow)

Return nil

Function nuevalinea(oReport,n)

local i
for i:= 1 to n
oReport:NewLine()
next

Return nil

Saludos,

[wilsongamboa]

Daniel gracias x responder

Precisamente necesito saber cual es la variable (Data) del report
donde esta en ultimo numero de fila donde termino el reporte y poder escribir debajo de el

Y claro si existe una funcion para poder expresarle en centimetros ese valor

Perdon por la ignorancia, no me llevo bien ni con la clase report ni con la printer

Saludos

[DanielPuente]

Precisamente necesito saber cual es la variable (Data) del report
donde esta en ultimo numero de fila donde termino el reporte y poder escribir debajo de el

Esa variable de instancia seria oReport:nRow, pone un ? oReport:nRow en el codigo del reporte para ver que contiene, no recuerdo si eso tiene la cantidad de filas del reporte hasta ese momento o si es en pixeles. En cualquiera de los dos casos vos podes saber si corresponde o no hacer corte de hoja haciendo los calculos pertinentes (segun la cantidad de filas que entran en la hoja que usas o en pixeles)

Saludos,