ayuda con Printer

Post Reply
User avatar
wilsongamboa
Posts: 439
Joined: Wed Oct 19, 2005 6:41 pm
Location: Quito - Ecuador

ayuda con Printer

Post 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
Wilson 'W' Gamboa A
Wilson.josenet@gmail.com
Post Reply