مطلوب كود طباعة في فورم لصفحات MultiPage بناءا علي شرط معين ؟؟

[حمادة عمر]

السلام عليكم

الاساتذة الكرام

 

لدي يوزر فورم قمت باضافة MultiPage ثم قمت بعمل عدد من الصفحات فيها والسؤال هنا :-

 

هل يمكن طباعة كل صفحة من صفحات MultiPage كل علي حدة ؟؟

وللتوضيح اكثر :  

 

في الملف المرفق فورم به MultiPage  به عدد 4 صفحات بكل صفحة علي سبيل المثال Label1

 

قيمة كل ليبل تساوي قيمة خلية في صفحة الاكسيل واكوادها كالتالي :

 

Label1.Caption = Range("a1").Value

Label2.Caption = Range("a2").Value

Label3.Caption = Range("a3").Value

Label4.Caption = Range("a4").Value

 

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

فهنا في المثال المرفق  : ليبل 1   في صفحة 1   = 12       فيتم طباعة الصفحة الاولي

                           ليبل 2  في صفحة  2    = 15       فيتم طباعة الصفحة الثانيه

                           ليبل 3 في صفحة  3     =  0       فلا يتم طباعة الصفحة الثالثة

                           ليبل 4 في صفحة 4     = 44     فيتم طباعة الصفحة الرابعة

   وهكذا ..... وذلك عن طريق الزر الموجود بالفورم بضغطة واحدة وبالتالي يتم طباعة صفحة 1 ، صفحة 2 ، صفحة 4 (( فقط  ))

 

الطلب بصورة اخري : او هل من الممكن اذا كانت قيمة    Label     اصغر من صفر  يوضع كود باخفاء الصفحة الغير موجود بها بيانات فقط وطباعة باقي الصفحات الموجود بها قيم كل علي حدة

 

اعلم انه بإذن الله الحل لديكم

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

 

 

طباعة في فورم لصفحات MultiPage.rar

 

 

 

[عبدالله المجرب]

السلام عليكم 

ضع هذا الكود في زر الطباعة

Private Sub CommandButton1_Click()
CommandButton1.Visible = False
For i = 0 To 3
If Val(Me.Controls("Label" & i + 1)) > 0 Then
Me.MultiPage1.Value = i
UserForm1.Printform
End If
Next
Unload Me
End Sub

[حمادة عمر]

السلام عليكم

الاستاذ القدير الراائع / عبد المجرب

 

كود رائع وسهل وبسيط ولكنه من عالم جليل

ويعمل الكود بكفاءه وهو ما اطلبه ولكنه يجعلني اطمع اكثر واكثر لاقدم طلبي الثاني

جزاك الله عنا خيرا استاذنا

 

والطلب الآخر هنا استاذي القدير ( ان امكن ذلك استاذي ) مع العلم اني لم اجد فعلا معكم في الاوفيس مستحيل

 

هو انني اريد ان تكون اضافة الصفحات في MultiPage1 بناءاً علي قيمة ليبل معين

في صفحة 1 مثلا لو ان ليبل 1 قيمته اكبر من الصفر يتم تلقائيا فتح صفحة جديدة لتظهر صفحة 2 تلقائيا

ويعمل كود الطباعة علي هذا الوضع لطباعة الصفحات الموجود بها بيانات

 

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

[حمادة عمر]

للرفع

[عبدالله باقشير]

السلام عليكم

 

حسب فهمي للطلب

 

شاهد المرفق

طباعة في فورم لصفحات MultiPage.rar

[حمادة عمر]

السلام عليكم

الاستاذ القدير العلامة الخبير / عبد الله باقشير

 

المرفق رااائع وهايل جدا جدا

والاروع والاحلي رد سيادتك فهو عندي فعلاً اهم من الموضوع نفسه  ( والله شاهد علي كلامي هذا وجعله بعيداً عن النفاق )

فبالفعل الموضوع الذي يجتمع به خبيران مثلكما

 

الاستاذ / عبد الله المجرب

والاستاذ / عبد الله باقشير

 

فإن الموضوع فيتزين بهما ويتجمل

 

والله اني احبكم في الله

 

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

[حمادة عمر]

السلام عليكم

