Here are some samples

With oleExcel
.Application.cells.font.name="Arial"
.Cells(1,1).Font.Bold =.T.
.Cells(1,1).Font.Underline =.T.
.Cells(1,1).Font.Size =.T.

.COLUMNS(1).NUMBERFORMAT = "$#,##0.00_);[Red]($#,##0.00)"

.ActiveSheet.PageSetup.LeftFooter="&6 "+DTOC(DATE())+" "+TIME()
ENDWITH
I hope this helps
Jerry R