Возможно , но потребуется докомпиляция, типа такой
Код: Выделить всё
#component "Z_STAFF"
#include TStMailSend.vih
alter interface SPRMESR
( '')
;
overload
end;
create view NSPRMESR
as select Appendix.Contents
from Appendix
Where
((
1 == Appendix.ObjBlock and
Persons.Nrec == Appendix.Person and
200 == Appendix.ObjType
))
;
var tFoto : comIMailSend;
var strTmp:string ;
var SprMesR_Type:string;
HandleEvent
cmInit:
{ //message('1')
SaveMyDsk('SprMesR_FK_060','SprMesR_Type')
Inherited::HandleEvent(cmInit)
//message('2')
strTmp := GetStringParameter('Files', 'OutputFilesDirectory', 0) + 'tmp.bmp';
IF true // (not FrmSprMesR.error)
{ DeleteFile(strTmp);
if Not ReadMyDsk(SprMesR_Type,'SprMesR_Type',true) SprMesR_Type:='SprMesR_FK_060'
if(GetFirst Appendix = tsOK)
{ ExportMemoToFile(Appendix.Contents, strTmp, false);
PutFileToClient(UserPathVip + 'tmp.bmp', false);
PutFileToClient(UserPathVip + 'SprMesR.rtf', false);
if true
{tFoto := comIMailSend(new(coMailSend));
case SprMesR_Type of
'SprMesR_FK_069':tFoto.OLE_ADD_FOTO(ExDirectoryOut, 'SprMesR.rtf',3,3,15);
else tFoto.OLE_ADD_FOTO(ExDirectoryOut, 'SprMesR.rtf',3,4,17);
end;
}
else
{ INSFOTO(ExDirectoryOut, 'SprMesR.rtf',3,4,17);
}
// высота,положение по высоте, положение по горизонтали
}
}
abort ;
closeinterface(cmDone)
}
end;
end.
Проще форму переделать на Excel шаблон, а там уже макросом можно сотворить все что угодно.
При печати в Ecxel лучше реализовать один счет на лист.