Как определить конец страницы в Excel

[vasiliy]

В Excel выгружается куча строк, при печати соответственно все это дело разбивается на страницы. Как при выгрузке можно определить что достигнут конец страницы? Высота строк может быть разной, поэтому простой подсчет не подходит.
Заранее спасибо.

[kashperuk]

если это нужно для того, чтобы вывести что-то в нижнем углу каждой страницы, так там (в Excel) для этого есть специальная опция/настройка. Правда не подскажу, как до нее добраться.

[vasiliy]

Нужно итог выводить постраничный

[Gustav]

Цитата:

Сообщение от vasiliy

Нужно итог выводить постраничный

мда, геморрная, конечно, задачка... когда-то я нечто подобное советовал для Word - попробуйте применить по аналогии, вдруг получится: Победить Word - отследить переход страницы.

P.S. Некоторая неприятность заключается в том, что у Excel я не нашёл такого простенького способа определения страниц, как через ComputeStatistics в Ворде. Но можно попробовать следить за кол-вом HPageBreaks на текущем листе после вывода очередной строки данных. Если увеличилось на 1, значит произошёл переход на следующую страницу.

[3oppo]

Цитата:

Сообщение от vasiliy

......
Высота строк может быть разной, поэтому простой подсчет не подходит.
.....

Используй сложный подсчёт! Сам так делал.

[Gustav]

Цитата:

Сообщение от Gustav

Некоторая неприятность заключается в том, что у Excel я не нашёл такого простенького способа определения страниц, как через ComputeStatistics в Ворде.

Вот такая компактная "полухакерская" конструкция возвращает текущее кол-во страниц в Excel на текущем sheet'е:

COM xlApp;      // Excel.Application
COMVariant cv;
....................................
// кол-во страниц на текущем (активном) рабочем листе Excel
cv = xlApp.ExecuteExcel4Macro('GET.DOCUMENT(50)');
info( strfmt('%1', cv.double()) );

Ну и теперь, собственно, можно применить "вордовый подход", о котором я говорю выше.

[vasiliy]

А что за функция ExecuteExcel4Macro?

[Gustav]

Цитата:

Сообщение от vasiliy

А что за функция ExecuteExcel4Macro?

Ну, это в хелпе по Excel VBA можно почитать. Запускает макрофункции Excel версии 4. Иногда в этих аналах истории встречаются полезные вещи.

Чтобы было не страшно пользоваться конструкцией, которую я привел, вот выдержка из хелпа (что это не "палёнка" ):

Цитата:

Сообщение от Microsoft Excel 4.0 Macro Functions

GET.DOCUMENT

Returns information about a sheet in a workbook.

Syntax

GET.DOCUMENT(type_num , name_text)

Type_num is a number that specifies what type of information you want. The following lists show the possible values of type_num and the corresponding results.

Type_num -- Returns
50 -- The total number of pages that would be printed based on current settings, excluding notes, or 1 if the document is a chart.

Name_text is the name of an open workbook. If name_text is omitted, it is assumed to be the active workbook.

Читая эту цитату, необходимо иметь в виду, что "workbook" в версии 4.0 это фактически то, что сейчас "worksheet". Давным-давно в одном файле Excel был только один рабочий лист.

[vasiliy]

А как добраться до ExecuteExcel4Macro из ComEcelDocument_RU? Что-то у меня куда его ни приставь все ошибка вылетает, мол неверная функция

[Gustav]

Цитата:

Сообщение от vasiliy

Что-то у меня куда его ни приставь все ошибка вылетает, мол неверная функция

Приставьте его к m_comApplication. И учтите, что будет возвращаться COMVariant. Сорри, это я немного лажанул выше - уже исправил.

[vasiliy]

Сработало. Только почему то возвращает всегда одно и то же число "-2146826259" %)

[Gustav]

А покажите весь метод?

[vasiliy]

    RNumDateInWordConverter converter = new RNumDateInWordConverter("ru"); //direct setup "ru" for external templates
    com comapp, comapp2;
    COMVariant cv;
    ;
    if (this.makeDocument())
    {
         .......
        rowCount = 0;
        while select assetInventoryTrans
            where assetInventoryTrans.InventoryTableRecId == assetInventoryTable.RecId &&
                  assetInventoryTrans.assetStandardId     == assetStandardId
        {
            assetTable = RAssetTable::find(assetInventoryTrans.AccountNum);
            rowCount++;
            excellDocument.insertRow(j);
            excellDocument.insertValue(ComExcelDocument_RU::numToNameCell(1, j), rowCount);
            ........
            j++;
            comapp = excellDocument.getComDocument();//.Application();
            comapp2 = comapp.application();
            cv = comapp2.ExecuteExcel4Macro('GET.DOCUMENT(50)');
            info( strfmt("%1", cv.char() ));
        }
        excellDocument.deleteRow(40);
        excellDocument.deleteRow(40 + rowCount);
        excellDocument.insertValue(ComExcelDocument_RU::numToNameCell(4, 43 + rowCount), converter.numeralsToTxt(rowCount));
        excellDocument.insertValue(ComExcelDocument_RU::numToNameCell(9, 62 + rowCount), rowCount);
        excellDocument.visible(true);
    }
}

Часть кода упустил. Это стандартный отчет Инвентаризация ОС, полный код можно посмотреть в классе \Classes\RAssetInventoryToExcell.

[Gustav]

Оператору info( strfmt("%1", cv.char() )); - отказать! И даже моему cv.int() - тоже... (уф!пошёл исправлять выше)

А вот cv.double() - пойдёт как надо!

Потому что если мы посмотрим на конец строки, возвращаемой cv.toString(), то увидим там VT_R8, что и есть double.

[vasiliy]

Все равно значение не изменяется. Может надо выставлять ориентацию листа вдобавок?

[Gustav]

Цитата:

Сообщение от vasiliy

Все равно значение не изменяется. Может надо выставлять ориентацию листа вдобавок?

С какого значения значение не меняется? Я посмотрел: сам пустой шаблон AssetInventory.XLT содержит 3 страницы. Причем строки выводятся вставкой во вторую страницу, смещая вниз элементы, расположенные ниже (сорри за тавтологию). Какой момент окончания заполнения мы ищем? Когда по нашей формуле с GET.DOCUMENT страниц станет не 3, а 4?

КСТАТИ! А у Вас этот лист является активным?! Если нет, то надо сделать ему где-нибудь Select !

[vasiliy]

Аксаптой клянусь. 0 выводится
Зато объект HPageBreaks правду говорит. 6 страниц отчета.

[Gustav]

C cv.double() ноль выводится?! Какая версия Аксапты?

Если с cv.double() выводится 0, то фокус стоит на каком-то абсолютно пустом листе, возможно, в другой рабочей книге.

Собственно, конечно, с HPageBreaks мы и начали. Если оно подходит, так можно и закончить на этом. Я не настаиваю именно на версии с GET.DOCUMENT. Единственное, что имейте в виду, что в этом шаблоне страницы в исходном виде - "двойные", и поэтому после 6 пойдет сразу 8, а не 7. Можно полечить, приведя к начальным 3, дав шаблону ручную команду "Файл - Параметры страницы - Разместить не более чем на 1 стр. в ширину".

[vasiliy]

Аксапта 3.0 сп3. Фокус никуда вроде специально не подставляется.

[Gustav]

ок, см. выше.