Создание отчетов в VB6.5

Формулировка задачи:

VB6.5
вопрос такой. Какой бесплатный репорт можно использовать? Ключевое бесплатный.
Смотрел датарепорт и кристал репорт. Кристал репорт платный. Пробую использовать датарепорт. Компилирую на машине где visual studio стоит и переношу на машину без. Программа не работает.
Понятное дело DLL ки то нет в стандартных ActiveX. Читал вроде в SP3 есть в комплекте datareport. Обновил SP до 3 го, не помогло.
Очень неохота самому лабать репорты на формах, когда 30 строк кода спасают отца русской демократии.

Решение задачи: «Создание отчетов в VB6.5»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Sub</font> test()
<font color="blue">Randomize</font>
ooOpenDoc (<font color="teal">"F:\Проект\Шаблоны\Temp\ШаблонЦены.ods"</font>) <font color="00AA00">' открывает документ и передает его 'параметры системным переменным</font>

CreateStyle <font color="teal">"AAA"</font>, ooLightGrey, ooBlack, <font color="darkblue"><b>200</b></font> <font color="00AA00">' создает стиль форматирования AAA</font>

                <font color="blue">For</font> n = <font color="darkblue"><b>2</b></font> <font color="blue">To</font> <font color="darkblue"><b>5</b></font>
                    SetCellsFont <font color="darkblue"><b>7</b></font>, n, ooBold, <font color="darkblue"><b>12</b></font>    <font color="00AA00">' устанавливает шрифт, стиль болд</font>
                    BorderCells <font color="darkblue"><b>7</b></font> + i, n, ooBlack, ooBorder <font color="00AA00">' рисует рамку</font>
                <font color="blue">Next</font> n

        <font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>10</b></font>
                        PrintCells <font color="darkblue"><b>7</b></font> + i, <font color="darkblue"><b>2</b></font>, i    <font color="00AA00">' рисует значение на лист в координатах R1C1 экселя</font>
                        PrintCells <font color="darkblue"><b>7</b></font> + i, <font color="darkblue"><b>3</b></font>, <font color="teal">"Товар №"</font> & i
                        PrintCells <font color="darkblue"><b>7</b></font> + i, <font color="darkblue"><b>4</b></font>, Round(Rnd * <font color="darkblue"><b>100</b></font>, <font color="darkblue"><b>2</b></font>)
                        PrintCells <font color="darkblue"><b>7</b></font> + i, <font color="darkblue"><b>5</b></font>, Format(<font color="blue">Date</font>, <font color="teal">"DD/MM/YYYY"</font>)
                        StyleCells <font color="darkblue"><b>7</b></font> + i, <font color="darkblue"><b>5</b></font>, <font color="teal">"AAA"</font> <font color="00AA00">' стилизуем ячейки созданным стилем AAA</font>
                <font color="blue">For</font> n = <font color="darkblue"><b>2</b></font> <font color="blue">To</font> <font color="darkblue"><b>5</b></font>
                       BorderCells <font color="darkblue"><b>7</b></font> + i, n, ooBlack, ooBorder <font color="00AA00">'делаем рамки </font>
                <font color="blue">Next</font> n
        <font color="blue">Next</font> i

PrintSumForm <font color="darkblue"><b>18</b></font>, <font color="darkblue"><b>4</b></font>, <font color="darkblue"><b>8</b></font>, <font color="darkblue"><b>4</b></font>, <font color="darkblue"><b>17</b></font>, <font color="darkblue"><b>4</b></font> <font color="00AA00">' Пишем в ячйку формулу сумма 2 координаты ячейки, 4 координаты диапазона</font>
<font color="00AA00">' вывел её в отдельный саб, т.к. часто юзаю</font>
    BorderCells <font color="darkblue"><b>18</b></font>, <font color="darkblue"><b>4</b></font>, ooBlack, ooHighBorder <font color="00AA00">' рамка</font>
    SetCellsFont <font color="darkblue"><b>18</b></font>, <font color="darkblue"><b>4</b></font>, ooBolIt, <font color="darkblue"><b>12</b></font>  <font color="00AA00">' стиль шрифта БолдИталик</font>
ooPrintDoc  <font color="00AA00">' не работает</font>
ooSaveDoc (<font color="teal">"F:\Проект\Шаблоны\Temp\ШаблонЦены.ods"</font>) <font color="00AA00">' не работает, точнее работает но вызывает восстановление документа</font>
<font color="00AA00">'ooCloseDoc</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        