Вычисляемое поле вывести на печать.

[Sergant666]

Не выводится не в Excel не Word? выводит тока "invalid"

[=master=]

Как выводите?

[Sergant666]

в Excel

var
ExcelApp : variant;
row :integer;
col:integer;
str:string;
begin
dbgrid1.DataSource.DataSet.First;

ExcelApp:=CreateOLEObject('Excel.Application'); 
ExcelApp.WorkBooks.add;
ExcelApp.visible:=true; 

ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'ScorpioN'; 

for col :=0 to DBGrid1.Columns.Count-1 do
ExcelApp.WorkBooks[1].WorkSheets[1].cells[6,col+2].value:=dbgrid1.fields[col].displaylabel;

for row :=0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
for col :=0 to DBGrid1.Columns.Count-1 do
begin
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,col+2].value:=dbgrid1.DataSource.DataSet.Fields[col].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,1]:=row+1;
end;
DBGrid1.DataSource.DataSet.Next;
end;

ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,1]:='Дата создания';
ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,2]:=datetostr(now);
ExcelApp.WorkBooks[1].WorkSheets[1].visible:=true;
ExcelApp.WorkBooks[1].WorkSheets[2].visible:=false;
ExcelApp.WorkBooks[1].WorkSheets[3].visible:=false;