Проблема в чем...устроился на работу, а там прога в фоксе досовсвом да и немного недоработана. Я секу в вижуал фокспро но с досовским впервые столкнулся.
На данный момент нужно сделать печать текстового файла на лазерный принтер. Чтоб мозги себе не ломать я сделал прогу на делфе чтоб печатала фай с разными параметрами, но при вызове ее печатует пустой файл так как фокс не записал в файл пока ничего, или как он там работает с ним, хотя код вызова делфи приложения стоит в самом конце фокса-кода перед quit.
Мот текстовый файл закрыть нужно или .... короче хелп иначе будет (_._) :)
И еще мот кто сможет набросать структуру вывода на печать на лазерник бо с матричным есть отличия.
Презнателен за любую помощь!

Вот код печати и непосредственно конец кода этой программы.
Как мне сказали раньше до лазерников все норм работало а щас ....

*************************Печать*******************************
kuda=1
do nadopech with kuda
if kuda=2 && на принтер
set devi to print
set print to prn
endif
if kuda=1 && на экран
set devi to print
set printer to vedom16
defi wind ved from 0,0 to 24,79 title '' shadow system color 7/0
acti wind ved
endif
@prow()+1,pcol() say chr(27)+"C"+chr(80)
@prow(),pcol()+1 say chr(15)
list=1
str=1
i=1
@prow()+1,20 say 'Ведомость №16 по опту(база) за период с '+dtoc(date1)+' по '+dtoc(date2)+' Страница '+str(list,3)
@prow()+1,1 say '----------------------------------------------------------------------------------------------------------------'
@prow()+1,1 say '! ! ! ! ! ! В том числе !'
@prow()+1,1 say '!№ п/п! Наименование покупателя ! Дата ! № накл ! Сумма накл !---------------------------------------------!'
@prow()+1,1 say '! ! ! ! ! ! Стоимость ! Наценка ! НДС 10% ! НДС 18% !'
@prow()+1,1 say '----------------------------------------------------------------------------------------------------------------'
sele vedom16
scan
naim_=naim1
@prow()+1,2 say i pict '@z 9 999'
@prow(),8 say left(ltrim(rtrim(naim1)),25)
@prow(),34 say dt_otgr
@prow(),46 say ltrim(rtrim(dok))
@prow(),55 say summa_opl pict '@z 999 999 999'
@prow(),68 say summa_tov pict '@z 999 999 999'
@prow(),80 say summa_nac pict '@z 99 999 999'
@prow(),91 say summa_10 pict '@z 99 999 999'
@prow(),102 say summa_18 pict '@z 99 999 999'
s1=s1+summa_opl
s2=s2+summa_tov
s3=s3+summa_nac
s4=s4+summa_10
s5=s5+summa_18
i=i+1
str=str+1
if str=55 and recno()<reccount()
str=1
list=list+1
eject
@prow()+1,20 say 'Ведомость №16 по опту(база) за период с '+dtoc(date1)+' по '+dtoc(date2)+' Страница '+str(list,3)
@prow()+1,1 say '----------------------------------------------------------------------------------------------------------------'
@prow()+1,1 say '! ! ! ! ! ! В том числе !'
@prow()+1,1 say '!№ п/п! Наименование покупателя ! Дата ! № накл ! Сумма накл !---------------------------------------------!'
@prow()+1,1 say '! ! ! ! ! ! Стоимость ! Наценка ! НДС 10% ! НДС 18% !'
@prow()+1,1 say '----------------------------------------------------------------------------------------------------------------'
endif
endscan
@prow()+1,1 say '----------------------------------------------------------------------------------------------------------------'
@prow()+1,8 say 'ИТОГО ПО ВЕДОМОСТИ:'
@prow(),55 say s1 pict '@z 999 999 999'
@prow(),68 say s2 pict '@z 999 999 999'
@prow(),80 say s3 pict '@z 99 999 999'
@prow(),91 say s4 pict '@z 99 999 999'
@prow(),102 say s5 pict '@z 99 999 999'
set printer to prn
set devi to screen
if kuda=1
modi comm vedom16. wind ved noedit
rele wind ved
endif
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
if kuda=2
&& вызываю свою программу для печати файла но он пустой пока не закроешь сам фокс-окно
! dos_print VEDOM
endif
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
quit
enddo

когда я пробовал испльзовать свою печать то выводил сначало в файл всю инфу. Желательно покажите как правильней сделать для печати с фокса самого и с помощью моего способа... так для своего развития ... мот пригодится.

if kuda=2 && на принтер
set devi to print
set print to prn
endif

if kuda=1 && на экран
set devi to print
set printer to vedom16
defi wind ved from 0,0 to 24,79 title '' shadow system color 7/0
acti wind ved
endif

.....................................

if kuda=2
! dosprn VEDOM
endif

Сорри хотел исправить но забыл ... щас все исправил

if kuda=2 && на принтер
set devi to print
set print to VEDOM
endif

if kuda=1 && на экран
set devi to print
set printer to vedom16
defi wind ved from 0,0 to 24,79 title '' shadow system color 7/0
acti wind ved
endif

.....................................

if kuda=2
! dosprn VEDOM
endif

Sergey Sizov.
Таже фигня печатует пустой лит... тк файл или пуст или еще не закрыт фоксом.

Sergey Sizov.Файл то хоть сформировался?
да, только все равно он пустой до самого закрытия программы.




Функции FCLOSE('VEDOM') фокс не понимает.

еще

if kuda=2 && на принтер
set devi to print
set print to prn &&<--- тут программа зависает
endif



скину полный код проги мот кто подскажет...

Вроде для данного случая все пошло :)
Всем биг сенк за помощь!

PS: у меня таких проблем будет аж на 500 мб :) так что еще загляну.)