Вывод в xls

[jameswhite13]

Здравствуйте, подскажите пожалуйста, написал скрипт для вывода в таблицу, но он почему-то выводит в печать, причем на 1 страницу, а печатает одно и тоже пока не выключишь
Вот скрипт:
var
aBegin, aEnd: TDateTime;
begin
  aEnd := Now;                  // конец интервала: текущая дата;
  aBegin := IncHour(aEnd, -1); // начало интервала: текущая дата – 1 месяц;
  Tag1.ToExcel('MyFile', aBegin, aEnd, evtAll , False); // экспортировать в Excel минимальное, максимальное и среднее значение для каждого часа переменной MyVariable и распечатать результат;
Tag2.ToExcel('MyFile', aBegin, aEnd, evtAll , True);
Tag3.ToExcel('MyFile', aBegin, aEnd, evtAll , True);
Tag4.ToExcel('MyFile', aBegin, aEnd, evtAll , True);
end.
end.

[Fenix]

Компиляция не вызвала ошибки? Точно два End. в конце?

[jameswhite13]

скопипастил криво, на самом деле один, но не в этом дело. Компилится оно как с одним так и с двумя

[Simple-Scada]

jameswhite13, сейчас сделаем несколько тестов и проверим эту проблему. Завтра напишем о результатах.

[jameswhite13]

Спасибо

[Simple-Scada]

Попробуйте вот такой код, печать должна работать правильно:

Код

var
  aBegin, aEnd: TDateTime;
begin
  aEnd := Now;                  // конец интервала: текущая дата;
  aBegin := IncHour(aEnd, -1);  // начало интервала: текущая дата – 1 месяц;
  Tag1.ToExcel('MyFile1', aBegin, aEnd, evtAll , False); 
  Tag2.ToExcel('MyFile2', aBegin, aEnd, evtAll , True);
  Tag3.ToExcel('MyFile3', aBegin, aEnd, evtAll , True);
  Tag4.ToExcel('MyFile4', aBegin, aEnd, evtAll , True);
end.

Если печать не нужна, то последний параметр должен быть False, как у вас сделано для Tag1.

[jameswhite13]

Спасибо, заработало