FiveTech Software tech support forums

@ nAlto, nAncho LISTBOX oLbx ;
FIELDS ......... ;
HEADERS ......... ;
FIELDSIZES ......... ;
SIZE ........ ;
ON DBLCLICK ( funcion 1 (), funcion2, etc)

Juan,

Puedes especificar el tamaño usando estos parámetros:

oPrn:SayBitmap( 0, 0, "screen.bmp", <nAncho>, <nAlto> )

... con un sistema híbrido (el tuyo y el mio) y en este caso, como en el REDEFINE del BROWSE aparecen los SIZE, es facil multiplicar cada uno por nAncho. Por otro lado, para centrar los Headers, tambien lo hago de esta forma. No hay de que; de paso estoy aplicando estas mejoras en mi sistema. ...

... con un sistema híbrido (el tuyo y el mio) y en este caso, como en el REDEFINE del BROWSE aparecen los SIZE, es facil multiplicar cada uno por nAncho. Por otro lado, para centrar los Headers, tambien lo hago de esta forma.

... Marcelo Gomes/Yuri Marcelino /// http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=10465 /// --------------------------------------- // nAncho ancho pantalla // nAlto alto pantalla // lPreguntar si pregunta antes de realizar el cambio /////////////////////////////////////////////////////////////////// ...

Guillermo,

aCoor := GetCoors( GetDesktopWindow() )

? aCoor[3], aCoor[4]

ó tambien:

nAncho := GetSysMetrics( 0 )
nAlto := GetSysMetrics( 1 )

antonio , en la clase printer oPRN:SetSize (nancho, nalto), nAncho es en cm, ml pulgadas, o en que?? ya le puse numero ahi y nomas no hace lo que quiero. necesito imprimir en fichas de deposito impresas en 3 al paso, es decir son 3 fichas en una ...

Mira si te sirve lo siguiente:

PRNSetSize (nAncho, nAlto)

... ) #DEFINE cSay rtrim(oxBrw:aHeaders[nColActual]) #DEFINE nPosCampo FieldPos(aCampos[nColActual]) #DEFINE nAncho 15 LOCAL uVar:=NIL // #DEFINE oCantidad oFld:aDialogs[2] #DEFINE oContenedorSay oContenedor:aControls[1] #DEFINE ...

... /// /// Box redondeada en centímetros para imprimir /// RCaja (oPrn, nArriba, nIzq, nAbajo, nDerecha, nAncho, nAlto, [oPen], [nColor]) /// nAncho y nAlto ancho y alto del arco, por ejemplo 150,150 /// nColor rellena con ese color la caja /////////////////////////////////////////////////// ...

... que RoundBox escribe mucho mas abajo. ¿Cual es el problema? /////////////////////////////////////////// Func RCaja(nArriba,nIzq,nAbajo,nDerecha,nAncho,nAlto,oPen, oPrn) Local xCor := {} , yCor := {} // Pasamos coordenadas de cms a pixel xCor := oPrn:Cmtr2Pix(nArriba,nIzq) yCor := oPrn:Cmtr2Pix(nAbajo,nDerecha) ...

Antes de crear el objeto PRINTER, con PRINTER oPrn ..., llama a la función PrnSetSize( nAncho, nAlto ) para establecer las dimensiones de la hoja.

Ricardo,

has probado ha definir el tamaño de página que vas a usar con PrnSetSize( nAncho, nAlto ) ?

... // Function ..: aBase // Descriptión: Create an array from dbf // Parameter .: cFichero (dbf name) // nAncho (array width) // cCampo (field name) // Return ..: acDevuelve -> array // Manuel Valdenebro ... MALAGA/SPAIN // ----------------------------------------------------------------------- ...

... := ALLTRIM( OemToAnsi( FormParse( VarDef[2] ) ) ) VarDef[3] := SUBSTR( ALLTRIM( VarDef[3] ), 4 ) AADD( cEtiqueta, M->Etiqueta ) AADD( nAncho, M->Ancho ) M->Bloque:= LEFT( VarDef[3], LEN( ALLTRIM( VarDef[3] ) ) - 1 ) bBloque+=ACaracter( M->Bloque, VALTYPE(&(M->Bloque)))+"," ...