FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour ayuda con Printer
Posts: 670
Joined: Wed Oct 19, 2005 06:41 PM
ayuda con Printer
Posted: Wed Jan 18, 2006 09:49 PM

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

Continue the discussion