HikolayМожно ли определить положение от начала страницы текущего элемента?
Для VFP9 - можно.

HikolayИ при определенных условиях сделать перевод на новую страницу?
Если вы подразумеваете фразу "в зависимости от ранее вычисленного положения", то - нельзя.

Если же вы опишите собственно постановку задачи, а не выбранный способ решения, то возможно, найдутся другие способы решения. Например, задача "приклеивания" последней полосы деталировки к общему итогу (чтобы на последнем листе не оставались одни подписи без данных) вполне решаемая в любой версии FoxPro

HikolayПри печати отчета выводится заключение, формирующееся из имеющихся данных, и после заключения печаются должность и фамилия людей принявших в этом участие. Так вот необходимо, чтобы хоть один абзац был с фамилиями. И все фамилии были на одной странице.
Вы сами себе противоречите.

Либо "хоть один абзац с фамилиями", либо "все фамилии на одной странице". Какой именно вариант нужен?

Что из себя представляет сам отчет? Это некие строки деталировки после которых идет "итог" в виде подписей? И необходимо, чтобы:

1. Весь итог целиком (все подписи) печатался на одной странице
2. Вместе с итогом (с подписями) должна быть отображена хотя бы одна строка деталировки

Как формируется итог? Это переменное число строк или всегда фиксированное? Если переменное, то есть ли максимально возможное количество строк в итоге? Если предельного ограничения нет, то откуда уверенность, что все подписи поместятся на одном листе? Да еще со строкой деталировки?

Что такое "вывод"? Как он формируется? Это одна строчка? Откуда там "абзацы"? Почему "вывод" должен располагаться как-то отдельно от "подписей"? Почему их нельзя расположить в одной полосе отчета?

Все-так я не понял технологию формирования "вывода" и "подписей". По какой причине они могут оказаться на разных листах? Это просто гладкий текст, который загнали в один объект со свойством "Stretch with overflow"?

Кстати, а почему "выводы" собраны в общую кучу в конце отчета, а не отображаются непосредственно после показателей соответствующего продукта?

Насколько я понимаю, сейчас отчет имеет вид


Почему не сделать так

Сам я не пробовал, так что придется экспериментировать самостоятельно.

Идея заключается в том, что до момента исполнения отчета невозможно сказать, как и где будут распологаться объекты. Значит, необходимо прогнать отчет "в никуда", сделать необходимые замеры и по результатам замеров изменить данные. Например, добавить Chr(13) в начало строки формирования "вывода". Потом уже выполнять отчет "как положено"

Как это сделать? Ну, в версиях младше VFP9 довольно сложно. А вот в версии VFP9 можно сделать нужные замеры при помощи нового класса ReportListener (слушатель отчета).

Концепция формирования отчетов при помощи объектов (Object-Assisted Reporting) заключается в том, что отчет по прежнему все формирует сам, но есть определенные места, где отчет дает возможность просмотреть сформированный объект и, если необходимо, изменить некоторые его параметры.

Класс ReportListener - это новый базовый класс версии VFP9. Соответственно, можно создать класс-наследник от этого базового класса и выполнить в нем необходимую обработку. В этом случае, запуск отчета примет вид


Здесь MyReportListener - это как раз твой собственный класс на базе класса ReportListener

Первая задача прогона "в никуда" решается изменением свойства

ReportListener.ListenerType = 3 (или 2, если необходимо)

Еще одно полезное свойство

ReportListener.GetPageHeight() - оно показывает размер листа. Сопоставив его с текушей координатой объекта можно сделать вывод о том, сколько места осталось на листе

Для анализа содержимого и положения объектов может быть полезно перекрытие двух методов

ReportListener.EvaluateContents() - Событие, выполняющееся при формировании объекта Field-отчета

ReportListener.Render() - метод, выполняющийся непосредственно перед отрисовкой любого объекта отчета


Событие ReportListener.EvaluateContents() получает 2 параметра. Первый - номер записи в файле отчета FRX, который в данный момент обрабатывается. А второй - это объект, в свойствах которого записаны некоторые реквизиты сформированного текста.

Вот из свойств второго параметра можно вытащить сформированный текст.

Не думаю, что имеет смысл именно в этом событии менять текст поля, поскольку не вполне понятно, повлияет ли это на расположение других объектов. Впрочем, можно попробовать...

Метод ReportListener.Render() имеет несколько параметров определяющих координаты объектов. Особое внимание здесь следует обратить на параметр

nObjectContinuationType

Этот параметр содержит признак того, печатается ли текущий объект целиком на листе, является ли объект продолжением с предыдущего листа или он будет продолжен на следующем.

Проблема только в том, что в методе Render() ничего не известно о содержимом объекта. Поэтому придется синхронизировать его работу с событием EvaluateContents()

=======

В общем, по результату анализа можно, например, увеличить значение некоего счетчика (глобальной переменной), а строку "вывода" формировать примерно так


Вот это самое значение gnAddLine и будет наращиваться в классе ReportListener, пока расположение объектов не удовлетворит нужным требованиям. После этого можно уже будет запустить отчет как обычно.

=======

Но, повторюсь, сам я подобного разбора не делал. Поэтому экспериментировать придется самостоятельно...

Определение класса должно быть создано ДО его использования. Т.е. все команды DEFINE CLASS пишутся в отдельных файлах PRG. Собственно, создаются те же библиотеки классов, только другим способом. Поэтому нет никакой разницы, создадите вы класс в дизайнере классов или же в программном коде.

Далее надо указать FoxPro откуда брать определение класса. Для файлов PRG это просто ссылка на процедурный файл

SET PROCEDURE TO MyProg.prg

Для визуальных библиотек классов (файлов VCX) это команда

SET CLASSLIB TO MyClass.vcx

Далее команда

loListener = CreateObject("MyReportListener")

выполнит поиск нужного класса по указанным библиотекам.

Однако можно использовать функцию NewObject() отличие которой от CreateObject() в том, что нужную библиотеку классов можно указать напрямую в этой функции, без предварительнх настроек

loListener = CreateObject("MyReportListener", "MyClass.vcx")