печать таблицы в delphi

[Танюха Ю]

есть таблица Stringgrid
нужно вывести на печать данные этой таблицы
таблица заполняется так

For i:=0 to k do
begin
    stringgrid1.colCount := i+1;
    k := op + s * (pr/100) * (30/360);
    s:=s-op; 
     stringgrid1.Cells[i+1,0]:=intToStr(i+1)+ ' месяц';
    stringgrid1.Cells[i+1,1]:=FloatToStr(op);
    stringgrid1.Cells[i+1,2]:=FloatToStr(Roundto(k, -2));

помогите написать код для печати таблицы


заранее, спасибо!!!

[Stilet]

нужно вывести на печать данные этой таблицы

На принтер?
Подумай как бы заюзать QReport или FastReport.

А я бы вообще ее в MS WORD выгонял и уже из Ворда печатал.

[Танюха Ю]

а как ее в MS WORD выгнать?
напишии код если не трудно.

[Stilet]

Код...
Хм... Он у меня разрознен...
В общем получаешь через CreateOleObject Ворд (типа запуска)
Далее создаешь таблицу в новом документе:

 w:=CreateOleObject('Word.Application');
 w.visible:=true;
 d:=w.documents.add;
 //****************************************************
 WordTable := d.Tables.Add(w.Selection.Range, 8, 7);
// здесь 8 строк 7 колонок

И в цикле как и со стринггридом:

WordTable.Cell(Строка, Колонка).Range.Text :=Чему-то