Я создал такую систему выходных форм, где весь код который выполняется перед выводом на печать, то есть подготовительные выборки и прочая прочая хранится в custom классе(ах) и таких классов море с разными именами, но в программе они не прописаны т.е. они внешние vcx-сы и подгружаются в момент печатания. Живут они как данные а не как программа, и объем программы не увеличивают.

Вот примерно как:

sele OUT_FORM && таблица выходных форм
SCAN for INLIST(ID, &makro ) && только выбранные
if ! file(lcFrx_Path+alltrim(CLASS_NAME)+'.vcx')
=messagebox('не найден'+lcFrx_Path+;
alltrim(CLASS_NAME)+'.vcx',16,_msg)
RETURN .f.
else
set class to (lcFrx_Path+'whenprg.vcx') , (lcFrx_Path+alltrim(CLASS_NAME)+'.vcx') addi
endif

if vartype(_SCREEN.Out)#'U'
* мочить
.RemoveObject('Out')
endif

.AddObject('Out',alltrim(CLASS_NAME),alltrim(FRX_NAME), This.My_Form )
if .Out.When() && предкод

* Внутри Report можно обращаться к порождающей форме
* как _SCREEN.Out.My_Form
.Out.Out(llVar) && собственно печать
* посткод
llRetu = .Out.Valid()
* мочить
*.RemoveObject('Out')
else
=messagebox('Ошибочка вышла!',16,_MSG)
llRetu = .f.
endif

ENDSCAN