السلام عليكم اخوانى الاعزاء
كتبت فيما سبق سؤال خاص بفتح التقرير بالجحم الكبير تلقائيا بمجرد استدعائه من اى نموذج ، وكتبت ايضا سؤال عن كيفية اظهار مربع حوارى خاص بنوع الطابعة وعدد النسخ المراد طباعتها ........ الخ وذلك من داخل التقرير وهو مفتوح ، وللأسف لم اجد مجيب بل على العكس تم مسح موضوعي من الاصل ؟!
هل من الممكن معرفة السبب ، علما بأنى قد بحت فى مواضيع كثيرة بالمنتدى لم اجد اجابة سؤالى !!
اتعشم من اخوانى بالمنتدى ايجاد اجابة لهذا السؤال
مع تحياتى لكم جميعا
اخي انا لم افهم كيفية فتح التقرير بالحجم الكبير تلقائياً
اما الجزء الخاص بمربع الحواري وانت تقصد شريط الادوات الخاص بالطباعة فاستخدم هذا الامر
REPORT FORM report_name.frx TO PRINTER PROMPT NODIALOG PREVIEW
report_name هو اسم التقرير
سقوط الإنسان ليس فشلاً، ولكن الفشل أن يبقى حيث سقط
اخي العزيز
يمسح الموضوع اذا خالف شروط المنتدى
وقد تم تنبيهك اكثر من مرة
اخي العزيز هل تعلم ان مواضيع كلها يجب ان تكون مع اول موضوع كتبتهٌ عن التقرير
اي تضيف أسئلتك تباعاً لكي يكون موضوع شاملاً عن التقرير والغاية هي عامة اي اذا شخص اخر واجهة نفس الأشكال يوجه لموضوعك
الرجاء الالتزام بقوانين المشاركات وكتابة المواضيع
توجد أسفل معلومات حسابك او من خلال الموضوع قواعد طرح المشاركات والمواضيع
تحياتي للجميع
تم تعديل هذه المشاركة بواسطة lion-lion في 2 أغسطس 2016 في 12:36
اخى العزيز اكرم
السلام عليكم ورحمة الله
ما اسأل عنه هو كيفية فتح مربع حواري خاص بنوع الطابعة وعدد النسخ ...... بمجرد الضغط على (ctrl + P) كما ما هو معتاد فى اى برنامج تابع لميكروسوفت ، وذلك من خلال المعاينة نفسها ، اى من خلال التقرير وهو مفتوح ، وذلك لأختيار رقم الصفحة المحددة للطباعة او حتى تغيير الطابعة ...... الخ ، وحاولت ولم اجد نتيجة .
اما بخصوص فتح التقرير كبيرا تلقائيا ، هو فتح التقرير ملئ الشاشة بالحجم 100% لمجرد استدعائه ، حيث ان التقرير يفتح صغيرا او بنسبة غير 100% واقوم انا بعد ذلك بتكبيره بالحجم المناسب للشاشة من النسب المئوية الموجودة .
و طبعا كل هذه المحاولات كانت بعد تحويل المشروع لملف تنفيذي .
ارجو الافادة
مع جزيل شكري واحترامي
اخي العزيز
اليك الكود كما ترغب في استعراض التقرير بشاشة كبيرة وهو معدل من قبلي والبرنامج (منقول من MSDN)
PUBLIC cpreview,cListener
crepot = GETFILE("frx")
IF EMPTY(crepot)
MESSAGEBOX("non found report for show ",64,"lion iraq")
RETURN
ENDIF
DO (_REPORTPREVIEW) WITH cpreview
cpreview.Caption = 'lioniraq'
cpreview.ZoomLevel = 11
cpreview.ToolbarIsVisible = .T.
cListener= CREATEOBJECT('ReportListener')
cListener.ListenerType = 1
cListener.PreviewContainer = cpreview
REPORT FORM (crepot) OBJECT cListener NOWAIT
cpreview.oForm.Toolbar.Dock(0)
cpreview.oForm.WindowState = 2
الله ينور عليك اخى العزيز فراس
لكن هناك مشكلة فى تنفيذ السطر
DO (_REPORTPREVIEW) WITH cpreview
ويقف البرنامج عنده دون تكمله
ارجو الافادة
مع تحياتى لك اخى العزيز
اي نسخة تستخدم من الفيجوال فوكس برو
لان البرنامج يعمل بطاقتهٌ الكاملة مع النسخة التاسعة بتحديثاتها
وهذا تطبيق مرفق مع الفيجوال لغرض عرض التقارير
السلام عليكم
اخى الكريم
انا اعمل على نسخة فيجوال فوكس برو الاصدار التاسع SP2
ونفس الأشكال موجود
نظام الوندوز هو ٣٢ او ٦٤ بت لجهازك
والافضل لو ترفق الرسالة للخطا
واذكرك اخي العزيز في بعض الاحيان واغلبها يجب ارفاق مثال للمشكلة
اما للخطا فارفاق صورة عن نص الرسالة
وتحياتي للجميع
تم تعديل هذه المشاركة بواسطة lion-lion في 3 أغسطس 2016 في 22:59
اخى الكريم ( فراس)
ارجو تقبل اعتذاري !
فعلا كان الكود الذى ارسلته سليم مائة بالمائة ولا غبار عليه ويعمل بشكل صحيح
ولكنى اخطأت فى محاولة التغيير فيه لمجرد الاختصار فكانت هناك رسالة الخطأ فى التنفيذ .
وللامانة انا اعترف بهذا واشكرك شكرا جزيلا على كود البرنامج الرائع الذى حل المشكلة لى
ومرفق اليك ما تم تغييره وسبب ظهور رسالة الخطأ ، راجيا الله ان تتقبل اعتذاري
ولك منى اخى الكريم كل التحية والتقدير
اخي العزيز لا عليك بالاعتذار وليس هنالك مشكلة
وانا اشجعك على التعديل على البرامج والايعازات لغرض فهم ومعرفة الايعاز
والحمد لله في التوفيق معك لاتنسى ان تثبت الاجابة لغرض اغلاق السوال
وتحياتي للجميع
لك جزيل الشكر اخى الكريمفراس
تمت الاجابة بحمد الله على سؤالي والفضل يرجع لك
وجزاك الله كل خير
اخي العزيز الفضل لله لهدايتنا
والاجابة انت حددها بجانب المشاركة قم بتأشيرات من خلال الأسهم