الاساتذة الكبار العظام

 

لدي استفسار هل من الممكن عند الضغط علي زر الطباعة

عندما يقوم البرنامج بطباعة صفحة 1 مثلاً في MultiPage  ان لايظهر بالأعلي الا صفحة 1 فقط

وعند طباعة صفحة 2 مثلاً في MultiPage  لا يظهر في الطباعة الا صفحة 2 فقط وهكذا 

ام ان هذا غير ممكن وتتم طباعة الفورم بالكامل

 

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

[عبدالله باقشير]

السلام عليكم

 

شاهد المرفق

طباعة في فورم لصفحات MultiPage.rar

[حمادة عمر]

السلام عليكم

 

الاستاذ القدير العلامة الخبير / عبد الله باقشير

 

المرفق رااائع وهايل جدا جدا 

وانت استاذي الاروع

 وهو ما أريد تماماً ولكن ردوك سيادتكم استاذي تجعلني اطمع في ما هو اكثر من ذلك

وآسف أستاذي لكثرة طلباتي فأنا اريد ان اتعلمك منكم شيئاً بسيطاً فلي طلبان

الاول : هل من الممكن اثناء الطباعة بالطريقة السابقة ان تظهر لي رقم الصفحة المطبوعة

 

الثاني : ما هو الفرق بين TabStrip  وبين MultiPage 

 

جزاك الله خيرا استاذي القدير

 

[عبدالله باقشير]

السلام عليكم

 

يالنسبة للسؤال الاول امهلني شوية

 

اما السؤال الثاني حسب علمي

ان MultiPage

صفحاتها حاوية مثل الفرمة ممكن تضيف بداخلها كائنات(ليبل,تاكست ,قائمة....الخ)

وممكن تظهر وتخفي اي صفحة

اما TabStrip  تستخدم للاستدلال

عن طرق تشغيل معينة لما بداخل الفورم من كائنات

 

والله اعلم

[حمادة عمر]

السلام عليكم

الاستاذ القدير العلامة الخبير / عبد الله باقشير

 

الف مليون شكر علي سرعة الرد وانا في انتظار رد سيادتكم في اي وقت

 

اما بالنسبة للستفسار الثاني ... ففعلاً هذا ما كان يحدث معي كنت احاول التفرقة بينهم ولكني وجدت MultiPage كل صفحة خاصة بنفسها وكأنها

فورم جديد وهذا ما دعاني للعمل عليها

اما TabStrip  كنت عندما اضيف اي كائن عليه كنت اجده في كل التابات

 

جزاك الله خيرا استاذي القدير وفي الانتظار لروائعك

[عبدالله باقشير]

السلام عليكم

 

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

 

Private Sub CommandButton1_Click()
Dim i As Integer
''''''''''''''''
CommandButton1.Visible = False
''''''''''''''''
With Me.MultiPage1.Pages
    For i = 0 To .Count - 1
        If Val(.Item(i).Controls(0).Caption) Then
            kh_v i
            UserForm1.Printform
        End If
    Next
End With
kh_Start
End Sub

Private Sub kh_v(P As Integer)
Dim i As Integer
''''''''''''''''
With Me.MultiPage1.Pages
    For i = 0 To .Count - 1
        If .Item(i).Index = P Then
            .Item(i).Visible = True
        Else
            .Item(i).Visible = False
        End If
    Next
End With
End Sub

Private Sub kh_Start()
Dim i As Integer, t As Integer
''''''''''''''''
With Me.MultiPage1.Pages
    For i = 0 To .Count - 1
        t = Val(Cells(i + 1, "A"))
        .Item(i).Controls(0).Caption = t
        .Item(i).Visible = t
    Next
End With
'''''''''''''''''''''''''''''
CommandButton1.Visible = True
End Sub

Private Sub UserForm_Activate()
kh_Start
End Sub

 

المرفق 2003

طباعة في فورم لصفحات MultiPage.rar

[حمادة عمر]

السلام عليكم

الاستاذ القدير العلامة الخبير / عبد الله باقشير

 

يا لروعتك وجمالك وكنوز علمك

زادك الله علما علي علم وبارك الله لك في اولادك ورحم والديك

 

انت فعلا بحق قدير

 

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