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

امر طباعة للكل


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

جرب هذا الكود

قبل ذلك حدد نطاق الطباعة


Sub Abu_Ahmed_2011()

For i = 101 To 105

[B7].Value = i

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Next

End Sub

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

أخى عبد الله المجرب

سلام الله عليكم

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

يعنى لا ينفع فيه استكمال الطباعة

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

أخى عبد الله المجرب

سلام الله عليكم

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

يعنى لا ينفع فيه استكمال الطباعة

أخي الكريم جمال دغيدي

النطاق الذي يتم طباعته محدود ويتم استدعاء بيانات بداخله

لذا لا يمكن أن يتم احتواء جميع الصفحات في أمر طباعة واحد

ولكن يتم ما قام به أخونا عبد الله وهو كالتالي:

تحديث لقيمة الخلية التي هي سبب تحديث البيانات

ثم إعطاء أمر لطباعة الصفحة الحالية فقط

.........

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

........

أنا شخصيا استعمل عدد معين من الصفحات وذلك بالتعديل على الكود في الأرقام الموجودة في أمر التطرار for

يعني مثلا طباعة من 1 إلى 10 في مرة واحدة

ومن 10 إلى 30 مثلا في مرة أخرى

وهكذا

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

استاذ محمد صالح

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

انت رجل من الرجال الذين أجلهم وأحترمهم ولذا اطلب منكم رجاء

ارجو منك كرما ان تشترك في هذا الرابط لكي يخرج العمل أكثر من قوي

فلمساتك ستزيده بريقا

لكي نفعل البرنامج الممتاز لاحتساب الاجور للاستاذ سعيد بيرم اسعده الله

ولكم الشكر

عذرا للتداخل هنا

والرابط هنا http://www.officena....pic=39461&st=20

ولكم الشكر

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

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

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



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

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

Important Information