on error mx=createobject([Excel.application]) && в случае, если эксель не открыт, открыть
mx=getobject(,[Excel.application])
**********
on error
set hour to 24
set date to german
set cent on
******Таблица создана
mx.visible=.t. && excel стал видимым
mx.workbooks.add && Добавить рабочую книгу
mx.worksheets(1).select && Выбрать 1-й лист
mx.activeworkbook.sheets(1).name=[трам-па-пам] && Подставить вместо лист №1
XLSheet = mx.ActiveSheet

*********************************
*********************************
WITH mx.activeworkbook.sheets(1).PageSetup && установка параметров страницы
*
* .PrintTitleRows = "$3:$5" && эти строки печатать на каждой странице
*
.Orientation = 1 && ориентация листа (книжный/альбомный)

.LeftMargin = mx.CentimetersToPoints(1) && границы в сантиметрах
.RightMargin = mx.CentimetersToPoints(0.5)
.TopMargin = mx.CentimetersToPoints(1)
.BottomMargin = mx.CentimetersToPoints(0.5)

.FitToPagesWide = 1 && уместить отчет на 1 страницу по ширине
.FitToPagesTall = .f.
.Zoom=.f.
*
* .RightHeader = "&X&IСтраница &P" &&Печатать № страницы справа вверху
* .LeftHeader = "&X&IСтраница &P" &&Печатать № страницы слева вверху
* .CenterHeader = "&X&IСтраница &P" &&Печатать № страницы по центру вверху
*
.RightFooter = "&X&IСтраница &P из &N" &&Печатать № страницы справа внизу
* .LeftFooter = "&X&IСтраница &P" &&Печатать № страницы слева внизу
* .CenterFooter = "&X&IСтраница &P" &&Печатать № страницы по центру внизу
*
ENDWITH

*********************************
*********************************



************
*********
FNT=THISFORM.GRID1.FONTNAME
istr=6
WITH XLSheet.Cells(1,1)
.value="Шапка строка 1"
.Font.Bold = "True"
.Font.Size=14
ENDWITH

WITH XLSheet.Cells(2,1)
.value="Шапка строка 2"
.Font.Bold = "True"
.Font.Size=14
ENDWITH

WITH XLSheet.Cells(3,1)
.value="Шапка строка 3"
.Font.Bold = "True"
.Font.Size=14
ENDWITH
set date long
WITH XLSheet.Cells(4,1)
.value=[Дата составления: ]+dtoc(DATE())
.Font.Bold = "True"
ENDWITH
set date short

WITH XLSheet.Cells(4,1)
.value=[Ответственный: ]
.Font.Bold = "True"
ENDWITH


*********
istr=8
for x=1 to thisform.grid1.ColumnCount step 1
for xx=1 to thisform.grid1.ColumnCount step 1
if this.parent.grid1.columns(xx).columnorder=x
exit
endi
endfor
WITH XLSheet.cells(istr,x)
.value=thisform.grid1.columns(xx).header1.CAPTION
.FONT.NAME=M.FNT
.FONT.SIZE=thisform.grid1.FONTSIZE
.Borders(7).LineStyle=1
* .Borders(7).Weight=2
.Borders(8).LineStyle=1
* .Borders(8).Weight=2
.Borders(9).LineStyle=1
* .Borders(9).Weight=2
.Borders(10).LineStyle=1
* .Borders(10).Weight=2
* .Borders(11).Weight=2
* .Borders(12).Weight=2
* .Interior.Pattern = 3
ENDWITH
XLSheet.Columns(X).ColumnWidth = this.parent.grid1.columns(xx).WIDTH/7
endfor
sele (thisform.grid1.recordsource)
go top
do whil not eof()
istr=istr+1
for x=1 to thisform.grid1.ColumnCount step 1
for xx=1 to thisform.grid1.ColumnCount step 1
if this.parent.grid1.columns(xx).columnorder=x
exit
endi
endfor
if type([ eval(thisform.grid1.columns(xx).controlsource)])#[D]
WITH XLSheet.cells(istr,x)
.value=eval(thisform.grid1.columns(xx).controlsource)
.font.bold=iif(len(alltrim(thisform.grid1.columns(xx).dynamicfontbold))#0,eval(thisform.grid1.columns(xx).dynamicfontbold),.f.)
.FONT.SIZE=iif(len(alltrim(thisform.grid1.columns(xx).dynamicfontsize))#0,eval(thisform.grid1.columns(xx).dynamicfontsize),;
thisform.grid1.fontsize)
.Interior.Pattern = 2
.Interior.PatternColor =iif(type([eval(thisform.grid1.columns(xx).dynamicbackcolor)])=[N],;
eval(thisform.grid1.columns(xx).dynamicbackcolor),thisform.grid1.columns(xx).backcolor)
ENDWITH
if type([ eval(thisform.grid1.columns(xx).controlsource)])=[C]
WITH XLSheet.cells(istr,x)
.NumberFormat = "@"
ENDWITH
endi
else
if eval(thisform.grid1.columns(xx).controlsource)#ctod([ / / ])
WITH XLSheet.cells(istr,x)
.value=eval(thisform.grid1.columns(xx).controlsource)
.font.bold=iif(len(alltrim(thisform.grid1.columns(xx).dynamicfontbold))#0,eval(thisform.grid1.columns(xx).dynamicfontbold),.f.)
.FONT.SIZE=iif(len(alltrim(thisform.grid1.columns(xx).dynamicfontsize))#0,eval(thisform.grid1.columns(xx).dynamicfontsize),;
thisform.grid1.fontsize)
.Interior.Pattern = 2
.Interior.PatternColor =iif(type([eval(thisform.grid1.columns(xx).dynamicbackcolor)])=[N],;
eval(thisform.grid1.columns(xx).dynamicbackcolor),thisform.grid1.columns(xx).backcolor)
ENDWITH
endi
ENDIF


WITH XLSheet.cells(istr,x)
.Borders(7).LineStyle=1
* .Borders(7).Weight=2
.Borders(8).LineStyle=1
* .Borders(8).Weight=2
.Borders(9).LineStyle=1
* .Borders(9).Weight=2
.Borders(10).LineStyle=1
* .Borders(10).Weight=2
* .Borders(11).Weight=2
* .Borders(12).Weight=2
* .Interior.Pattern = 3
ENDWITH


endfor
skip
enddo

* доп оформление
*!* XLSheet.Columns("F:F").Select
*!* XLSheet.Columns("F:F").EntireColumn.AutoFit

*!* XLSheet.Columns("H:H").Select
*!* XLSheet.Columns("H:H").EntireColumn.AutoFit

*!* XLSheet.Columns("C:C").HorizontalAlignment = 1
*!* XLSheet.Columns("C:C").VerticalAlignment = -4160
*!* XLSheet.Columns("C:C").WrapText = .t.
*!* XLSheet.Columns("C:C").Orientation = 0
*!* XLSheet.Columns("C:C").ShrinkToFit = .f.
*!* XLSheet.Columns("C:C").MergeCells = .f.

Claymorehvh2014,

Угооооо (O_O)

Каков вопрос, таков ответ :)
копируем код в кнопку, вместо "thisform.grid1" пишем имя объекта из которого надо взять
оно само все сделает
плюсы не надо думать, форматирование тоже самое будет что и в гриде
минусы долго выгружает если таблица большая

Пожалуйста
честно говоря, я уже и не помню, сам писал или позаимствовал где-то..
лет 10 пользую, где нет больших таблиц