Page 1 of 1

Como obtener el valor num de oPrn:nVertRes()

Posted: Fri Feb 24, 2006 1:40 pm
by devwin2004
Estimados Colegas

Como puedo obtener el valor numerico de oPrn:nVertRes(),oPrn:nHorzRes()
y asignarselo a una variable

desde ya muchas gracias
Dante
devwin2004@yahoo.com.ar

Posted: Fri Feb 24, 2006 3:56 pm
by DanielPuente
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,