الحديثة قام بنشر مايو 19, 2009 مشاركة قام بنشر مايو 19, 2009 مرفق شيت للصف الثانى وبة طباعة 3 شهادات واريد طباعة كل الشهادات بامر طباعة واحد مع الشرح لو امكن ذلك لاننى اتعلم منكم الكثير رابط هذا التعليق شارك More sharing options...
جلال محمد قام بنشر مايو 19, 2009 مشاركة قام بنشر مايو 19, 2009 اخى اين الملف ؟؟؟؟؟؟؟؟؟؟ رابط هذا التعليق شارك More sharing options...
الحديثة قام بنشر مايو 19, 2009 الكاتب مشاركة قام بنشر مايو 19, 2009 المرفق الاخ العزيز مع سرعة الرد لو امكن ذلك ___________.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مايو 19, 2009 مشاركة قام بنشر مايو 19, 2009 السلام عليكم بعد اذن اخي الفاضل جلال تم وضع اكبر قيمة في لعمود التسلسل لصفحة الشهادات في الخلية O1 ثم الكوود التالي Sub ãÇßÑæ1() Dim Q For Q = 1 To 11 '[O1] [O2] = Q Calculate ActiveWindow.SelectedSheets.PrintPreview ' ActiveWindow.SelectedSheets.PrintOut Copies:=1 Q = Q + 2 Next Q End Sub تم تعيين متغير اسمة Q هذا المتغير من رقم 1 الى قيمة الخلية O1 و التي بها اكبر رقم تسلسل طبعا دالة LOOKUP بتعمل على قيمة الخلية O2 لذلك يتم وضع قيمة المتغير في O2ليتم الحساب بموجبها ثم الطباعة ثم نضيف رقمين للمتغير لكي تكون الزيادة بمعدل 3 ارقام لكل دورة =============================== اضغط على صورة الطابعة الموجودة في الصفحة و يعمل الماكرو مع التحية ___________.rar رابط هذا التعليق شارك More sharing options...
الحديثة قام بنشر مايو 20, 2009 الكاتب مشاركة قام بنشر مايو 20, 2009 شكر وتقدير واحترام للاستاذ / جلال والاستاذ/ احمد يعقوب على التعاون ونحن تلاميذكم نتعلم منكم وشكر خاص لهذا المنتدى الذى نتعلم و نسبح فى بحور علمة بتوجيهات اساتذة اجلاء وادعو العلى القدير ان يجعل ما تقدموه من علم فى ميزان اعمالكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.