1 Для передачи в текстовый файл КАК это было в ФПД 2,6 - элементарно - делаете ДВА отчета.. 1-й в ВФП - для вывода на экран или принтер
2-й отчет в ФПД 2,6 - его и выводите в тхт файл со всеми линиями.... куда уж проще...

2 - код для передачи в эксель
- делаете файл-шаблон экселевский с шакпой таблицы.. подписями директора и так далее а потом:

* Create a reference to Excel
objExcel = CreateObject("Excel.Application")
* Open an existing workbook
cFileName = fullpath('')+"template\Tel.xlt"
objBook = objExcel.WorkBooks.Open(cFileName)

objExcel.DisplayAlerts =.F.

=thermometr(10,100)

objExcel.Sheets("1").Select
* перешли на нужный лист шаблона

=thermometr(20,100)

objExcel.Range("a7").Select
StartRowNumber = 7
* перешли на нужную строку.. ведь выше нарисована шапка отчета

=thermometr(40,100)

select Tmp
goto top
=thermometr(70,100)
SCAN
* впариваете в эксель нужные Вам данные
objExcel.parent.cells(StartRowNumber,1).value = ALLTRIM(Tmp.nxp)
objExcel.parent.cells(StartRowNumber,2).value = ALLTRIM(Tmp.surname) + " " + ;
ALLTRIM(Tmp.name) + " " + ALLTRIM(Tmp.fathername)
objExcel.parent.cells(StartRowNumber,3).value = ALLTRIM(STR(DAY(Tmp.birthdate))) + ;
"." + ALLTRIM(STR(MONTH(Tmp.birthdate))) + "." + ALLTRIM(STR(YEAR(Tmp.birthdate)))
objExcel.parent.cells(StartRowNumber,4).value = ALLTRIM(Tmp.city)
objExcel.parent.cells(StartRowNumber,5).value = ALLTRIM(Tmp.dpartment)
objExcel.parent.cells(StartRowNumber,6).value = ALLTRIM(Tmp.street)
objExcel.parent.cells(StartRowNumber,7).value = ALLTRIM(Tmp.houseno)
objExcel.parent.cells(StartRowNumber,8).value = ALLTRIM(Tmp.flat)
objExcel.parent.cells(StartRowNumber,9).value = ALLTRIM(Tmp.phone)
objExcel.Cells(StartRowNumber+1,1).Select

objExcel.Selection.EntireRow.Insert

StartRowNumber = StartRowNumber + 1

ENDSCAN

=thermometr(0,100,.F.,.T.)
objExcel.Visible = .T.
* эксель становится видимым на экране

release objExcel
* отпускаеб эксель как обьект

2 Sergey Ch

да термометр именно, чтобы юзеры видели, что что-то делается.. хотя 1-й раз я сразу вывел эксель вижбл.. и там как по волшебству надписи появлялись.. но за это кто-то из программеров меня раскритиковал...

Чтобы по мылу сразу отправлялось... наверное можно
сделать Эксель обьект - SaveAs - Close и
через ShellExecute его замылить....
да неужто юзеры настолько тупы, что сами не завернут?

с чего бы это? только два файлика отчета включаются в проджект.. и никто ж не узнает, что там ФПД 2,6 заюзали... это ж не видно будет...

2 Urri

извини на все 100% я не могу дать гарантии.. ибо делал фокус с 2-мя отчетами года так 2-3 назад... так что не помню.. но делал именно так - два отчета в проджекте.. и мой ВФП 5,0 вроде бы все это понимал...
Теперь, к сожалению у меня нут ФПД 2,6, чтобы попробовать.. если у тебя есть - что стОит наваять 2 простеньких отчета - скомпилить ехе-шник и пойти на соседнюю машину, где нет фокса вообще попробовать...
я бы с радостью но у меня дома только фоксы оба.... тута не проверю....
а еще у меня где-то валяется ДОСовский конвертер в РТФ формат... только он альбомную ориентацию не поддерживает....
Кстати один из 1-х своих проджектов - платежку я писал именно с выводом платежки
- на эран
- на принтер (оба репортом ВФП 5,0)
- в текстовый файл (тута уже репорт ФПД 2,6 был)
- в РТФ (тот конвертер использовался только его никак кроме как RUM Conv plat.txt не запустить было)

как мылом отправить - можно придумать но не сейчас....

в документации о фокусе с 2-мя отчетами кстати ничего не знаю.. просто пришла в голову идея такая - попробовал - вышло...

во забыл текстовый файл в итоге был ЧИСТО ДОСовский.. то есть НЕ для Блокнота!! а для ДОС редакторов!!!