Вывод данных в excel - массивом данных

[sergey113]

Делаю так..

ADOQuery4.Active:=false;
ADOQuery4.SQL.Clear;
s1:='SELECT tMain.Tab, tMain.Fam, tMain.Imya, tMain.Otch, tMain.Podr, tMain.Otd, tMain.dol, tMain.Resurs, tMain.Profile, 
tMain.Ur, tMain.Regim1, tMain.Regim2, tMain.Regim3, tMain.Regim4, tMain.Regim5 ';
s2:='FROM tMain Where tMain.Resurs="';
s3:=ComboBox1.text+'"';
ADOQuery4.SQL.Add(s1+s2+s3);
ADOQuery4.Active:=true;
Ap := CreateOleObject('Excel.Application');
Ap.Application.EnableEvents := false;
Ap.Workbooks.Open(ExtractFilePath(ParamStr(0))+'xlt\otchet.xlt');
Ap.Cells[7,1].Value := DateToStr(DateTimePicker1.DateTime)+' г.';
DataSource9.DataSet.First;
k:=0;
For i:= 0 to DataSource9.DataSet.RecordCount-1 do
begin
k:=k+1;
printt := VarArrayCreate([i+1, DataSource9.DataSet.RecordCount, 1, 12], varVariant);
printt[i+1,1] := IntToStr(i+1);
printt[i+1,2] := DataSource9.DataSet.FieldByName('Tab').asString;
printt[i+1,3]:= DataSource9.DataSet.FieldByName('Fam').asString+' 
'+DataSource9.DataSet.FieldByName('Imya').asString+' 
'+DataSource9.DataSet.FieldByName('Otch').asString;
printt[i+1,4]:= DataSource9.DataSet.FieldByName('Otd').asString;
printt[i+1,5]:= DataSource9.DataSet.FieldByName('Dol').asString;
//printt(5):= DataSource9.DataSet.FieldByName('Resurs').asString;
printt[i+1,6] := DataSource9.DataSet.FieldByName('Profile').asString;
printt[i+1,7] := DataSource9.DataSet.FieldByName('Ur').asString;
printt[i+1,8] := DataSource9.DataSet.FieldByName('Regim1').asString;
printt[i+1,9] := DataSource9.DataSet.FieldByName('Regim2').asString;
printt[i+1,10]:= DataSource9.DataSet.FieldByName('Regim3').asString;
printt[i+1,11]:= DataSource9.DataSet.FieldByName('Regim4').asString;
printt[i+1,12] := DataSource9.DataSet.FieldByName('Regim5').asString;
Ap.range[Ap.Cells[i+16,1],Ap.Cells[DataSource9.DataSet.RecordCount,12]]  ;
Ap.Range.Value := printt;
end;

по примеру как написано тут
http://programmersforum.ru/newreply....ote=1&p=387568

выдает ошибку неверное число параметров.

на последней строке присвоения...
Я уже прыгал по всякому, но у меня не получается... подскажите пожалуйста. Что я не так написал?

[mss]

Ap.Range[...].Value := ...;

[sergey113]

Сообщение от mss

Ap.Range[...].Value := ...;

Большое спасибо !
сам бы не додумался

[sergey113]

не могу также понять еще один момент. Если недоступен сетевой принтер,то этот код выполняется быстро за секунд 5. А если доступен, то за минут 5. Грузится процессор под 100 процентов. Отъедают spoolsv.exe и excel ... Это нормально ?
Можно как-то уравнять скорости....

[mss]

Для начала вынеси то до чего ты не додумался за пределы цикла по записям дейтасета.