ايمن لاشين قام بنشر يونيو 21, 2021 مشاركة قام بنشر يونيو 21, 2021 اريد كود طباعة الخلايا المليئة فقط فى شيت اكسيل انا جديد فى المنتدى ومش بعرف بسهولة اشارك عنوان مخالف ... تــم تعديل عنوان المشاركة ليعبر عن طلبك رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر يونيو 21, 2021 مشاركة قام بنشر يونيو 21, 2021 (معدل) Sub MyPrint() ' ******************************************** ' * * ' * جميع هذه الأكواد من تصميم فريق أوفيسنا * ' * * ' * http://www.officena.com/ib/index.php * ' * * ' ******************************************** Application.ScreenUpdating = False With Sheets("Sheet1") 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.ScreenUpdating = True End Sub تم تعديل يونيو 21, 2021 بواسطه MAHMOUD ALI YOUSSEF رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر يونيو 21, 2021 مشاركة قام بنشر يونيو 21, 2021 جرب هذا الكود كبداية Sheets("Sheet1").Range("A1:d200").Printout رابط هذا التعليق شارك 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.