[kiman.ru]

Подскажите как можно узнать количество страниц, которые будут напечатаны при печати файла формата Excel (ExcelWorkBook1.PrintOut)?

Например, чтобы посчитать это в документе Word:

Код:

var
  w: Variant;
  d: Variant;
begin
  w:=CreateOleObject('Word.Application');
  d:=w.Documents.Open(FileName:='c:\test.doc');
  Caption:=IntToStr(d.ComputeStatistics(2));
  d.Close;
end;