сейчас парюсь как раз над этим
вот пример моего кода
(он работает)

-если нужны пояснения сигналь-



********************************* Подключаю шаблон **************************************************
*LOCAL xlapp as Excel.Application

xlapp = GETOBJECT(disk_rab_path+'TTN\шаблоны\ТТН-1 (книжная форма)','excel.application')

*LOCAL xlbook as Excel.Application
xlbook = xlapp.workbooks.add(disk_rab_path+'TTN\шаблоны\ТТН-1 (книжная форма)')

*LOCAL xlsheet as Excel.Application
xlbook.sheets('ТТН-1 (1)')
xlsheet = xlapp.activesheet
xlapp.visible = .f.
******************************************************************************************************
*********************** Шапка ****************************************************

xlsheet.cells(5,7)=unn_my &&"УНН"
xlsheet.cells(6,7)=unn_my &&"УНН"
xlsheet.cells(7,7)=lic_my &&"Лицензия"
xlsheet.cells(5,16)=nUnnGruzopol &&"УНН"
xlsheet.cells(6,16)=nUnnGruzopol &&"УНН"
xlsheet.cells(7,16)=nLicGruzopol &&"Лицензия"
xlsheet.cells(5,25)=unn_my &&"УНН"
xlsheet.cells(6,25)=unn_my &&"УНН"
xlsheet.cells(7,25)=lic_my &&"Лицензия"
xlsheet.cells(11,3)=ndatattn &&"Дата"
xlsheet.cells(21,5)=nGruzoPol &&Наименование получателя
xlsheet.cells(25,13)=nrtpav &&"Пункт разгрузки"
xlsheet.cells(23,5)=nDogovor &&"Основание отпуска"
xlsheet.cells(23,26)=ncelpr &&"Цель приобретения"
xlsheet.cells(14,31)=nttn &&"номер ттн"
xlsheet.cells(16,31)=nkplat &&"Код заказчика пл"
xlsheet.cells(18,31)=nkgrotp &&"Код грузоотправителя"
xlsheet.cells(20,31)=nkgrpol &&"Код грузополучателя"
xlsheet.cells(22,31)=nktpk &&"Код пункта разгрузки"

********************** Заполнение данными ****************************************
SELECT body_ttn
GO top
sch=33
ysl=0


xlsheet.rows(sch+1).insert
xlsheet.rows(sch).Copy
xlsheet.rows(sch+1).PasteSpecial(1,1,.t.,.f.)


DO WHILE EOF()=.f.


xlsheet.cells(sch,3)=par_np &&"Индекс производства"
xlsheet.cells(sch,4)=ALLTRIM(lprekpav) &&"Наименование продукци"

IF LEN(ALLTRIM(lprekpav)) >par_local.visr*2
xlsheet.cells(sch,3).RowHeight =par_local.vis*3
ELSE
IF LEN(ALLTRIM(lprekpav)) >par_local.visr
xlsheet.cells(sch,3).RowHeight =par_local.vis*2
ELSE
xlsheet.cells(sch,3).RowHeight =par_local.vis
ENDIF
endif

xlsheet.cells(sch,7)=edizm &&"шт"
*xlsheet.cells(sch,8)=vietdez &&"штук"
xlsheet.cells(sch,9)=antkainis &&"Цена"
xlsheet.cells(sch,16)="0" &&Скидка
xlsheet.cells(sch,24)=proc &&"НДС"
xlsheet.cells(sch,27)="ящ"
xlsheet.cells(sch,28)=vietos &&"ящиков"
xlsheet.cells(sch,29)=vietdez &&"Фасовка"
*xlsheet.cells(sch,32)="1"
xlsheet.cells(sch,32)=galter/1000 &&"вес"


ysl=ysl+1
sch=sch+1

skip
if EOF()=.f.
xlsheet.rows(sch).insert
xlsheet.rows(sch+1).Copy
xlsheet.rows(sch).PasteSpecial(1,1,.t.,.f.)
endif
ENDDO
xlsheet.rows(sch).delete

************************* Примечание **********************************************
sch=sch+7
SELECT body_ttn
*SET ENGINEBEHAVIOR
SELECT DISTINCT par_p," " as nomera;
FROM body_ttn;
GROUP BY par_p;
into CURSOR prei readwrite
GO top
nai=""
DO WHILE EOF()=.f.
SELECT body_ttn
nnomera=""
LOCATE FOR par_p=par_p
DO WHILE FOUND()
IF AT(ALLTRIM(STR(par_np)),nnomera)=0
nnomera=nnomera+"/"+ALLTRIM(STR(par_np))
endif
continue
ENDDO
SELECT prei
replace nomera With nnomera
nai=nai+ALLTRIM(nomera)+"-"+ALLTRIM(par_p)+"; "
skip
enddo
xlsheet.cells(sch,3)=nai
***********************************************************************************

xlbook.sheets._PrintOut(1,1,This.Parent.Parent.Parent.Spinner1.Value,.f.,.t.,.f.,.t.)&& берет принтер из системы по умолчанию
DELETE FILE('c:\ттн.xls')
xlapp.Run('макрос1')
xlapp.quit