Чесно говоря , таким не занимался.
У меня set resorces on , поэтому пользователь после первого запуска сам устанавливает удобный для него размер .
Но окно репорта - это обычное окно , поэтому его WindowState тоже можно рулить.
Поиши на фокс клубе и тут - мне кажеться было обсуждение.
Вот наткнулся у себя на какието остатки от старых обсуждений в FIDO.
Может поможет
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
* Report в отдельном окне
Lparameters tcReportName,tcStringFolr,start_page,end_page
Flush
Set sysmenu Off
*on erro =MESSAGEBOX('Внимание ! Проверьте принтер ! Принтер не готов .', 16 ,'Сообщение')
_Screen.Show
Defi Wind my_prev From 0 , 0 To Wrow(),Wcol() Syst Clos Titl 'Предварительный просмотр' Font 'arial',_Screen.FontSize
If empty(tcStringFor)
If empty(start_page).And.Empt(end_page)
Report Form &tcReportName Preview Wind my_prev Nocon
Else
Repo Form &tcReportName ;
range start_page,end_page ;
preview Wind my_prev Nocon
Endif
Else
If empty(start_page).And.Empt(end_page)
Report Form &tcReportName Preview Wind my_prev Nocon For &tcStringFor
Else
Report Form &tcReportName ;
range start_page,end_page ;
preview Wind my_prev Nocon For &tcStringFor
Endif
Endif
release windows my_prev
On Erro
_Screen.Hide
Set sysmenu On
