مساعدة في كود لتعديل خاصية في فورم

[خالد القدس]

السلام عليكم ورحمة الله 

 

كل عام وانتم بألف خير  .. 

ورمضان كريم  ...   أعاده الله علينا جميعا بالخير والقبول والبركات

 

أساتذتي الأجلاء   بحثت كثيرا عن كود لتعيين خاصية ShwoModal  في الفورم  الى False  قبل معاينة الطباعة ثم اعادتها الى True  بعد المعاينة  ولكن لم أوفق  

 

ارجو  المساعدة إن كان عمل ذلك ممكن والفورم قيد التشغيل وجزاكم الله خيرا

 

وقد جربت هذا الكود ولكنه لم يفلح  

 

UserForm2.ShwoModal = False 
ActiveWindow.SelectedSheets.PrintPreview
UserForm2.ShwoModal = True

 

[احمد بدره]

وعليك السلام ورحمة الله وبركاته  وبعودة الأيام

ممكن إخفاء  CommandButton قبل الطباعة ثم رجوعه بعد الطباعة

فيمكنك طباعة الفورم بدون الأزار  كمثال لو لديك زر أمر 1 يكون هكذا  ويمكنك تكملة باقي الأزار بنفس الفكرة

CommandButton1.Visible = False

UserForm2.PrintForm

CommandButton1.Visible = True

[خالد القدس]

بارك الله فبك   أستاذ احمد  

طريقتك صحيحة لو كنت داير أطبع الفورم  لاكين معاينة الطباعة لورقة وليست للفورم   

ارجو  لو تكرمت عمل محاولة أخرى يمكن تنجح   نفع الله بك وبعلمك وزادك من فضله

 

[خالد القدس]

مساء الخير     ... 

الأساتذة الاجلاء  تقبل الله صيامكم وقيامكم  ..  ونفع بعلمكم البلاد والعباد 

ارجو كريم عونكم  في تغيير خاصية ShwoModal  من False   الى True   أو العكس بالكود لو أمكن 

في الملف المرفق

نتيجة2.xlsm

[خالد القدس]

صباح الخير   ..  تقبل الله الصيام وصالح اعمال

اظن ان افضل طريقة ممكنة حتى الان هي اخفاء الفورم قبل المعاينة واستعادة الشو بعد المعاينة للمحافظة على حمايته للصفحة من التعديل في حضرته مع تمكين المستخدم  من اغلاق المعاينة قبل الطباعة بالزر لأنه في حالة جعل خاصية ShwoModal   في وضع True   والفورم في حالة شو  لن يستطيع المستخدم من إغلاق المعاينة الا عن طريق الكيبورد 

 

ولكن لهذه الطريقة عيبين الاول الفورم يتأخر قليلا للعودة لحالة الشو  من الاخفاء  خاصة اذا كان الفورم مليان بالتبويبات والمحتويات  ..

والثانية بعد عودة الفورم للشو  بعد الاخفاء لا ينفذ أسطر الكود الموجودة بعده إلا بعد اغلاق الفورم ..  ولتلافي ذلك يجب جعل سطر عودة الفورم للشو آخر سطر في الكود  ..

 

لذلك لو أمكن تغيير خاصية ShwoModal بالكود كان أسهل  وأكثر مرونة  ..   ولا زلت أتعشم في أنامل أساتذتنا الخبراء  السحرية جزاهم الله عنا خير  الجزاء

 

الملف بعد تفعيل اخفاء الفورم واستعادته في نهاية الكود 

نتيجة3.rarنتيجة3.rarنتيجة3.rarنتيجة3.rar

نتيجة3.xlsm