Dante:
La forma de utilizarlo es la siguiente:
Code: Select all
STATIC FUNCTION E_lstcer(PAG,oPrn,oPen1,oFnt,oFnt2,oFnt3,oFnt4,oFnt5,oPen2)
Local nRowStep,nColStep,nInc:=1.13,nCol:=0.3
nRowStep = oPrn:nVertRes() / 90 // We want 90 COLS
nColStep = oPrn:nHorzRes() / 60 // We want 15 ROWS
oPrn:Say( nRowStep*1.5,nColStep*5.0, "PETRO", oFnt4 )
oPrn:Say( nRowStep*1.5,nColStep*9.0,"SUR", oFnt5,,RGB(0,0,206) )
oPrn:Say( nRowStep*3.2,nColStep*5.0, OemtoAnsi("Puerto San Juli n, Provincia de Santa Cruz"), oFnt,,CLR_BLACK )
oPrn:Say( nRowStep*4.4,nColStep*4.9, OemtoAnsi("ARGENTINA"), oFnt )
Linea(2.8,1.2,2.8,21.0,oPrn,oPen2)
O sea, dependiendo del tamaño de hojas que utilices y la cantidad de filas y columnas que quieras imprimir haces esa division:
nRowStep = oPrn:nVertRes() / 90 // We want 90 COLS
nColStep = oPrn:nHorzRes() / 60 // We want 15 ROWS
Y despues utilizas esos valores para los says, asi la impresion sera proporcional a la resolucion de la impresora y no cambiaran tanto las posiciones:
oPrn:Say( nRowStep*1.5,nColStep*5.0, "PETRO", oFnt4 )
Saludos,