border around merged cells

[<tim.dclinc@xxxxxxxxx>]

I am using Scotts POI. Im would like to create a merged area with borders.
The following code is not producing a border around merged area. Any
suggestions?

 

mergerf = row#;                                                    

mergecf = 0;                                                       

mergert = row#;                                                    

mergect = 11;                                                      

hssf_merge( hssfsheet : mergerf : mergecf : mergert : mergect );   

head1style = HSSFWorkbook_createCellStyle( HSSFWorkbook);          

numfmt = 22;                                                       

currentFont = HSSFWorkbook_createFont( HSSFWorkbook);              

HSSFCellStyle_setBorderBottom( head1style    :border_thin);        

HSSFCellStyle_setBordertop( head1style       :border_thin);        

HSSFCellStyle_setBorderleft( head1style      :border_thin);        

HSSFCellStyle_setBorderright( head1style     :border_thin);        

HSSFCellStyle_setVerticalAlignment( head1style : ALIGN_fill   );   

HSSFCellStyle_setFillForegroundColor(head1style: numfmt);          

HSSFCellStyle_setFillPattern(head1style: PATTERN_1);               

HSSFCellStyle_setAlignment( head1style    :ALIGN_center);          

HSSFCellStyle_setFont(head1Style:currentFont);                     

HSSFFont_setBoldweight(currentfont:BOLDWEIGHT_BOLD);               

HSSFRow = HSSFSheet_createRow(hssfSheet:Row#);                     

HSSFRow_setHeight( HSSFRow : 410);                                 

hssf_text( HSSFRow :  0 : 'Client heading' : head1style);