De Visual a Excel

Hay reportes que tengo que generarlos a Excel para luego enviarlos por e-mail. Lo hago utilizando rutinas como la que al final escribo. El problema es que no sé como establecer desde visual Fox el ancho de las columnas, los bordes y tipos. Por favor ayudame.
Te agradecería que me envíes la respuesta a [email protected]
LError=on("error")
on error xlapp=.null.
xlapp=getobject("Excel.Application")
on error &lerror
if isnull(xlapp)
xlapp=createobject("Excel.Application")
endif
with xlapp
.visible="True"
.DisplayAlerts="False"
.workbooks.add()
with .sheets(1)
.select
.name="Mi primera hoja"
endwith
endwith
xlsheet=xlapp.activesheet
xlsheet.cells(4,2).value="Tipo de Carga"
xlsheet.cells(4,3).value="Número de Buques"
with xlsheet.range("b4:c4")
.interior.colorindex=15
.Font.Bold="True"
.Font.Name="Arial"
.font.size=15
.font.shadow="True"
.font.colorindex()
endwith
xlapp.activewindow.displaygridlines="False"
xlsheet.printpreview
xlapp.quit