Simple-Scada forum

Simple-Scada 2 => Ваши вопросы => Тема начата: jameswhite13 от 11 Августа 2016, 13:58:31

Название: Вывод в xls
Отправлено: jameswhite13 от 11 Августа 2016, 13:58:31

Здравствуйте, подскажите пожалуйста, написал скрипт для вывода в таблицу, но он почему-то выводит в печать, причем на 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.

Название: Re: Вывод в xls
Отправлено: Fenix от 11 Августа 2016, 14:09:55

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

Название: Re: Вывод в xls
Отправлено: jameswhite13 от 11 Августа 2016, 14:44:42

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

Название: Re: Вывод в xls
Отправлено: Simple-Scada от 11 Августа 2016, 20:32:56

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

Название: Re: Вывод в xls
Отправлено: jameswhite13 от 12 Августа 2016, 08:26:31

Спасибо

Название: Re: Вывод в xls
Отправлено: Simple-Scada от 12 Августа 2016, 20:03:40

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

Код

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.

Название: Re: Вывод в xls
Отправлено: jameswhite13 от 15 Августа 2016, 09:14:34

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