أبو عبد الملك السوفي قام بنشر سبتمبر 17, 2013 مشاركة قام بنشر سبتمبر 17, 2013 السلام عليكم لدي كود اخفاء الاسطر الفارغة عند الطباعة و هو يعمل بشكل جيد لكن مشكلته أنه يطبع كل صفحة وحدها أي كل صفحة يحذف الاسطر الفارغة فيها ويطبعها وحدها والتي بعدها هكذا و المطلوب هو أن يحذف الاسطر الفارغة لكل الصفحات ويطبع البقية في الصفحة الأولى برنامج تسيير الارشيف3.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر سبتمبر 18, 2013 مشاركة قام بنشر سبتمبر 18, 2013 السلام عليكم تفضل أخي الكود بعد التعديل Sub MyPrint() Application.ScreenUpdating = False Application.PrintCommunication = False With Sheets("جدول دفع الإستشارة (3)") .ResetAllPageBreaks .PageSetup.FitToPagesWide = 1 With .UsedRange For i = 1 To .Rows.Count If .Cells(i, 1).Value = "" Then .Cells(i, 1).EntireRow.Hidden = True End If Next i End With .PrintOut .Rows.Hidden = False End With Application.PrintCommunication = True Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
أبو عبد الملك السوفي قام بنشر سبتمبر 18, 2013 الكاتب مشاركة قام بنشر سبتمبر 18, 2013 السلام عليكم جزاك الله كل خير أستاذنا الحبيب وبارك لنا في علمك وعملك رابط هذا التعليق شارك More sharing options...
زاكي بوشلاغم قام بنشر سبتمبر 27, 2013 مشاركة قام بنشر سبتمبر 27, 2013 (معدل) اخي ممكن كود طباعة حيث كل سطر فيه قيمة صفر او الرمز - لا يطبعه كل سطر فيه قيمة صفر لا يطبع تم تعديل سبتمبر 27, 2013 بواسطه زاكي بوشلاغم رابط هذا التعليق شارك More sharing options...
زاكي بوشلاغم قام بنشر سبتمبر 27, 2013 مشاركة قام بنشر سبتمبر 27, 2013 ممكن كود اخفاء اسطر التي تكون فيها القيمة صفر او الرمز( - دج) او الرمز(-) رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر سبتمبر 27, 2013 مشاركة قام بنشر سبتمبر 27, 2013 (معدل) السلام عليكم الاخ الكريم / زاكي بوشلاغم بارك الله فيك اولا اخي الكريم ... ليمكن الاجابة علي طلباتك بسهولة يجب عليك فتح موضوع جديد بطلبك مع ارفاق ملف به مثال لما تريده للعمل عليه حيث وجدت لك اكثر من سؤال في اكثر من موضوع مما يجعل موضوعك وطلبك غير ظاهر للجميع ليمكن الاجابة عليه برجاء ارفاق ملف مع كل طلب بمثال للشكل الموجود لديك جزاك الله خيرا يمكنك استخدام هذا التعديل البسيط في كود الاستاذ طارق ... كما يلي كود لاخفاء الصفوف الفارغة عند الطباعة1.rar Sub MyPrint() Application.ScreenUpdating = False With Sheets("AAA") .ResetAllPageBreaks .PageSetup.FitToPagesWide = 1 With .UsedRange For i = 1 To .Rows.Count If .Cells(i, 1).Value = 0 Or .Cells(i, 1).Value = "-" Or .Cells(i, 1).Value = "دج" Then .Cells(i, 1).EntireRow.Hidden = True End If Next i End With .PrintOut .Rows.Hidden = False End With Application.ScreenUpdating = True End Sub تم تعديل سبتمبر 27, 2013 بواسطه حمادة عمر رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر سبتمبر 27, 2013 مشاركة قام بنشر سبتمبر 27, 2013 ملفات مرفقة كود لاخفاء الصفوف الفارغة عند الطباعة1.rar رابط هذا التعليق شارك More sharing options...
زاكي بوشلاغم قام بنشر سبتمبر 27, 2013 مشاركة قام بنشر سبتمبر 27, 2013 عند الطباعة كل خلية تظهر فيها قيمة الصفر او الرمز(-) او الرمز(-دج) لايظهر السطر كله في الطباعة طاولة مشتركة.rar رابط هذا التعليق شارك More sharing options...
زاكي بوشلاغم قام بنشر سبتمبر 27, 2013 مشاركة قام بنشر سبتمبر 27, 2013 ممكن الرد رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 27, 2013 مشاركة قام بنشر سبتمبر 27, 2013 راجع موضوعك المشاركة الاخيرة http://www.officena....showtopic=49187 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان