Имя: Пароль:
1C
1С v8
границы в Excel
0 Woolf
 
21.05.12
17:35
Просьба подсказать либо ссылочку нарисовать по "разукрашиванию" екселя.
В особенности не могу найти как границы у ячеек шаблона прорисовать.
Вот, к примеру, делаю так:

ДиапазонЯчеек = List.Range(List.Cells(НомерСтроки, 1), List.Cells(НомерСтроки, 22));
       
       ДиапазонЯчеек.Font.Size = 8;
       ДиапазонЯчеек.Font.Bold = Истина;
       ДиапазонЯчеек.Borders(5).LineStyle  = -4142; // Очищаем все границы
       ДиапазонЯчеек.Borders(1).LineStyle  = 1; // Устанавливаем левую границу
       ДиапазонЯчеек.Borders(8).LineStyle  = 1; // Устанавливаем верхнюю границу
       ДиапазонЯчеек.Borders(9).LineStyle  = 1; // Устанавливаем нижнюю границу
       ДиапазонЯчеек.Borders(10).LineStyle = 1; // Устанавливаем правую границу
       ДиапазонЯчеек.HorizontalAlignment   = -4131; //Горизонтальное выравнивание текста 4131 -лево 4108 центр -4152 право
       ДиапазонЯчеек.VerticalAlignment     = -4107; //Вертикальное выравнивание текста
       
       
       Пока Выборка.Следующий() Цикл
       
       ДиапазонЯчеек.Copy(List.Range(List.Cells(НомерСтроки, 1), List.Cells(НомерСтроки, 22)));
       ДиапазонЯчеек.Insert();
               
       List.Cells(НомерСтроки,2).Value    = СокрЛП(Выборка.ШтрихКод);
       List.Cells(НомерСтроки,3).Value    = Выборка.АртикулПоставщикА;
       
       List.Cells(НомерСтроки,5).Value    = СокрЛП(Выборка.НоменклатураТоварА);
       List.Cells(НомерСтроки,6).Value    = СокрЛП(Выборка.ТорговаяМарка);
       List.Cells(НомерСтроки,7).Value    = "шт.";
       
       List.Cells(НомерСтроки,9).Value    = Выборка.ЦенА;
       List.Cells(НомерСтроки,10).Value   = "Без НДС";
       List.Cells(НомерСтроки,11).Value = Выборка.ЦенА;
       
       НомерПП     = НомерПП     + 1;
       НомерСтроки = НомерСтроки + 1;
   КонецЦикла;


так не работает...
1 mikecool
 
21.05.12
17:38