lm48390
سه شنبه 16 آذر 1389, 11:45 صبح
با سلام و خسته نباشيد
من گزارشي دارم كه مي خواهم پبش چاپ آن در فرمي كه خصوصيت showeindow=2 باشد نمايش داده شود چون در غير ابن صورت گزارش در پشت تمام فرمهاي برنامه ام نمايش داده مي شود. حتي كلاسي ار فرم تعربف كرده ام و در گزارش مشخص كرده كه پيش چاپ آن در فرم كلاس تعربف شده نمايش داده شود ولي برنامه پبغام مي دهد كه متغير مورد نظر(printPreview ) تعربف نشده است.
DEFINE CLASS printpreview as Form
titlebar = 0
Showwindow = 2 &&Top level
autocenter = .t.
name = "PrintPreview"
height = SYSMETRIC(2) && This will maximize the preview
width = SYSMETRIC(1)&& This will maximize the preview
ENDDEFINE
PUBLIC oPrint
oPrint= CREATEOBJECT("printPreview")
oPrint.SHOW()
REPORT FORM COUNTRY.FRX PREVIEW WINDOW PrintPreview IN WINDOW PrintPreview NOWAIT
'Printpreview' $ UPPER(WONTOP
())
خواهش مي كنم مانند همبشه كمكم كنيد. آيا به جز راه حل فوق، روش ديگري است.
لازم به ذكر است من تمام خصوثيت فرمهاي موجود در برنامه showeindow=2 تنظيم كرده ام
من گزارشي دارم كه مي خواهم پبش چاپ آن در فرمي كه خصوصيت showeindow=2 باشد نمايش داده شود چون در غير ابن صورت گزارش در پشت تمام فرمهاي برنامه ام نمايش داده مي شود. حتي كلاسي ار فرم تعربف كرده ام و در گزارش مشخص كرده كه پيش چاپ آن در فرم كلاس تعربف شده نمايش داده شود ولي برنامه پبغام مي دهد كه متغير مورد نظر(printPreview ) تعربف نشده است.
DEFINE CLASS printpreview as Form
titlebar = 0
Showwindow = 2 &&Top level
autocenter = .t.
name = "PrintPreview"
height = SYSMETRIC(2) && This will maximize the preview
width = SYSMETRIC(1)&& This will maximize the preview
ENDDEFINE
PUBLIC oPrint
oPrint= CREATEOBJECT("printPreview")
oPrint.SHOW()
REPORT FORM COUNTRY.FRX PREVIEW WINDOW PrintPreview IN WINDOW PrintPreview NOWAIT
'Printpreview' $ UPPER(WONTOP
())
خواهش مي كنم مانند همبشه كمكم كنيد. آيا به جز راه حل فوق، روش ديگري است.
لازم به ذكر است من تمام خصوثيت فرمهاي موجود در برنامه showeindow=2 تنظيم كرده ام