CftClub.ru

[bvo]

Можно ли каким-либо образом посчитать количество страниц в полученном файле Excel, которое у юзеров получится при печати? У нас тариф зависит от количества этих полученных страниц.
По количеству строк не подойдет, потому что одна ячейка Excel может содержать назначение платежа, оно разной длины и соответственно, на странице может быть разное количество ячеек.

[Volod]

М.б. это поможет?

Excel Developer Reference
PageSetup.Pages Property
Returns or sets the count or item number of the pages in Pages collection.
Version Information
Version Added: Excel 2007

Syntax

expression.Pages

expression A variable that represents a PageSetup object.

[bvo]

Спасибо. Сработало вот это

If LastControl Is Nothing
' Действия при загрузке формы
Set xls = CreateObject("Excel.Application")
Set book = xls.Workbooks.Add';
Set sheet = book.Worksheets(1)
end if

и потом в секции Проверка

excel.cmd('MsgBox "Кол-во страниц " & Sheet.PageSetup.Pages.Count');

Только мне его теперь почему-то не передать в переменную. На экранную форму я скрытое поле положила, присваиваю значение, а оно не попадает в переменную. Что-то делаю не так

excel.cmd('V_Pages.Text = Sheet.PageSetup.Pages.Count'')

[Volod]