يمكن ذلك لكن انت بحاجة الى سجل (جدول في قاعدة بيانات - ملف نص - مسجل النظام) او اي ملف يتم تخزين العدد المسموح به لطباعة الفورم لكل مستخدم للبرنامج
السجل يحتوي على: اسم الفورم - المستخدم - عدد المرات المسموح به - العدد الحالي
العدد الحالي يتم زيادته عن كل طباعة للفورم بمقدار 1
وقبل الطباعة يتم استدعاء السجل ومقارنة العدد الحالي مع العدد المسموح وفي حالة التساوي تظهر رسالة تمنع الطباعة
ملاحظة: يجب الاخذ بعين الاعتبار فشل الطباعة نتيجة مشاكل الطابعة.
اما اذا كان المقصود عدد النسخ فعليك بتنفيذ حلقة:
For i = 1 To Val(Text1)
Form2.PrintForm
Next
ارجو ان اكون قد بسطت الشرح
السجل يحتوي على: اسم الفورم - المستخدم - عدد المرات المسموح به - العدد الحالي
العدد الحالي يتم زيادته عن كل طباعة للفورم بمقدار 1
وقبل الطباعة يتم استدعاء السجل ومقارنة العدد الحالي مع العدد المسموح وفي حالة التساوي تظهر رسالة تمنع الطباعة
ملاحظة: يجب الاخذ بعين الاعتبار فشل الطباعة نتيجة مشاكل الطابعة.
اما اذا كان المقصود عدد النسخ فعليك بتنفيذ حلقة:
For i = 1 To Val(Text1)
Form2.PrintForm
Next
ارجو ان اكون قد بسطت الشرح