forum.clarionlife.net

Код: Выделить всё

  ! инициализация
  EE.Init(TRUE, FALSE, GLO:ExcelStartNew)
  EE.ScreenUpdating(FALSE)
  EE.AddWorkbook
  ! выводим заголовок
  EE.Write(1,2, 'Прайслист по Хабаровским подразделениям')
  !EE.Write(2,2, 'По виду остатка: ' & CLIP(RT:RestDescription))
  EE.Write(3,2, 'На дату: ' & FORMAT(TODAY(), @D6.b))

  ! заголовок при печати
  ! делим страницу
  EE.SelectRange(RowPos,RowPos,RowPos,RowPos)
  !--------------------------------------------------------
  ! вывод заголовков
  EE.Write(RowPos,ColPos,  '№№')
  EE.Write(RowPos,ColPos+1,'Наименование товара')
  EE.Write(RowPos,ColPos+2,'Цена')
  !--------------------------------------------------------
  ! выводим очередь
  EE.WriteQueue(RowPos+1,ColPos,ReportData,2)
  !--------------------------------------------------------
  ! форматируем столбцы
  EE.SelectRange(RowPos,ColPos+2,RowPos+Rows,ColPos+2)
  EE.SetFormat(CellFormat:Numeric,2,1)      
  !--------------------------------------------------------
  ! рисуем рамку
  EE.SelectRange(RowPos,ColPos,RowPos+Rows,ColPos+(Cols-1))
  EE.DrawTable(BoxMode:Table, LineStyle:Continuous, BorderWeight:Thin)
  ! объединяем ячейки заголовка
  EE.SelectRange(1,1,1,Cols)
  EE.MergeCells(CellAlign:Center,CellAlign:Center)
  ! установка шрифта всей таблице
  EE.SelectRange(1,1,RowPos+Rows,ColPos+(Cols-1))
  EE.SetFont('Arial', 8)
  EE.AutoFit(XlFit:Horiz)
  ! форматируем заголовок
  EE.SelectRange(1,1)
  EE.SetFont('Arial',12,,FONT:Bold)
  ! форматирование заголовка таблицы
  EE.SelectRange(RowPos,ColPos,RowPos,ColPos+(Cols-1))
  EE.DrawTable(BoxMode:Table, LineStyle:Continuous, BorderWeight:Thin)
  EE.SetHorizAlign(CellAlign:Center)
  EE.SetFont(,,,FONT:Bold)
  EE.SetColour(COLOR:Silver)
  !EE.SetTextWrap(TRUE)
  EE.SetVertAlign(CellAlign:Center)
  EE.AutoFit(XlFit:Vert)
  EE.SetPageZoom(100)

  EE.SelectRange(RowPos,ColPos,RowPos,ColPos)
  EE.ScreenUpdating(TRUE)
  EE.Kill

Код: Выделить всё

ProgWindow    WINDOW(''),AT(,,1,1).