[kiman.ru]

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

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

Код:

1 2 3 4 5 6 7 8 9

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;