• Viernes 29 de Marzo de 2024, 00:52

Autor Tema:  Re: texto vertical en reportes de visual foxpro  (Leído 7265 veces)

mercy

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: texto vertical en reportes de visual foxpro
« en: Miércoles 30 de Abril de 2003, 16:58 »
0
hola necesito diseñar un reporte en vfp 6.0 de talforma que me muestre los campos de una tabla x, pero de forma vertical. pero no lo he logrado. eso lo quiero hacer por que asi me han pedido el diseño.

Les agradeceré cualquier comentario.


Mercy

Plinio

  • Miembro activo
  • **
  • Mensajes: 39
    • Ver Perfil
    • http://www.dominicanfox.cjb.net
Re: texto vertical en reportes de visual foxpro
« Respuesta #1 en: Miércoles 30 de Abril de 2003, 17:53 »
0
Con el reporte abierto ve a la opcion de  menú File (Archivo), selecciona Page setup( Configuracion de Página). Luego dale al botón Print Setup (configuracion de impresora). En la configuración de impresora en la opcion de Orientacion del papel sale por defecto "Portrait" selecciona "landscape".

mercy

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: texto vertical en reportes de visual foxpro
« Respuesta #2 en: Jueves 1 de Mayo de 2003, 01:47 »
0
gracias de todas formas por la respuesta, pero lo anterior que me indicas lo unico que me hace es cambiarme la orientacion pero de la pagina.

y yo lo que quiero es cambiar la orientación a vertical, (asi como en word o excel), pero del contenido de algunos campos que se muestran en el reporte.


Gracias, te agradesco, y tambien agradeceré nuevos comentarios. osea que el texto quede mas omeno asi:

t
e
x
t
o


Mercy

Plinio

  • Miembro activo
  • **
  • Mensajes: 39
    • Ver Perfil
    • http://www.dominicanfox.cjb.net
texto vertical en reportes de visual foxpro
« Respuesta #3 en: Jueves 8 de Mayo de 2003, 18:07 »
0
Ahora entendí tu duda. Sigue los siguientes pasos

Crea en un .prg (o como quieras hacerlo) la siguiente funcion: (vamos a llamarlo funciones.prg)

function varias_lineas
LPARAMETERS letrero_enviado
LOCAL letrero_devuelta
letrero_devuelta =""
FOR i = 1 TO LEN(letrero_enviado)
  letrero_devuelta = letrero_devuelta + SUBSTR(letrero_enviado,i,1)+CHR(13)
ENDFOR

RETURN letrero_devuelta
ENDFUNC

**Fin de la funcion

********
**Para ejecutarlo
SET PROCEDURE TO funciones.prg

letrero = "Hola Mundo" &&Pones lo que sea
letrero_resultado = varias_lineas(letrero)

****Ahora imprime "letrero_resultado" en tu reporte.


:good: