دخول

**نصر صالح**

السلام عليكم............
أرجو المساعدة في كتابة كود يتم من خلاله طباعة الفورم عدد معين من المرات
وشكرا.......

**نصر صالح** · 20-12-14, 06:26 PM

اين الرد......

**Ahmed_Mansoor** · 20-12-14, 10:03 PM

السلام عليكم

هذا كود زر الطباعة :

كود :

Private Sub Command1_Click()

Dim I As Integer

If Val(Trim$(Text9.Text)) > 0 Then

   For I = 1 To Val(Trim$(Text9.Text))

       Form2.PrintForm

       DoEvents

   Next I

End If

End Sub

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	مساعدة في تفقيط فرنسي	amazonette	0	2,036	04-12-24, 05:59 PM آخر رد: amazonette
	مساعدة في تقرير Crystal Report	amazonette	0	207	04-12-24, 12:39 PM آخر رد: amazonette
	مشكل في الاستعلام عن تاريخ معين في الكريستال ريبور	amazonette	0	272	05-11-24, 04:38 PM آخر رد: amazonette
	طلب مساعدة كود فيجوال ستوديو كود	abrawi	0	245	03-11-24, 02:02 AM آخر رد: abrawi
	مساعدة في تغيير حجم الفورم حسب دقة عرض الشاشة	amazonette	3	1,139	30-03-23, 02:47 PM آخر رد: amazonette
	[سؤال] مساعدة فى برنامج الاجازات	aboezzat84	1	1,222	26-03-23, 03:56 PM آخر رد: sanyor77
	[سؤال] اريد مساعدة	donia hamdan	2	1,258	03-09-22, 10:23 AM آخر رد: سعود
	كيف يتم طباعة تقرير اكتف ريبورت مباشرة	gonm64	1	1,893	03-02-22, 06:22 AM آخر رد: Taha Okla
	ممكن كود منع كتابة ارقام في text	imatawen	8	8,263	08-02-21, 08:42 PM آخر رد: abuahmad
	مساعدة في قاعدة بيانات VB6+ACESS	tareqhabib15	2	1,803	01-12-20, 08:54 PM آخر رد: tareqhabib15