Clipper/FiveWin - Imprimir un MEMO con justificación a la Dcha.

 
Vista:

Imprimir un MEMO con justificación a la Dcha.

Publicado por lorenzo (180 intervenciones) el 01/10/2006 22:57:28
Hola compañeros:_

Hasta ahora siempre he imprimido mis campos MEMO justificado a la Izda (por defecto), pero.... ahora me surge la necesidad de imprimir los campos Justificados a la DERECHA (aunque NO estén a la Izda.)

¿ Se puede hacer ?

Mil gracias
Lorenzo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Imprimir un MEMO con justificación a la Dcha.

Publicado por Antoni Maana (168 intervenciones) el 02/10/2006 08:00:54
Esta rutina lee un fichero de texto (un .INI) esta modificada del original pero debe servir igual:

* </> ------------------------------------------------------------------ </>
* </> ---&--- </> Lee el fichero </> ---&--- </>
* </> ------------------------------------------------------------------ </>

FUNCTION Leer(c_Fich)
LOCAL nLongitudLinea := 90 ,;
nTamanoTabulador := 3 ,;
lSaltoLinea := .T.

LOCAL nLineas, nLineaActual, cTexto, c_Linea, c_Tipo, a_Datos

cTexto := MemoRead(c_Fich)

nLineas := MLCOUNT(cTexto, nLongitudLinea, nTamanoTabulador, lSaltoLinea)

FOR nLineaActual := 1 TO nLineas
c_Linea:=RTRIM(MEMOLINE(cTexto, nLongitudLinea, nLineaActual,;
nTamanoTabulador, lSaltoLinea))
? PADL(c_Linea, 80)
NEXT
RETURN nil
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar