Como obtener el valor num de oPrn:nVertRes()

[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

[DanielPuente]

Dante:

La forma de utilizarlo es la siguiente:

Code: Select all  Expand view  RUN

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,