اريد كود يقوم بطلب تحديد عدد النسخ التى يتم طباعتها للفورم

[إبراهيم ابوليله]

الاخوه الافاضل

لدى فورم

واريد عند الطباعه

تحديد عدد النسخ

 

[رجب جاويش]

أخى ابراهيم

هذه هى الفكرة لتحديد عدد النسخ من المستخدم

x = Val(InputBox("أدخل عدد النسخ المراد طباعتها"))
ActiveWindow.SelectedSheets.PrintOut Copies:=x, Collate:=True

[حمادة باشا]

الأستاذ الفاضل/ إبراهيم ابوليله

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

علي إفتراض أنه تريد طباعة الصفحة رقم 1 عدد 3 نسخ

Sheet1.PrintOut Copies:=3

تقبل تحياتي

[حمادة باشا]

الأستاذ الفاضل/ رجب جاويش

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

عفوا - لم أر رد حضرتكم قبل إرسال المشاركة

تقبل تحياتي

[إبراهيم ابوليله]

اخى واستاذنا رجب

يسعدنى جدا مشاركتك

لانها تطمئنى عليك

ونتمنى ان تكون بصحه جيده

 

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

[إبراهيم ابوليله]

اخى حماده باشا

يسعدنى جدا مشاركتك

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

[رجب جاويش]

أخى ابراهيم

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

جرب هذه الفكرة

Private Sub CommandButton1_Click()
x = Val(InputBox("أدخل عدد النسخ المراد طباعتها"))
For i = 1 To x
Me.PrintForm
Next
Unload Me
End Sub

[رجب جاويش]

أخى الفاضل / حمادة باشا

لا عليك أخى الفاضل

انما هى زيادة فى الخير

[محمود_الشريف]

إخوانى فى الله

أساتذتى الكرام 

بعد إذنكم .. سوف أضيف كود بستخدمه لتحديد عدد النسخ المراد طباعتها للفورم نفسه

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

وتقبلوا منى وافر الإحترام والتقدير

Private Sub CommandButton3_Click()
On Error Resume Next
Dim Kh_Count As Integer
Dim Kh_Comm As Integer

If MsgBox("هل تريد طباعة السند رقم " & Combo_NO.Value, vbYesNo + vbQuestion + vbMsgBoxRight, "تأكيد طباعة ") = vbYes Then
    Kh_Count = InputBox("فضلاً  أدخل  عدد نسخ الاوراق الذي تريدها  " & Chr(13) & Chr(13) & "الافتراضي نسخة واحدة", "عدد النسخ", "1")
   '==================================
    'اخفاء الزرارات من السند اثناء الطباعة
    For Kh_Comm = 1 To 3
        Me.Controls("CommandButton" & Kh_Comm).Visible = False
    Next Kh_Comm
   '==================================
    Me.Hide
   '==================================
   'عدد النسخ المطلوبة
    Do Until Kh_Count = 0
        Me.PrintForm
        Kh_Count = Kh_Count - 1
    Loop
   '==================================
End If
End
On Error GoTo 0

End Sub

[محمود_الشريف]

مرفق نموذج لعمل الكود

 

طباعة فورم.rar

[رجب جاويش]

أخى الفاضل / محمود الشريف

تسلم ايديك

طالما كود للأستاذ / عبد الله باقشير

اذن فليتوقف الجميع

لأنه اذا وجد الماء بطل التيمم

[محمود_الشريف]

أخى الفاضل / محمود الشريف

تسلم ايديك

طالما كود للأستاذ / عبد الله باقشير

اذن فليتوقف الجميع

لأنه اذا وجد الماء بطل التيمم

أخى فى الله

أستاذى القدير / رجب جاويش

بارك الله فيكم

ونعم الأخلاق ... رفع الله من شأنكم 

ودمتم فى أمان الله وحفظه

وتقبلوا منى وافر الإحترام والتقدير

[إبراهيم ابوليله]

اخى رجب بارك الله فيك

ومشكورا الرد

ويسعدنا دائما ان نرى مشاركاتك

لنطمئن عليك

نسأل الله ان يديم عليك الصحه والعافيه

[إبراهيم ابوليله]

اخى محمود

بالفعل كود جميل

والاجمل انه للاستاذ والعلامه

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

بارك الله فيه