Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Pre-printed forms - too much text
Message
From
16/02/2004 14:57:57
Guy Pardoe
Pardoe Development Corporation
Peterborough, New Hampshire, United States
 
 
To
13/02/2004 17:23:51
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00877213
Message ID:
00877740
Views:
21
Thanks Carlos...

I'll look at this and see if I can work out a solution for my situation.

Guy


>I have the same problem in Colombia
>
>I solved printing using the old
>"@ x,y Say 'abcd...'"
>
>because I can control exacty the position of each variable
>
>I have the next UDF to part in lineas a sentence
>
>
>Function PartStr(cText, nLen)
>*****************************
>
>* Programa: PartStr.PRG
>* Autor: Carlos Fidel Restrepo Duperly
>* Fecha: 19.05.91
>* Realizado para DURESPO
>* Función que parte frases largas según una longitud
>* dada por nLen.
>
>* Chequea el último espacio blanco ("Rat()") hay en la longitud máxima de
>* la variable incrementada en 1 (Esto permite que se imprima una palabra más
>* sí la longitud es exacta).
>* Colocando el primer parámetro antecedido por el signo "@", se modifica el
>* valor de dicha variable quedando el remanente en ella.
>
>Local cText1
>
>If Len(m.cText) > m.nLen
> m.cText1 = Alltrim(Left(m.cText,Rat(' ',Left(m.cText,m.nLen+1))))
> m.cText = Alltrim(Substr(m.cText, Len(m.cText1)+1))
>Else
> m.cText1 = m.cText
> m.cText = ""
>endif
>
>RETURN m.cText1
>
>************************************
>
>Usage:
>
>cTexto = 'Esta es una Frase de varias palabras'
>? PartStr(@cTexto,15), '____', m.ctexto
>
>The explication is in Spanish but I think you can undestand how it works
Previous
Reply
Map
View

Click here to load this message in the networking platform