local loExcel
loExcel=createobject('Excel.Application')


local lobook
#define xlWBATWorksheet - 4167 
lobook=m.loexcel.workbooks.add(xlWBATWorksheet)
local losheet

&&&  1 -Й лист 
losheet=m.lobook.sheets( 1 )


#define xlcentr - 4108 
#define xltop - 4160 
#DEFINE xlThin  2 
#DEFINE xlDiagonalDown  5 
#DEFINE xlDiagonalUp  6 
#DEFINE xlEdgeLeft  7 
#DEFINE xlEdgeTop  8 
#DEFINE xlEdgeBottom  9 
#DEFINE xlEdgeRight  10 
#DEFINE xlInsideVertical  11 
#DEFINE xlInsideHorizontal  12 

LOCAL loRange

lorange=m.losheet.Range(m.losheet.cells( 1 , 1 ),m.losheet.cells( 1 , 7 ))
loRange.Borders(xlEdgeLeft).Weight = xlThin
loRange.Borders(xlEdgeTop).Weight = xlThin
loRange.Borders(xlEdgeBottom).Weight = xlThin
loRange.Borders(xlEdgeRight).Weight = xlThin
loRange.Borders(xlInsideVertical).Weight = xlThin
lorange.Merge
losheet.cells( 1 , 1 ).value='Журнал отгруженной продукции потребителям за период с '+alltrim(STR(thisform.spinner1.value))+' по '+alltrim(STR(thisform.spinner3.value))+' месяц '+alltrim(STR(thisform.spinner4.value))+' года.'
m.losheet.cells( 1 , 1 ).wraptext=.t.
m.losheet.rows( 1 ).rowheight= 50 
m.losheet.cells( 1 , 1 ).horizontalAlignment=xlcentr
m.losheet.cells( 1 , 1 ).verticalAlignment=xlcentr
m.losheet.cells( 1 , 1 ).font.bold=.t.
m.losheet.cells( 1 , 1 ).font.size= 14 



m.losheet.cells( 2 , 1 ).value='Тип'
m.losheet.cells( 2 , 2 ).value='Наименование организации'
m.losheet.cells( 2 , 3 ).value='Инн организации'
m.losheet.cells( 2 , 4 ).value='Сальдо начальное'
m.losheet.cells( 2 , 5 ).value='Дебетовый оборот'
m.losheet.cells( 2 , 6 ).value='Кредитовый оборот'
m.losheet.cells( 2 , 7 ).value='Сальдо конечное'

m.losheet.cells( 2 , 1 ).wraptext=.t.
m.losheet.cells( 2 , 2 ).wraptext=.t.
m.losheet.cells( 2 , 3 ).wraptext=.t.
m.losheet.cells( 2 , 4 ).wraptext=.t.
m.losheet.cells( 2 , 5 ).wraptext=.t.
m.losheet.cells( 2 , 6 ).wraptext=.t.
m.losheet.cells( 2 , 7 ).wraptext=.t.