| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
MS WORD [D5]
Ardeh © (2005-10-14 13:17:00)в-общем, нужно сделать вроде репорта через word
нашел такой пример работы с таблицой:
try
WordApp := CreateOleObject('Word.Application');
except
Exit;
end;
WordApp.Visible := True;
NewDoc := WordApp.Documents.Add;
iCols := tbl3.recordcount;
iRows := 6;
WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iCols, iRows);
tbl3.first;
for jGridCols := 2 to iCols do begin
WordTable.Cell(jGridCols, 1).Range.Text:=inttostr(iGridRows);
WordTable.Cell(jGridCols, 2).Range.Text:=tbl3.FieldByName('1').asString;
WordTable.Cell(jGridCols, 3).Range.Text:=tbl3.FieldByName('2').asString;
tbl3.next;
end;
WordApp := Unassigned;
NewDoc := Unassigned;
WordTable := Unassigned;
все отлично, но есть пара вопросов:
во-первых, каким образом я могу задать ширину каждой колонки?
во-вторых, как добавить простой текст до и после этой таблицы? :)
Digitman (2005-10-14 15:30:00) [1]Запиши соотв.макрос в Ворде, посмотри его текст, портируй этот текст в Паскаль.
И все !
Делов-то ..
Ardeh (2005-10-14 15:15:00) [2]солько не бьюсь, а проблема остается нерешенной
неужели некому помочь?
| |
