خالد الشاعر قام بنشر مارس 10, 2016 مشاركة قام بنشر مارس 10, 2016 السادة الخبراء عندى اكثر من Area فى شيت عايز اطبعهم فى ورقة و احدة "ActiveSheet.PageSetup.PrintArea = "$A$8:$H$20 "ActiveSheet.PageSetup.PrintArea = "$A$30:$H$34 ولكم جزيل الشكر و الاحترام رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 10, 2016 مشاركة قام بنشر مارس 10, 2016 جرب هذا الكود Sub set_pr_Area() With ActiveSheet .Rows("21:28").EntireRow.Hidden = True .PageSetup.PrintArea = "" .PageSetup.PrintArea = "$A$8:$H$20,$A$30:$H$34" With .PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With End With ActiveSheet.PageSetup.PrintArea = "$A$8:$H$34" End Sub 1 رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر مارس 10, 2016 الكاتب مشاركة قام بنشر مارس 10, 2016 استاذ سليم شكرا على سرعة الرد ولكن عندتجربة الكود لا يطبع جزاكم الله كل خيراً رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 10, 2016 مشاركة قام بنشر مارس 10, 2016 (معدل) 23 دقائق مضت, خالد الشاعر said: استاذ سليم شكرا على سرعة الرد ولكن عندتجربة الكود لا يطبع جزاكم الله كل خيراً يجب ان تعطي امر الطباعة بواسطة (Ctrl+P) ثم Enter او اذا اردت ذلك من خلال الماكرو اضف هذا السطر في نهاية الكود مباشرة فبل عبارة end sub ActiveSheet.PrintOut تم تعديل مارس 10, 2016 بواسطه سليم حاصبيا رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر مارس 10, 2016 الكاتب مشاركة قام بنشر مارس 10, 2016 اشكرك استاذ سليم لى سؤال لو سمحت هى طباعة area مختلفة ممكن من غير اخفاء الصفوف بينهم جزاكم الله كل خيراً رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 10, 2016 مشاركة قام بنشر مارس 10, 2016 7 دقائق مضت, خالد الشاعر said: اشكرك استاذ سليم لى سؤال لو سمحت هى طباعة area مختلفة ممكن من غير اخفاء الصفوف بينهم جزاكم الله كل خيراً 7 دقائق مضت, خالد الشاعر said: اشكرك استاذ سليم لى سؤال لو سمحت هى طباعة area مختلفة ممكن من غير اخفاء الصفوف بينهم جزاكم الله كل خيراً ممكن ذلك لكن هذا الشيئ سوف يتطلب اكثر من ورقة(أو اذا ورقة واحدة يكون الخط صغيراً) رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 10, 2016 مشاركة قام بنشر مارس 10, 2016 يمكن إضافة سطر لإظهار الصفوف مرة أخرى بعد سطر الطباعة تقبلوا تحياتي رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر مارس 10, 2016 الكاتب مشاركة قام بنشر مارس 10, 2016 استاذ سليم ياريت اتعلم من حضرتك كيف طباعة area مختلفة فى ورقة واحدة رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر مارس 10, 2016 الكاتب مشاركة قام بنشر مارس 10, 2016 اشكر استاذ ياسر على مروره الكريم و على المعلومة المفيدة رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 10, 2016 مشاركة قام بنشر مارس 10, 2016 (معدل) 35 دقائق مضت, خالد الشاعر said: استاذ سليم ياريت اتعلم من حضرتك كيف طباعة area مختلفة فى ورقة واحدة يمكنك اخذ فكرة من الملف التالي(تم الاستعاتة بورقة اضافية يستعملها اكسل للطباعة ثم يمحيها بعد ذلك) Test_Print_Areas.rar تم تعديل مارس 10, 2016 بواسطه سليم حاصبيا 1 رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر مارس 10, 2016 الكاتب مشاركة قام بنشر مارس 10, 2016 استاذ سليم جزاكم الله كل خيراً و لكن هذا الملف يخلق شيت و ينسخ فيه ثم يطبع افهم من هذا ان لا يمكن الطباعة مباشر شكرا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 10, 2016 مشاركة قام بنشر مارس 10, 2016 11 دقائق مضت, خالد الشاعر said: استاذ سليم جزاكم الله كل خيراً و لكن هذا الملف يخلق شيت و ينسخ فيه ثم يطبع افهم من هذا ان لا يمكن الطباعة مباشر شكرا التطاقات بعيدة جداً عن بعضها لذلك لا مجال لوصغها في ورقة واحدة ثم طباعتها و ما الفرق اذا كانت الورقة الجديدة تحذف مباشرة بعد انتهاء دورها رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر مارس 10, 2016 الكاتب مشاركة قام بنشر مارس 10, 2016 ولكن لو النطاقات كانت تحت بعض ممكن الطباعة مباشر رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 10, 2016 مشاركة قام بنشر مارس 10, 2016 أخي الكريم خالد الشاعر الأمر سيحتاج إما إلى إخفاء الصفوف الفارغة ما بين النطاقات المتباعدة ثم إظهارها في نهاية المطاف أو كما تفضل الأخ سليم بإنشاء ورقة عمل بشكل مؤقت لتؤدي الغرض وهو طباعة النطاقات الغير متجاورة ثم حذفها في نهاية المطاف .. ما الداعي للطباعة بشكل مباشر طالما أن هناك طرق تؤدي المطلوب؟ يرجى توضيح تلك النقطة علنا نستطيع ان نصل لنقطة التقاء تقبل تحياتي رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر مارس 11, 2016 الكاتب مشاركة قام بنشر مارس 11, 2016 (معدل) استاذ سليم استاذ ياسر اشكركم عن تعاونكم انا اسف لكثرة الاسئلة ولكن الفكرة لتعلم منكم لمعرفة طريقة جديدة هل ممكنه ام لا جزاكم الله كل خيراً تم تعديل مارس 11, 2016 بواسطه خالد الشاعر رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 11, 2016 مشاركة قام بنشر مارس 11, 2016 هناك طريقة ثانية بدون الشيت المساعد انظر الى الملف الزر : Print2 Test_Print_Areas 2 way.rar 1 رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر مارس 11, 2016 الكاتب مشاركة قام بنشر مارس 11, 2016 تسلم ايدك استاذ سليم جزاك الله كل خيراً رابط هذا التعليق شارك 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.