پیش نمایش د ر صفحه دلخواه

[mehran_337]

چند تا فرم دارم که in top level و as top level هستند.
پنجره نهایی اندازه کوچکی داره و as top leve هست. و دکمه شروع در آن قرار دارد.
اما مشکل اینه که با کلیک دکمه شروع ، پیش نمایش چاپ در صفحه پایینی برنامه نمایش داده می شه . 3 تا فرم روی آن قرار دارد.
چون از یک app برای پیش نمایش استفاده می کنم . لیسنتر و ساخت تنظیمات دستی هم کارساز نیست .
لطفا راهنمایی کنید...

[rezamim]

من از این کد استفاده میکنم . ببین بدردت میخوره



LOCAL lnScaleMode
lnScaleMode = _Screen.ScaleMode && Save current scale mode.
_Screen.ScaleMode = 0 && Set scale mode to Foxel.

*-- Define the hosting window.
DEFINE WINDOW RepHost FROM 0,0 TO oMainObject.Width , oMainObject.height ;
CLOSE FLOAT GROW MINIMIZE ZOOM SYSTEM
_screen.ScaleMode = lnScaleMode && Restore saved scale mode.

REPORT FORM "d:\00 vfp projectst\myreport.frx" ALL NOCONSOLE PREVIEW WINDOW RepHost



البته oMainObject همان پنجره اصلی برنامه هست که به طور کامل باز شده ( Maximized )

[mehran_337]

ممنون جنب معمار!
از کد فوق هم استفاده کردم ولی باز هم صفحه گزارش زیر همه فرمها قرار گرقت

[rahro]

سلام
مهران جان به شما اطمینان میدهم یکی از فرمهایی که قبلا از فرم پیش نمایش فراخوانی میشود بصورت modeless میباشد تست کن !!!!!!!!!!!!!!!!

[mehran_337]

خب بر طبق قانون وجدانی سایت به هر جوابی که رسیدیم دیگران و هم با خبر کنیم.
یکی از مسائلی که در ریپورت مطرحه بحث فول اسکرین بودنشه. من با کمکهایی که علی رهرو عزیز و بقیه دوستان داشتند به این نتیجه رسیدم .

تنظیمات فرمها :
اگر فرمها بصورت in screen بود که دیگه تنظیمی نمی خواد
اما اگه In top level یا as top level بود :
.AllowOutput = .F و حتما (WindowType = 1 (Modal قرار دهید. خب حالا می مونه دستور
البته در نظر بگیرید من با بر نامه هایی که اسکرین دارند کاری ندارم چون اسکرینشون فعاله اما بعضی وقتها هم برنامه بدون پنجره اسکرین فاکس لازمه من مورد دوم مد نظرم هست



_screen.Visible = .t.
_screen.WindowState = 2
_screen.AlwaysOnTop = .T.
REPORT FORM reportname PREVIEW
_screen.Visible = .f.


حالا حتی اگه همه فرمهاتون کوچک باشه گزارش بصورت تمام صفحه دیده می شه .