طلب بخصوص هذا البرنامج

[حليم ناصر]

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

سادة الاعضاء كيف حالكم اتمنى ان تكونوا في احسن حال وفي صحة جيدة ان شاء الله

لي طلب بخصوص هذا البرنامج الذي عملته

وبعد اذنك  شرح الطلب موجود في المرفق

 

الطبيب.rar

[سمير نجار]

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

اخي الكريم

لست مضطراً لاخفاء الصفحات

يمكن اخفاء شريط تبويب الصفحات

واذا اردت التنقل بين الصفحات يمكن عن طريق زر

انظر المرفق

اخفاء شريط الصفحات.rar

[حليم ناصر]

سلام عليكم

اشكرك اخي سمير على هذا الجواب وجاري التجربة وان شاء الله تكون كافية

وجزاك الله خيرا

 

[حليم ناصر]

سلام عليكم 

اخي سمبر  لم يفلح الامر مع ان الفكرة جيدة  

 المشكلة ليست في اخفاء الورقة  المشكلة كيف اعمل امر باخراج الورقة 3  انطلاقا من الفورم

كما هو في المرفق البالي لابعد اخفاء الاوراق2 و 3

وجزاكم الله خير

الطبيب.rar

[عبدللرحيم]

جـرب

OK_الطبيب.rar

[عبدللرحيم]

جرب آخر تعديل

 

2_OK_الطبيب.rar

[حمادة عمر]

السلام عليكم

لاثراء الموضوع يمكن استخدام الكود التالي للاخراج والطباعة دون اخفاء للورقة رقم 3 او غيرها

ويمكن اخفاء الاوراق من ( اخفاء اوراق التبويب ) بشكل عادي

قم بوضع الكود التالي في حدث زر الاخراج

Private Sub CommandButton6_Click()
On Error Resume Next
Cells.EntireRow.Hidden = False
        Sheets("Feuil3").PageSetup.PrintArea = "A1:I20"
        Sheets("Feuil3").PrintOut copies:=1
Cells.EntireRow.Hidden = False

End Sub

تقبلوا خالص تحياتي

[حليم ناصر]

سادة الاعضاء

سلام عليكم

اخي عبد الرحيم واخي حمادة  اشكركم على لرد  وعلى هذه المعلومات وجزاكم الله خيرا

اخي حمادة هل ممكن ان يكون هناك كود لاخراج الورقة 3 وهي مخفية كما في المرفق الدي ارفقته لكم 

لانه اريد الاوراق ان تكون  مخفية بالكود

اتمنى ان اجد الجواب

وجزاكم الله خيرا وكل الاعضاء

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

[عبدللرحيم]

تفضل أخى حليم ناصر

كلمة السر 19

اسف جداً على التأخير

OK_الطبيب.rar