اذهب الي المحتوي
أوفيسنا

أمر طباعة لجميع التقارير في وقت واحد


الردود الموصى بها

اي اني لم افهم طلبك نسق تقرير لطالب فقط 

في ورقة البيانات يوجد لديك 10 اعمد ماهيا الاعمد التي تريدها تظهر في التقرير

وهل كل رقم اكاديمي يعتبر تقرير

 

رابط هذا التعليق
شارك

،يعطيك العافية

كل صف في البيانات يعتبر تقرير

بمعنى أن كل رقم أكاديمي هو تقرير 

فعند إدخال الرقم الأكاديمي في الخانة المخصصة في التقرير يطبع تقرير صاحب الرقم

وأنا أريد طباعة أكثر من واحد حيانا تكون ٣٠ تقرير وأحيانا أكثر على حسب من سأقوم بطباعة تقارير لهم

رابط هذا التعليق
شارك

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

العفو منك تأخرت

نعم بهذه الطريقة التي عملت

لكن هل ممكن أن تكون طباعة التقارير المحددة بأمر واحد 

بمجر أن أعطي الأمر يبدأ الطباعة للجميع مباشرة

رابط هذا التعليق
شارك

Sub Prnt_A()
 For i = Val([F6]) To Val([G6])
   [G9].Value = Sheets("بيانات").Cells(i + 9, 1).Value
   '
    ActiveSheet.PrintOut
'    ActiveSheet.PrintPreview
 Next
End Sub

حدد الامر

ActiveSheet.PrintOut
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information