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;
КонецЦикла;
так не работает...
|
|