Page 1 of 1

ayuda con Printer

Posted: Wed Jan 18, 2006 9:49 pm
by 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