For Bold,Font, Font Size and Syle Formatting
chWorkSheet:Range("A1:BB7"):Font:Bold = TRUE.
chWorkSheet:Range("A1:BB65536"):Font:Name = "Times New Roman".
chWorkSheet:Range("A8:BB65536"):Font:Size = 9.
chWorkSheet:Range("C8:BB65536"):Style = "Comma".
chWorkSheet:Range("C6:AX6"):NumberFormat = "[$-409]mmm-yy;@".
Note ("A1:BB7" is Column A to B and Row 1 to 7
Colour Formatting
chWorkSheet:Range("O1:Q65536"):Interior:ColorIndex = 42.
Note
If Cahnge 42 Color Index as a anothe number Color will chainge.
For Boader
PROCEDURE border:
DEFINE INPUT PARAMETER chWS AS COM-HANDLE.
DEF INPUT PARAM cRange AS CHARACT.
DEF INPUT PARAM Bod-Col-Ind AS INTEGER.
DEF INPUT PARAM Int-Col AS INTEG.
chWS:Range(cRange):Borders(5):LineStyle = -4142.
chWS:Range(cRange):Borders(6):LineStyle = -4142.
chWS:Range(cRange):Borders(7):LineStyle = 1.
chWS:Range(cRange):Borders(7):WEIGHT = 2.
chWS:Range(cRange):Borders(7):ColorIndex = Bod-Col-Ind.
chWS:Range(cRange):Borders(8):LineStyle = 1.
chWS:Range(cRange):Borders(8):WEIGHT = 2.
chWS:Range(cRange):Borders(8):ColorIndex = Bod-Col-Ind.
chWS:Range(cRange):Borders(9):LineStyle = 1.
chWS:Range(cRange):Borders(9):WEIGHT = 2.
chWS:Range(cRange):Borders(9):ColorIndex = Bod-Col-Ind.
chWS:Range(cRange):Borders(10):LineStyle = 1.
chWS:Range(cRange):Borders(10):WEIGHT = 2.
chWS:Range(cRange):Borders(10):ColorIndex = Bod-Col-Ind.
chWS:Range(cRange):Borders(11):LineStyle = 1.
chWS:Range(cRange):Borders(11):WEIGHT = 2.
chWS:Range(cRange):Borders(11):ColorIndex = Bod-Col-Ind.
/* chWS:Range(cRange):Borders(12):LineStyle = 1. */
/* chWS:Range(cRange):Borders(12):WEIGHT = 2. */
/* chWS:Range(cRange):Borders(12):ColorIndex = Bod-Col-Ind. */
/* */
chWS:Range(cRange):Interior:ColorIndex = Int-Col.
chWS:Range(cRange):Interior
attern = 1.
Note:
Call this Procedur where you wan to apply the Border. using Run Command
I will attached 2 programs with this reply.
Thanks,
Sunil