ник: osmor
Переделал с учетом пожеланий, Кости и заказчика
Просьба (кому интересно) потестировать. И высказать свое мнение, и пожелания
Кое что поменялось
Есть 3 свойство и 3 метода
свойства:
FirstRow - Integer строка с которой на листе Excel будет расположен заголовок (если есть) или корневые категории (по умолчанию 1)
Title - String - заголовок для дерева
LevelStyleAsInTree - Boolean - устанавливает стиль и размер шрифта как в дереве, если установлено в TRUE, то в этом случае все настройки для уровня заданные методом SetLevelStyle игнорируются
Методы:
SetLevelStyle - устанавливает параметры шрифта для уровня
.SetLevel (Номер уровня, Размер шрифта, Код цвета для Шрифта,Код цвета Фона,Жирный, Наклонный)
Цвета пожно передавать в RGB в приципе класс должен сам разбираться что и как ...
например так:
pr.SetLevel 5, 15, 8, ,True, True
|
Для пятого уровня выставляем шрифт размером 15, цвет красный, фона нет, Жирный, наклонный.
можно не использовать по умолчанию шрифт 10, черный, простой, заливки нет.
Метод
SetTitleStyle - настроки для заголовка параметры как у
SetLevelStyle только без указания номера уровня
Метод PrintTree - собственно вывод в Excel в качестве параметра нужно указать Treeview например
pr.PrintTree Me.TreeVWGroup
|
Пример вызова:
Dim pr As clsPrintTree
Set pr = New clsPrintTree
pr.SetTitleStyle 25, 3, 12, True ' Выставляем стиля для заголовка
pr.SetTitleStyle Level 1, 12, 3, 8,True ' выставляем шрифт для перовго уровня, остальные по умолчанию
pr.FirstRow = 10 ' в Excel расположить с 10-й строки
pr.PrintTree Me.TreeVWGroup ' собственно печать контрола TreeVWGroup
|
Для Новичков:
Естественно DLL предварительно нужно регистрить ( c:\WINDOWS\system32\regsvr32.exe TreeView2Excel.dll) и устаноить из ACCESS ссылку на 'Export TreeView control to Ms Excel"
ВАЖНО:
Пока не понятно с правами ... заказчик вроде хочет делать какой-то платный набор тулзов... в общем в этой версии названия веток обрезаются до 5 символов. А то вдруг платить откажутся