Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Part of the string - in Bold
Message
 
 
À
12/01/2001 22:12:37
Dragan Nedeljkovich
Now officially retired
Zrenjanin, Serbia
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Divers
Thread ID:
00461366
Message ID:
00463416
Vues:
18
>>>>IOW, Buyer name is in Bold, then follows Address, then use code.
>>>>The question is: how can I make Buyer Name Bold? If I would use separate fields for these, how can I arrange them?
>>>
>>>Why not just put two expressions on there, one for the buyer name in bold, and teh other for the address? Thats all I would do, I wouldn't try and stick them toghether, it would just make the report look messy, IMO.
>>
>>Mike,
>>
>>I have Business Requirements, the Report should look like:
>>Mike Helland, Sauk Rapids, Minnesota, Use 101
>>Ed Rauh, Connecticut, Use 031
>>George Tasker, Texas, Use 111
>>
>>etc.
>>
>Just wandered whether to reply to this or not, since I wasn't summoned... but, could you use a way to have .rtf control on the report? I don't know if this was done before; I remember people had lots of trouble printing RTF stuff. Though RTF is supposed to be a memo etc, you could stuff something like
>
>{\b John Smith }, Limburg, Use 007
>
>into it and if you get it to print at all, it would print the name bold and the rest... now what was the opposite of bold? Chicken?

Hi Dragan,

I made it work. I put two fields, first: alltrim(Buyer)+", " in bold, the second FunStr() normal. Both are transparant and start at the same position.
This is the function:
********************************************************************
*  Description.......: Special function for CIU Buyer Index report
*  Calling Samples...:
*  Parameter List....:
*  Created by........:  Nadya Nosonovsky 01/13/2001 04:11:30 PM
*  Modified by.......:
********************************************************************
function FunStr
if recno()=1 && first record
     _screen.addproperty("OldFontName",_screen.fontname)
     _screen.addproperty("OldFontSize",_screen.fontsize)
     _screen.addproperty("OldFontBold",_screen.fontbold)
************ Settings for this report
     _screen.fontname="Times New Roman"
     _screen.fontsize=9
     _screen.fontbold=.t.
endif
local lnSpaces, lnFieldWidth, lnSpaceWidth, lcStr
lnFieldWidth=_screen.textwidth(alltrim(buyer)+", ")
lnSpaceWidth=_screen.textwidth(" ")
lnSpaces=lnFieldWidth/lnSpaceWidth
lcStr=space(lnSpaces)+alltrim(Address)+", "+alltrim(City)+", Use "+StateUse
if recno()=reccount() && last record
************ Restore old settings
     _screen.fontname=_screen.OldFontName
     _screen.fontsize=_screen.OldFontSize
     _screen.fontbold=_screen.OldFontBold

endif
return lcStr
Thanks to everyone for the great ideas.
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform