Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Part of the string - in Bold
Message
 
 
To
12/01/2001 22:12:37
Dragan Nedeljkovich (Online)
Now officially retired
Zrenjanin, Serbia
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00461366
Message ID:
00463416
Views:
17
>>>>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform