صفحات ریپورتی طراحی کرده ام که به صورت نرمال با استفاده از دستور REPORT و با پارامتر PRIVIEW نمایش داده می شود (ولی خوب مشکل کلی ویژوال فاکس را دارد ) (عدم نمایش درست فونت های فارسی)
جهت تصحیح این مشکل از کلاس ریپورت لیستنر استفاده کرده ام وقتی فرم را در داخل محیط ویژوال فاکس اجرا می کنم مشکلی ندارد ولی وقتی از برنامه خروجی (EXE) می گیریم و برنامه EXE را اجرا می کنم پیش نمایش ریپورت را نمایش نمی دهد (البته شمارش رندر صفحات را نمایش می دهد ولی وقتی به انتها رسیده و می خواهد صفحه را نمایش دهد خارج می شود (البته نه از برنامه بلکه بخش پیش نمایش چاپ)
جهت اطمینان از ایجاد شیء از نوع ریپورت لیستنر نوع آن را چک کرده که از نوع آبجکت باشد مشکلی نداشت و موارد تست دیگر را نیز انجام دادم ولی متاسفانه به جواب نرسیدم
oListener = CREATEOBJECT("ReportListener")
IF TYPE('oListener') <> 'O'
OK= MESSAGEBOX('سیستم قادر به ایجاد آبجکت از نوع ریپورت لیستنر نیست',0+16,'اخطار')
RETURN
ENDIF
oListener.ListenerType = 1
REPORT FORM BOOK_A4 OBJECT oListener
*
البته در پروجکت مربوط به برنامه اجرایی کلاس _REPORTLISTNER اضافه شده است
ممنون میشم که نسبت به رفع این اشکال بنده را راهنمایی نمایید
پاسخ با نقل قول