Что использовать для печати отчета? - VB

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

Народ, посоветуйте, что лучше использовать для печати товарно-транспортной накладной и еще пару отчетов на принтере из VB-6. Суть в том что есть шапка какая-то, таблица с товарами и внизу страницы контакты. Хотелось бы что бы можно было сначала просмотреть, а потом напечатать и что бы была возможность составить несколько страниц одновременно. Мне в голову только динамическое составление Word страниц приходит. Но наверное есть специальные отчеты какие-нибудь?

Решение задачи: «Что использовать для печати отчета?»

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

                            <font color="green">'Проверим, есть ли  разрывы страниц и правильно ли они расставлены:
<br>wbD.Windows(1).View = xlPageBreakPreview
<br>
<br>'</font> N - всего строк в документе, <b><font color="darkblue">6</font></b> = <b><font color="darkblue">2</font></b> строки с товарами + <b><font color="darkblue">4</font></b> строки хвостовика
<br><font color="blue">With</font> shD
<br>    <font color="blue">If</font> .HPageBreaks.<font color="blue">Count</font> > <b><font color="darkblue">0</font></b> Then
<br>        Dim pb <font color="blue">As</font> HPageBreak, rngHPB <font color="blue">As</font> Range
<br>        <font color="blue">Set</font> rngHPB = .HPageBreaks(.HPageBreaks.<font color="blue">Count</font>).Location
<br>        i = rngHPB.Row          'положение последнего разрыва
<br>        <font color="blue">If</font> N - i < <b><font color="darkblue">6</font></b> Then
<br>            .HPageBreaks.Add .Cells(N - <b><font color="darkblue">6</font></b>, <b><font color="darkblue">1</font></b>)
<br>        <font color="blue">End</font> <font color="blue">If</font>
<br>        <font color="blue">For</font> Each pb In .HPageBreaks
<br>            <font color="blue">Set</font> rngHPB = pb.Location
<br>            i = rngHPB.Row - <b><font color="darkblue">1</font></b>
<br>            <font color="blue">With</font> .Range(Cells(i, <b><font color="darkblue">2</font></b>), Cells(i, <b><font color="darkblue">7</font></b>)).Borders.Item(xlEdgeBottom)
<br>                .LineStyle = xlContinuous
<br>                .Weight = xlHairline
<br>            <font color="blue">End</font> <font color="blue">With</font>
<br>        <font color="blue">Next</font> pb
<br>    <font color="blue">End</font> <font color="blue">If</font>
<br><font color="blue">End</font> <font color="blue">With</font>
<br>
                        